'開啟選擇路徑對話方塊
'@strtitle 對話方塊標題名
'@strtypesdec 選擇檔案型別名(多檔名時用"|"連線) "images|all files"
'@strexten 選擇檔案型別(乙個檔名有多個讀取型別時用";"連線,多個檔名用|連線) "*.gif; *.jpg; *.jpeg|*.*"
'@boolallowmultiselect 是否可以多選 true:多選 false:單選
'return 返回選擇檔案的路徑 多選的場合用"|"分割 點取消時返回空
function dialogsopenselectfile( _
optional strtitle as string = "please choose the required documents", _
optional strtypesdec as string = "all", _
optional strexten as string = "*.*", _
optional boolallowmultiselect as boolean = false _
) as string
dim dlgopen as filedialog
dim arrtypesdec as variant
dim arrexten as variant
dlgopen.title = strtitle
dlgopen.filters.clear
arrtypesdec = split(strtypesdec, "|")
arrexten = split(strexten, "|")
for arr_i = 0 to ubound(arrtypesdec)
dlgopen.filters.add arrtypesdec(arr_i), arrexten(arr_i)
next arr_i
dlgopen.allowmultiselect = boolallowmultiselect
if dlgopen.show = -1 then
if dlgopen.allowmultiselect = true then
dim strtemp as string
for i = 1 to dlgopen.selecteditems.count
strtemp = strtemp & dlgopen.selecteditems(i)
if i <> dlgopen.selecteditems.count then
strtemp = strtemp & "|"
end if
next i
dialogsopenselectfile = strtemp
else
dialogsopenselectfile = dlgopen.selecteditems(1)
end if
else
dialogsopenselectfile = ""
end if
set dlgopen = nothing
end function
選擇目錄對話方塊和選擇檔案對話方塊
在mfc程式設計中經常會需要用到選擇目錄和選擇檔案的介面，以下總結一下本人常用的這兩種對話方塊的生成方法 選擇目錄對話方塊 選擇目錄按鈕 void cdcpackerdlg onbnclickeddecgen else afxmessagebox 無效的目錄，請重新選擇 選擇檔案對話方塊 cstri...
MFC 選擇目錄對話方塊和選擇檔案對話方塊
在mfc程式設計中經常會需要用到選擇目錄和選擇檔案的介面，以下總結一下本人常用的這兩種對話方塊的生成方法 選擇目錄對話方塊 void cdcpackerdlg onbnclickeddecgen else afxmessagebox 無效的目錄，請重新選擇 選擇檔案對話方塊 選擇目錄按鈕 cstri...
MFC 選擇目錄對話方塊和選擇檔案對話方塊
在mfc程式設計中經常會需要用到選擇目錄和選擇檔案的介面，以下總結一下本人常用的這兩種對話方塊的生成方法 選擇目錄對話方塊 選擇目錄按鈕 void cdcpackerdlg onbnclickeddecgen else afxmessagebox 無效的目錄，請重新選擇 選擇檔案對話方塊 cstri...