第7章使用对话框代码【超实用VBA】.doc

第7章 使用对话框 范例113 使用Msgbox函数显示消息框 Sub Mymsg() Dim Mymsg As Integer Mymsg = MsgBox(文件即将关闭,是否保存所作的修改?, vbYesNoCancel + vbQuestion) Select Case Mymsg Case vbYes ThisWorkbook.Save Case vbNo ThisWorkbook.Saved = True Case vbCancel Exit Sub End Select ThisWorkbook.Close End Sub 范例114 自动关闭的消息框 114-1 使用WshShell.Popup方法显示消息框 Sub AutoClose() Dim MyShell As Object Set MyShell = CreateObject(Wscript.Shell) MyShell.Popup 程序已执行完毕!, 2, 运行提示, 64 Set MyShell = Nothing End Sub 114-2 使用API函数显示消息框 Public Declare Function SetTimer Lib user32 (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElaspe As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib user32 (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long Dim MyTimer As Long Sub AutoClose() MyTimer = SetTimer(0, 0, 2000, AddressOf CloseMsg) MsgBox 程序已执行完毕!, 64 End Sub Sub CloseMsg(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idevent As Long, ByVal Systime As Long) Application.SendKeys ~, True KillTimer 0, MyTimer End Sub 范例115 使用InputBox函数输入数据 Sub MyInput() Dim Str As String Str = InputBox(prompt:=请输入数据：) If Len(Trim(Str)) 0 Then Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Str End If End Sub Public Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function FindWindowEx Lib user32 Alias FindWindowExA (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare Function timeSetEvent Lib winmm.dll (ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, ByVal uFlags As Long) As Long Public Declare Function timeKillEvent Lib winmm.dll (By