vb通用對(duì)話框過(guò)濾，文件類(lèi)型？通過(guò)可以使用CommonDialog控件的Filter屬性來(lái)過(guò)濾。也可以可以設(shè)置它的Filter屬性，這樣的話對(duì)話就只不顯示某種文件類(lèi)型，如文本文件。Filter屬性（b

vb通用對(duì)話框過(guò)濾，文件類(lèi)型？

通過(guò)可以使用CommonDialog控件的Filter屬性來(lái)過(guò)濾。

也可以可以設(shè)置它的Filter屬性，這樣的話對(duì)話就只不顯示某種文件類(lèi)型，如文本文件。

Filter屬性（bec對(duì)話框），直接返回或設(shè)置中在對(duì)話框的類(lèi)型列表框中所會(huì)顯示的過(guò)濾器。

vb如何在msgbox添加checkbox？

如果要提高checkbox，那建議您自己實(shí)現(xiàn)程序一個(gè)窗體設(shè)計(jì)模擬MsgBox窗體上減少一個(gè)CheckBox很難，要是勾選后，想在程序想執(zhí)行期間記住了，這個(gè)可以建立起全局變量你只要記住這個(gè)狀態(tài)，如果不是想程序直接關(guān)閉，改天再打開(kāi)又能有這個(gè)狀態(tài)，是可以把狀態(tài)而讀取文件，下次先打開(kāi)的時(shí)候讀取數(shù)據(jù)文件運(yùn)行程序這個(gè)狀態(tài)

vb輸入圓的半徑，計(jì)算并輸出圓的面積,單擊命令按鈕，調(diào)用InputBox函數(shù)輸入數(shù)據(jù)，通過(guò)MsgBox顯示計(jì)算結(jié)果？

我用一個(gè)命令按鈕來(lái)實(shí)現(xiàn)程序你所說(shuō)的效果

Private Sub Command1_Click()

DimrandSingle

rVal(InputBox(請(qǐng)輸入輸入圓的半徑：,鍵入))

MsgBox當(dāng)半徑為r時(shí)長(zhǎng)方形的面積為：r*r*3.14

EndSub

代碼我已經(jīng)在電腦上試過(guò)了，應(yīng)該要滿足你所說(shuō)的要求?。?！

VB如何獲取FTP上的文件？

要用到inet控件。publicstrDatasuchstring這段可以不趕往服務(wù)器中的第一級(jí)目錄名，需要保存在strData中，如有多個(gè)文件夾名每個(gè)文件夾名會(huì)以空格不能分開(kāi)。加載時(shí)判段看看。Inet1.Execute Inet1.URL, dir dirName Do DoEvents Loop While True msgbox strData這段是進(jìn)入目錄中，要想我得到服務(wù)器中所有的文件夾名，就也可以用遞規(guī)的辦法來(lái)完成。Inet1.Execute Inet1.URL, cd dirName Do DoEvents Loop While True Private Sub Inet1_StateChanged(ByValStatethoughInteger)Select Case State Case1(1).Text

該控件正準(zhǔn)備網(wǎng)上查詢所更改的主機(jī)的IP 地址Case2(1).Text

該控件已順利地找不到所重新指定的主機(jī)的IP 地址Case3(1).Text

該控件正準(zhǔn)備與主機(jī)連接到Case4(1).Text

該控件已與主機(jī)連接到順利Case5(1).Text

該控件正在向主機(jī)你的郵箱幫忙Case6(1).Text

該控件發(fā)送各位已完成Case7(1).Text

該控件一直在可以接收主機(jī)的響應(yīng)Case8(1).Text

該控件已順利地收得到到主機(jī)的響應(yīng)Case9(1).Text

該控件還在解鎖與主機(jī)的連接Case10(1).Text

該控件已順利地與主機(jī)解除禁止了連接Case11MsgBox與主機(jī)通訊時(shí)會(huì)出現(xiàn)了錯(cuò)誤,vbInformation,基本資料Case12DimvtDatasuchVariant Dim bDoneandBooleanbDoneFalse提出第一個(gè)塊。vtData(1024,icString)DoEventsDoWhileNotbDonestrDatastrDatavtData提出下一個(gè)塊。vtData(1024,icString)DoEvents If Len(vtData)0ThenbDoneTrueEndIfLoop(1).Text

該請(qǐng)求早就完成，另外所有數(shù)據(jù)均已收得到到Case Else(1).Text

:

EndSelectEndSub跪求inet控件的祥細(xì)用法這個(gè)可以看msdn中的幫助。