4 回答

TA貢獻(xiàn)1839條經(jīng)驗(yàn) 獲得超15個(gè)贊
朋友,你的想法沒錯(cuò),打開通用對(duì)話框(CommonDialog),有兩種辦法,第一種就是你說的那種,:
“打開”對(duì)話框:Action = 1
“保存”對(duì)話框:Action = 2
“顏色”對(duì)話框:Action = 3
“字體”對(duì)話框:Action = 4
“打印”對(duì)話框:Action = 5
“幫助”對(duì)話框:Action = 6
另外一種方法如下:
“打開”對(duì)話框:ShowOPen
“保存”對(duì)話框:ShowSave
“顏色”對(duì)話框:ShowColor
“字體”對(duì)話框:ShowFont
“打印”對(duì)話框:ShowPrinter
“幫助”對(duì)話框:ShowHelp
舉個(gè)例子:CommonDialog1.Action = 1 可以替換為CommonDialog1.ShowOpen,依次類推,運(yùn)行程序,你就知道了。
對(duì)了,通用對(duì)話框(Commondialog)在VB程序一般沒有,需要添加,請(qǐng)你從“工程”中選擇“部件”,來添加“Microsoft common Dialog Control”控件。
朋友,建議你使用第二種方法,祝你成功!

TA貢獻(xiàn)1830條經(jīng)驗(yàn) 獲得超9個(gè)贊
作用是一樣的,用后面的方法就不用設(shè)action屬性了。
其實(shí)action=1,系統(tǒng)就自動(dòng)調(diào)出ShowOpen方法。

TA貢獻(xiàn)1828條經(jīng)驗(yàn) 獲得超3個(gè)贊
先設(shè)置好控件的屬性,再顯示對(duì)話框的話就不會(huì)有問題了。
把C1.ShowOpen放到最后就可以了。
比如:
C1.DialogTitle = "打開文件"
C1.Filter = "all files|*.*|(*.exe)|*.exe|(*.txt)|*.exe"
C1.Flags = 4
C1.FilterIndex = 2
C1.ShowOpen '最后再調(diào)用ShowOpen上面的屬性設(shè)置才有效,否則只顯示調(diào)用ShowOpen前的設(shè)置屬性
添加回答
舉報(bào)