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

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

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

x

Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" ( _
' V6 x! e, o7 I5 p
ByVal hwnd As Long, ByVal szApp As String, _' p; |/ n: T# {6 J) o5 X P* f
ByVal szOtherStuff As String, ByVal hIcon As Long) As Long. }# ` S/ V, {6 J% G+ ^5 U
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
/ Q( Z+ d8 G) q, k5 U- S2 w4 C
ByVal lpClassName As String, ByVal lpWindowName As String) As Long& r$ w9 z8 m# e6 U! y& w& D7 N C
Private Sub CommandButton1_Click()9 ~4 o" h" w+ K
Dim ApphWnd As Long
% z) e' C- c1 k) y2 z
ApphWnd = FindWindow("XLMAIN", Application.Caption)
. g; y0 Y$ w- m1 Z9 ~1 p
ShellAbout ApphWnd, "财务处理系统", "yuanzhuping@yeah.net 0513-86548930", 0
) {. y2 @) G0 R
End Sub

复制代码

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

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