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

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

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

x

Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" ( _
+ b2 L) l8 a. |, Z, C8 _- X
ByVal hwnd As Long, ByVal szApp As String, _5 m* D+ ^& }. B
ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
. m; z& z. X3 n! G
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _$ Y( Z: T: C6 U$ ]0 ~
ByVal lpClassName As String, ByVal lpWindowName As String) As Long
$ R3 J4 l# X! I+ U2 e4 O" k) y- ^
Private Sub CommandButton1_Click()
, l6 O5 ]7 X& Z) ^" O& Q" C
Dim ApphWnd As Long
# [. x; k+ j2 o0 g
ApphWnd = FindWindow("XLMAIN", Application.Caption)+ U+ D8 J: ?5 u0 f1 A' `# H7 D
ShellAbout ApphWnd, "财务处理系统", "yuanzhuping@yeah.net 0513-86548930", 0: p# Y& b) o7 u
End Sub

复制代码

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

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