vb.net框选 vbs选择对话框

VB.net怎么弹出文件夹路径选择框

选择文件夹在工具箱 - 对话框里选择 FolderBrowserDialog 添加到设计器中

我们提供的服务有：成都网站设计、成都网站建设、外贸网站建设、微信公众号开发、网站优化、网站认证、汾阳ssl等。为上千多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的汾阳网站制作公司

然后代码写在按钮事件里

FolderBrowserDialog1.ShowDialog()

textbox1.text =FolderBrowserDialog1.SelectedPath

选择文件在工具箱 - 对话框里选择 OpenFileDialog

把 OpenFileDialog1.ShowDialog()

TextBox1.Text = OpenFileDialog1.FileName

写到按钮事件下

如图

点击按钮会弹出通用对话框选择好路径后确定，编辑框里就会显示选择的路径

点击“开始”-“Excel选项”，在“基本设置”选项卡中勾选右侧的“在功能区上显示‘开发工具’”，使其显示出来。

切换到“开发工具”功能区，点击插入”下拉列表框，在弹出的列表中选择“复选框（ActiveX控件）”。

然后在文档区域拖动以绘制一个复选框。并在该复选框上右键单击，在弹出的菜单中选择“属性”以打开“属性对话框”。

在打开的“属性对话框”中将“Caption”设置为空，”BackStyle“设置为透明，边框效果设置为0类型，完成后关闭”属性对话框“。

在窗体上加上三个标签控件：Label1、Label2、Label3

Private Sub DataGridView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseUp

Dim counter As Integer

Dim SelectedCellTotal As Integer = 0

Dim SelectedCellCount As Integer = 0

For counter = 0 To (DataGridView1.SelectedCells.Count - 1)

If DataGridView1.SelectedCells(counter).FormattedValueType Is _

Type.GetType("System.String") Then

Dim value As String = Nothing

If (DataGridView1.IsCurrentCellDirty = True) Then

value = DataGridView1.SelectedCells(counter).EditedFormattedValue.ToString()

Else

value = DataGridView1.SelectedCells(counter).FormattedValue.ToString()

End If

If value IsNot Nothing Then

If Not value.Length = 0 Then

SelectedCellTotal = SelectedCellTotal + Integer.Parse(value)

SelectedCellCount = SelectedCellCount + 1

End If

Label1.Text = "选中的单元格个数为: " SelectedCellCount.ToString()

Label2.Text = "单元格里数据之和为: " SelectedCellTotal.ToString()

Label3.Text = "选中的单元格行数为：" DataGridView1.SelectedRows.Count.ToString()

End Sub

当前名称：vb.net框选 vbs选择对话框
本文地址：http://myzitong.com/article/doedjej.html