選擇文件夾??在工具箱?-?對話框?里選擇?FolderBrowserDialog?添加?到設(shè)計器中
成都創(chuàng)新互聯(lián)長期為上1000+客戶提供的網(wǎng)站建設(shè)服務(wù),團(tuán)隊從業(yè)經(jīng)驗10年,關(guān)注不同地域、不同群體,并針對不同對象提供差異化的產(chǎn)品和服務(wù);打造開放共贏平臺,與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為鄒城企業(yè)提供專業(yè)的成都網(wǎng)站建設(shè)、網(wǎng)站制作,鄒城網(wǎng)站改版等技術(shù)服務(wù)。擁有十載豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。
然后?代碼寫在??按鈕事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text?=FolderBrowserDialog1.SelectedPath
選擇文件?在工具箱?-?對話框?里選擇?OpenFileDialog
把?OpenFileDialog1.ShowDialog()
TextBox1.Text?=?OpenFileDialog1.FileName
寫到按鈕事件下
如圖
點擊按鈕會彈出?通用對話框??選擇好路徑后?確定?,編輯框里就會顯示選擇的路徑
添加一個form2。把他當(dāng)做彈出對話框,在form2中添加一個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)頁題目:vb點虐
文件瀏覽框 vbnet tabpage
轉(zhuǎn)載注明:http://muchs.cn/article26/ddipijg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供關(guān)鍵詞優(yōu)化、移動網(wǎng)站建設(shè)、網(wǎng)站策劃、面包屑導(dǎo)航、商城網(wǎng)站、微信小程序
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)