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

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

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

x

Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" ( _9 X# Y e& O& `& k9 ^
ByVal hwnd As Long, ByVal szApp As String, _: c" Q% m3 y1 N/ @: T
ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
9 z8 q/ w- Z; L
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _+ P% F- n: L; v' A" ^) z
ByVal lpClassName As String, ByVal lpWindowName As String) As Long
) c8 C _; D& f4 ^
Private Sub CommandButton1_Click()3 L [! ^* ?7 O# L
Dim ApphWnd As Long
" \! d! X8 f, [: k5 { d
ApphWnd = FindWindow("XLMAIN", Application.Caption)
1 u5 G% y- s7 n) n
ShellAbout ApphWnd, "财务处理系统", "yuanzhuping@yeah.net 0513-86548930", 0
& q. \* f; C6 \2 a/ c7 x
End Sub

复制代码

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

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