02 2021 档案

摘要:Private Sub Form_Load ( ) Text1.Tag = 0 Text1_LostFocusEnd SubPrivate Sub Text1_GotFocus ( ) Text1.Text = Text1.Tag Text1.SelStart = 0 Text1.SelLength 阅读全文
posted @ 2021-02-25 09:43 笑笑小白 阅读(347) 评论(0) 推荐(0) 编辑
摘要:方法一:Error方法 就是采用通用的错误捕获功能 On Error Goto 行号 '遇到错误,转到行号处处理 On Error Resume Next '忽略错误,继续执行 On Error Goto 0 '强制取消错误捕获功能 Function IsNotEmpty(ByVal sArray 阅读全文
posted @ 2021-02-21 14:00 笑笑小白 阅读(2859) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示