<< Click to Display Table of Contents >> "关于"对话框(gf_ShowAbout函数) |
函数说明
该函数可以弹出一个“关于”的对话框。
函数原型
|
Public Function gf_ShowAbout(ByVal OwnerHandle As Long, _ Optional ByVal TitlebarCaption As String, _ Optional ByVal AppName As String, _ Optional ByVal OtherInfo As String, _ Optional ByVal hIcon As Long) As Boolean |
语法
gf_ShowAbout(OwnerHandle [,TitlebarCaption] [,AppName] [,OtherInfo] [,hIcon])
参考:gf_ShowAbout(Application.hWndAccessApp, "窗体标题", “程序名称”, "其他信息") '打开一个“关系”对话框
参数
参数名 |
必需/可选 |
数据类型 |
参数说明 |
---|---|---|---|
OwnerHandle |
必需 |
Long |
窗体或者程序句柄,一般使用Application.hWndAccessApp 即可。 |
TitlebarCaption |
可选 |
String |
"关于"对话框的标题 |
AppName |
可选 |
String |
“关于”对话框要显示程序的名字 |
OtherInfo |
可选 |
String |
“关于"对话框显示的其他信息 |
hIcon |
可选 |
Long |
"关于“对话框的图标。这个参数也是一个句柄。可以用API函数:ExtractIconEx获取 |
返回值
返回一个布尔值(Boolean)。打开成功,返回True;不成功,则返回False。
示例
|
Sub subTest() gf_ShowAbout Application.hWndAccessApp, "Office中国", “Access通用开发平台”, "版本号:v1.0.2.0" End Sub |
运行效果
(不同系统,效果会有些区别)