選擇文件夾??在工具箱?-?對(duì)話框?里選擇?FolderBrowserDialog?添加?到設(shè)計(jì)器中

成都創(chuàng)新互聯(lián)長(zhǎng)期為上1000+客戶提供的網(wǎng)站建設(shè)服務(wù),團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年,關(guān)注不同地域、不同群體,并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù);打造開放共贏平臺(tái),與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為鄒城企業(yè)提供專業(yè)的成都網(wǎng)站建設(shè)、網(wǎng)站制作,鄒城網(wǎng)站改版等技術(shù)服務(wù)。擁有十載豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。
然后?代碼寫在??按鈕事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text?=FolderBrowserDialog1.SelectedPath
選擇文件?在工具箱?-?對(duì)話框?里選擇?OpenFileDialog
把?OpenFileDialog1.ShowDialog()
TextBox1.Text?=?OpenFileDialog1.FileName
寫到按鈕事件下
如圖
點(diǎn)擊按鈕會(huì)彈出?通用對(duì)話框??選擇好路徑后?確定?,編輯框里就會(huì)顯示選擇的路徑
添加一個(gè)form2。把他當(dāng)做彈出對(duì)話框,在form2中添加一個(gè)dirlistbox控件,在form1的command1的click事件中寫入form2.show。在form2的dir1的click事件中寫入form1.text1.text = dir1.path就OK了,避免使用繁瑣的API函數(shù)
Private Sub Command1_Click()
Dim sf As Object
Set sf = CreateObject("Shell.Application").BrowseForFolder(0, "選擇文件夾", 0, "")
If Not sf Is Nothing Then
MsgBox "選擇的文件夾是" vbCrLf sf.self.Path
End If
Set sf = Nothing
End Sub
網(wǎng)頁(yè)題目:vb點(diǎn)虐
文件瀏覽框 vbnet tabpage
轉(zhuǎn)載注明:http://chinadenli.net/article26/ddipijg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供關(guān)鍵詞優(yōu)化、移動(dòng)網(wǎng)站建設(shè)、網(wǎng)站策劃、面包屑導(dǎo)航、商城網(wǎng)站、微信小程序
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容