重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
不用这个应该使用重载Form的ProcessCmdKey,假如我们处理的是textBox1如下: Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
创新互联是一家专业提供商河企业网站建设,专注与成都网站建设、成都网站制作、HTML5建站、小程序制作等业务。10年已为商河众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
If Not TextBox1.Focused Then Return False '焦点不在指定文本框上,不处理
If keyData = Keys.A And keyData = Keys.Z Then '是字母,还不知道是否是大小写
If IsKeyLocked(Keys.CapsLock) Then '大写锁定
Return Not CInt(ModifierKeys()) And CInt(Keys.Shift) 0 '如果Shift没锁定(即是大写)要过滤,返回TRUE;
Else
Return CInt(ModifierKeys()) And CInt(Keys.Shift) 0 '如果Shift锁定(即是大写)要过滤,返回TRUE;
End If
ElseIf keyData = Keys.Back Or keyData = Keys.Delete Then '还有允许的其它键
Return False
End If
Return True '剩余的键都过滤掉
End Function
写入模式为覆盖会出现这个现象
要使用添加模式
就会累加了
!!)IfboolThenMessageBox.Show(数据已写入)ElseMessageBox.Show(写入数据时出错)EndIfEndSub'FilePath为文件路径'Str要写入的内容PublicFunctionwirte(ByValFilePathAsString,ByValStrAsString)AsBooleanDimsrAsStreamReaderDimswAsStreamWriterTrysr=NewStreamReader(FilePath)DimoldStrAsString=sr.ReadToEnd()sr.Close()sw=NewStreamWriter(FilePath)'判断以前的文本是否有记录IfoldStr.Length0Then'写入以前的数据sw.WriteLine(oldStr)EndIf'在文件尾部添加新的内容sw.Write(Str)sw.Close()ReturnTrueCatchexAsExceptionReturnFalseFinallyIfsrIsNotNothingThensr.Close()EndIfIfswIsNotNothingThensw.Close()EndIfEndTryEndFunctionEndClass
me.close是关闭自身窗体,如果同时打开多个窗体,用me.close不能退出程序。
end是一个强大的退出指令,可以关闭所有窗体,并释放所有已占用的资源(当然有一些限制。所以自己主动释放是最好的)。