Filter 屬性設置當前文件名篩選字符串,該字符串確定出現在對話框的“文件類型”框中的選項。
創(chuàng)新互聯(lián)-專業(yè)網站定制、快速模板網站建設、高性價比萬榮網站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式萬榮網站制作公司更省心,省錢,快速模板網站建設找我們,業(yè)務覆蓋萬榮地區(qū)。費用合理售后完善,十余年實體公司更值得信賴。
openFileDialog1.InitialDirectory = "c:\\" ;
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;
openFileDialog1.FilterIndex = 1 ; // 獲取或設置文件對話框中當前選定篩選器的索引;
openFileDialog1.RestoreDirectory = true ;
對于每個篩選選項,篩選器字符串都包含篩選器說明,后接一垂直線條 (|) 和篩選器模式。不同篩選選項的字符串由垂直線條隔開。
用msgbox()顯示對話框
msgbox的用法很多,基礎的就是msgbox(“你要顯示的內容”)
或者msgbox(“你要顯示的內容”,16,"對話框名稱")'16是對話框的類型,還有幾個鍵的組合代碼,這個你可以
查查
,很多,或者你也可以用提示給出的類型,比如MsgBoxStyle.Exclamation就是顯示錯誤對話框,
可以利用msgbox 實現,也可以通過另外的窗體上畫出表格實現
方法一,利用msgbox:
Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" vbCrLf _ "│ 庫存1 │ 庫存2 │ 庫存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function
方法二,利用窗體實現:
’新建form2窗體‘將以下代碼復制到form2窗體中Private Sub Form_Load()ShowPrint "┌────┬────┬────┐" vbCrLf _ "│ 庫存1 │ 庫存2 │ 庫存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function‘將以下代碼復制在form1窗體中Private Sub Command1_Click()Form2.ShowEnd Sub
選擇文件夾??在工具箱?-?對話框?里選擇?FolderBrowserDialog?添加?到設計器中
然后?代碼寫在??按鈕事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text?=FolderBrowserDialog1.SelectedPath
選擇文件?在工具箱?-?對話框?里選擇?OpenFileDialog
把?OpenFileDialog1.ShowDialog()
TextBox1.Text?=?OpenFileDialog1.FileName
寫到按鈕事件下
如圖
點擊按鈕會彈出?通用對話框??選擇好路徑后?確定?,編輯框里就會顯示選擇的路徑
你這2個按鈕的目的不是一樣嗎
Dim fbd As New FolderBrowserDialogfbd.Description = "請選擇文件夾。"fbd.RootFolder = Environment.SpecialFolder.Desktop '根目錄
fbd.SelectedPath = "C:\Windows" '默認打開文件夾
fbd.ShowNewFolderButton = True '是否可以創(chuàng)建新文件夾
If fbd.ShowDialog(Me) = DialogResult.OK Then
textbox1.text=fbd.SelectedPath
End If
webbrowser1.Document.Body.All.GetElementsByName("box_45537501")(0).InvokeMember("Click")
文章標題:vb.net選項對話框,vb 打開文件對話框
轉載注明:http://aaarwkj.com/article22/dssgscc.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供搜索引擎優(yōu)化、App設計、電子商務、品牌網站制作、網站策劃、面包屑導航
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)