02 2021 档案
摘要:Private Sub Form_Load ( ) Text1.Tag = 0 Text1_LostFocusEnd SubPrivate Sub Text1_GotFocus ( ) Text1.Text = Text1.Tag Text1.SelStart = 0 Text1.SelLength
阅读全文
摘要:方法一:Error方法 就是采用通用的错误捕获功能 On Error Goto 行号 '遇到错误,转到行号处处理 On Error Resume Next '忽略错误,继续执行 On Error Goto 0 '强制取消错误捕获功能 Function IsNotEmpty(ByVal sArray
阅读全文