diaglogbox控件
CommonDialog1.ShowOpen
CommonDialog1.ShowOpen
解决方案 »
- 列表框的选中项问题?
- 小妹请教:vb中的类是面向对象的吗?我学习vb.net感觉和vb的类差不多啊,请帮忙解释一下好吗?
- 关于VSFlexGrid导入EXCEL的问题?在线结贴!
- 向Oracle数据库中插入日期数据的问题
- 本人菜鸟一只诚心请各位高手相助
- 为什么下列语句再vb里面无法编译?
- 请教!vb编程如何获得Excel文件的行数?
- 数据查询问题
- award v4.51怎样才能支持80G硬盘?
- 重开一帖:说好啊,我是菜鸟。非常真诚的向各位求教。加我为好友吧,QQ:4566289。不管你是高手,还是菜鸟,都欢迎你们。条件只有一个,只要是VB爱好者就行。简单吧。前十名每人5分,本人严重要求上进。我不想只玩游戏,上网聊天。我要编程,我要成为高手!!!
- 用vb如何自定义IE的安全级别
- 救急!本人现用VB搞毕业设计,涉及画图(材料力学)---请哪位高人拔刀相助,不胜感激!
CommonDialog1.ShowOpen
eg:
dim FilePath as string
If CommonDialog1.CancelError Then
MsgBox "没有打开数据库文件", vbExclamation, "消息提示"
Else
CommonDialog1.FileName = "数据库.mdb"
CommonDialog1.Filter = "数据库文件(*.mdb)"
CommonDialog1.ShowOpen
FilePath = CommonDialog1.FileName
....
endif
'声明:
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long'函数:'使用 WIN95 的选择目录对话框
Private Function BrowseForFolder(hWndOwner As Long, sPrompt As String) As String
Dim iNull As Integer
Dim lpIDList As Long
Dim lResult As Long
Dim sPath As String
Dim udtBI As BrowseInfo
With udtBI
.hWndOwner = hWndOwner
.lpszTitle = lstrcat(sPrompt, "")
.ulFlags = BIF_RETURNONLYFSDIRS
End With
lpIDList = SHBrowseForFolder(udtBI)
If lpIDList Then
sPath = String$(MAX_PATH, 0)
lResult = SHGetPathFromIDList(lpIDList, sPath)
Call CoTaskMemFree(lpIDList)
iNull = InStr(sPath, vbNullChar)
If iNull Then
sPath = Left$(sPath, iNull - 1)
End If
End If
BrowseForFolder = sPath
End Function