and4_Click()
Dim lpIDList As Long
Dim udtBI As BrowseInfo
''''初试化udtBI结构
With udtBI
.hwndOwner = Form1.hWnd
.ulFlags = BIF_RETURNONLYFSDIRS
End With
''''弹出文件夹查看窗口
lpIDList = SHBrowseForFolder(udtBI)
If lpIDList Then
''''查找文件
SHFindFiles lpIDList, 0
Call CoTaskMemFree(lpIDList)
End If
End Sub
Private Sub Command5_Click()
SHObjectProperties Form1.hWnd, 2, ″c:\windows\notepad.exe″, ″Samples″
End Sub
Private Sub Form_Load()
Command1.Caption = ″运行程序″
Command2.Caption = ″更改图标″
Command3.Caption = ″打开文件″
Command4.Caption = ″查找文件″
Command5.Caption = ″显示文件属性″
End Sub
运行程序，分别点击不同的按钮，就可以看到不同的按钮实现了对不同的系统对话框的调用。以上程序在Windows98、VB6下运行通过。（完）
（长沙 陈锐）
上一页 [1] [2] |
