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

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

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

x

Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" ( _, Q* [9 R: W% o. y/ i+ d6 n9 h7 S
ByVal hwnd As Long, ByVal szApp As String, _& } z" @ k7 N0 {5 ?! y
ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
+ [0 u( w K9 c" N4 w& Y1 Y% I
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _, U# T$ b0 }- L( f5 j* c" }
ByVal lpClassName As String, ByVal lpWindowName As String) As Long
/ l- ~; a! S* W; G- B3 B
Private Sub CommandButton1_Click()* U; c$ Y6 `( I. j1 g: m( y4 X
Dim ApphWnd As Long
% N Q+ j' d; U
ApphWnd = FindWindow("XLMAIN", Application.Caption)' u9 R' n, i3 D' N. _5 A
ShellAbout ApphWnd, "财务处理系统", "yuanzhuping@yeah.net 0513-86548930", 0
4 x; w. Q1 y5 i1 r
End Sub

复制代码

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

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