最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
使用OpenFilleDailog打开文件。
时间：2022-07-02 11:40:55 编辑：袖梨 来源：一聚教程网
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fdlg As OpenFileDialog = New OpenFileDialog()
fdlg.Title = "VB.net打开文件对话框的使用"
fdlg.InitialDirectory = "c:"
fdlg.Filter = "All files (*.*)|*.*"
fdlg.FilterIndex = 2
fdlg.RestoreDirectory = True
If fdlg.ShowDialog() = DialogResult.OK Then
TextBox1.Text = fdlg.FileName
End If
End Sub
附上示例的所有代码：（UseOpenFileDailog.VB)
Public Class UseOpenFileDialog
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
Dim fdlg As OpenFileDialog = New OpenFileDialog()
fdlg.Title = "VB.net打开文件对话框的使用"
fdlg.InitialDirectory = "c:"
fdlg.Filter = "All files (*.*)|*.*"
fdlg.FilterIndex = 2
fdlg.RestoreDirectory = True
If fdlg.ShowDialog() = DialogResult.OK Then
TextBox1.Text = fdlg.FileName
End If
End Sub
附上示例的所有代码：（UseOpenFileDailog.VB)
Public Class UseOpenFileDialog
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
相关文章
- 人们熟悉的寄居蟹属于以下哪种分类 神奇海洋11月21日答案 11-21
- 第五人格11.22共研服有什么更新 11月22日共研服更新内容介绍 11-21
- 原神恰斯卡怎么培养 11-21
- 无期迷途四星装束是谁 11-21
- 王者荣耀帝丹高中校服怎么获得 11-21
- 光遇姆明季后续版本怎么玩 11-21