VB.NET中如何实现VB浏览按钮功能?
- 内容介绍
- 文章标签
- 相关推荐
本文共计297个文字,预计阅读时间需要2分钟。
我在Visual Studio 2010中遇到了Visual Basic的问题。请问如何创建浏览文件夹(或文件)按钮?作为VB的新手,我只找到了一些简单的帮助:在表单上放置一个按钮,处理单击事件,然后使用以下代码:
vb' 添加按钮点击事件的代码Private Sub btnBrowser_Click() ' 创建一个OpenFileDialog对象 Dim openFileDialog As New OpenFileDialog() ' 显示对话框并获取用户选择的文件 If openFileDialog.ShowDialog()=DialogResult.OK Then ' 显示选中的文件路径 TextBox1.Text=openFileDialog.FileName End IfEnd Sub
我只是在Visual Studio 2010中搞乱Visual Basic.任何人都知道如何制作“浏览文件夹(或文件)”按钮?我是VB的新手,我只是在寻找一些简单的帮助:) 在表单上放置一个按钮,处理单击事件,然后使用 FolderBrowserDialog.Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Using fld As New FolderBrowserDialog() If fld.ShowDialog() = Windows.Forms.DialogResult.OK Then MessageBox.Show("Selected " & fld.SelectedPath) End If End Using End Sub
要选择文件,请使用OpenFileDialog类:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Using ofd As New OpenFileDialog() If ofd.ShowDialog() = DialogResult.OK Then MessageBox.Show("Selected " + ofd.FileName) End If End Using End Sub
本文共计297个文字,预计阅读时间需要2分钟。
我在Visual Studio 2010中遇到了Visual Basic的问题。请问如何创建浏览文件夹(或文件)按钮?作为VB的新手,我只找到了一些简单的帮助:在表单上放置一个按钮,处理单击事件,然后使用以下代码:
vb' 添加按钮点击事件的代码Private Sub btnBrowser_Click() ' 创建一个OpenFileDialog对象 Dim openFileDialog As New OpenFileDialog() ' 显示对话框并获取用户选择的文件 If openFileDialog.ShowDialog()=DialogResult.OK Then ' 显示选中的文件路径 TextBox1.Text=openFileDialog.FileName End IfEnd Sub
我只是在Visual Studio 2010中搞乱Visual Basic.任何人都知道如何制作“浏览文件夹(或文件)”按钮?我是VB的新手,我只是在寻找一些简单的帮助:) 在表单上放置一个按钮,处理单击事件,然后使用 FolderBrowserDialog.Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Using fld As New FolderBrowserDialog() If fld.ShowDialog() = Windows.Forms.DialogResult.OK Then MessageBox.Show("Selected " & fld.SelectedPath) End If End Using End Sub
要选择文件,请使用OpenFileDialog类:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Using ofd As New OpenFileDialog() If ofd.ShowDialog() = DialogResult.OK Then MessageBox.Show("Selected " + ofd.FileName) End If End Using End Sub

