说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

显示文件属性对话框-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
显示文件属性对话框-VB资料


利用ShellExecuteEx API函数可以调出文件的属性对话框。源代码如下:

Private Type SHELLEXECUTEINFO

cbSize As Long

fMask As Long

hWnd As Long

lpVerb As String

lpFile As String

lpParameters As String

lpDirectory As String

nShow As Long

hInstApp As Long

lpIDList As Long

lpClass As String

hkeyClass As Long

dwHotKey As Long

hIcon As Long

hProcess As Long

End Type

Private Declare Function ShellExecuteEx Lib _

"shell32" (lpSEIAs SHELLEXECUTEINFO) As Long

Private Const SEE_MASK_INVOKEIDLIST = &HC

Private Sub Form_Click()

Call ShowFileProperties( _

"c:\windows\system\msvbvm50.dll")

End Sub

Private Sub ShowFileProperties(ByVal aFile As _

String)

Dim sei As SHELLEXECUTEINFO

sei.hWnd = Me.hWnd

sei.lpVerb = "properties"

sei.lpFile = aFile

sei.fMask = SEE_MASK_INVOKEIDLIST

sei.cbSize = Len(sei)

ShellExecuteEx sei

End Sub

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘