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

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

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

x

Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" ( _0 G# P. }( |; J( V' V
ByVal hwnd As Long, ByVal szApp As String, _3 a3 [# @5 v; I
ByVal szOtherStuff As String, ByVal hIcon As Long) As Long( @, `' n# P5 C1 \0 {
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _/ J3 q/ E9 S/ K$ U$ ]$ l0 W
ByVal lpClassName As String, ByVal lpWindowName As String) As Long# a1 r+ i! K- E
Private Sub CommandButton1_Click()' h4 J4 s; _7 o& A1 g
Dim ApphWnd As Long
) @( @$ O8 i0 Y. t9 n5 t3 p
ApphWnd = FindWindow("XLMAIN", Application.Caption)
+ ?& ]# w3 B& {3 S1 B9 N6 T
ShellAbout ApphWnd, "财务处理系统", "yuanzhuping@yeah.net 0513-86548930", 0* Y, i' i9 N1 |$ L- R; d* x; f2 ^7 I
End Sub

复制代码

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

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