Access平台开发人员帮助 > 通用函数库 > 按功能 > 通用对话框

函数说明

该函数可以弹出一个“图标”的对话框，用于选择一个图标。

函数原型

Public Function gf_ShowIcon(ByVal OwnerHandle As Long, _

Optional ByRef filename As String, _

Optional ByRef IconIndex As Long) As Boolean

语法

gf_ShowIcon(OwnerHandle [,filename] [,IconIndex]

参考：gf_ShowIcon(Application.hWndAccessApp, filename, IconIndex) '打开一个“图标”对话框

参数

参数名	必需/可选	数据类型	参数说明
OwnerHandle	必需	Long	窗体或者程序句柄，一般使用Application.hWndAccessApp 即可。
filename	可选	String	ByRef 用于接收图标文件的路径
IconIndex	可选	Long	ByRef 用于接收选中的图标索引值

返回值

返回一个布尔值(Boolean)。选中了图标，返回True；不选择图标，则返回False。

另外filename和IconIndex是使用了ByRef 也会返回对应的图标路径和索引。

示例

Sub subTest()

Dim strFileName As String '字符串变量，用于接收选择图标文件的路径

Dim intIndex As Long '长整型变量，用于接收选择图标的索引值

gf_ShowIcon Application.hWndAccessApp, strFileName, intIndex ‘打开"图标"对话框

Msgbox "您选择了 " & strFileName & " 文件的图标，索引值为" & intIndex

End Sub

运行效果

(不同系统，效果会有些区别)

IconDialog

"图标"对话框（gf_ShowIcon函数）