适用格式 : XXX-YYYYMMDD-0000 QUOTE: Public Function ZDYBH(StrTable As String, StrField As String, StrBH As String, Optional FDay As String = "YYMMDD", Optional ILen As Integer = 3, Optional B As Boolean = False) As String '=========================================================== ...
Public Declare Function GetInputState Lib "user32" () As Long Public Sub newDoEvents() '这个是比较简单,功能较少 If GetInputState() 0 then DoEvents End Sub '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Public Const QS_HOTKEY = ...