调用操作系统“关于”对话框

admin · 发表于 2020-4-5 23:32:28

您需要登录才可以下载或查看，没有账号？注册

x

Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" ( _
8 _. [3 X8 b: ]! F) ~$ o. ]
ByVal hwnd As Long, ByVal szApp As String, _
* a3 }4 \7 `7 d+ Y; r4 `
ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
8 r* K0 Z8 F7 v3 D
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _5 Y% P& h$ z/ p8 m* E
ByVal lpClassName As String, ByVal lpWindowName As String) As Long
0 y0 D1 d, M2 y2 Q
Private Sub CommandButton1_Click()
+ E$ {' Q& h. Q5 v. E W
Dim ApphWnd As Long% L+ c, O4 b2 ^9 D( Q5 k6 |
ApphWnd = FindWindow("XLMAIN", Application.Caption)
& H* d* i0 n! l
ShellAbout ApphWnd, "财务处理系统", "yuanzhuping@yeah.net 0513-86548930", 0% t4 s! ]$ {: C, f
End Sub

复制代码

		自动登录	找回密码
密码			注册

[Excel课程] 调用操作系统“关于”对话框