vb.net框选元素 vb组合框选中的代码

vb.net中怎么向excel表中添加个复选框

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

成都创新互联公司成立于2013年，是专业互联网技术服务公司，拥有项目网站制作、网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元汨罗做网站,已为上家服务,为汨罗各地企业和个人服务,联系电话:18980820575

切换到“开发工具”功能区，点击插入”下拉列表框，在弹出的列表中选择“复选框（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

如图：把鼠标移动到窗口左边的“工具箱”字样上，出现控件，那个红色矩形框里的“CheckBox”就是复选框控件，用鼠标双击，就会添加到窗体上。

同样方法，双击下面那个红色矩形框里的“DataGridView，就可以添加数据网格控件。

文章标题：vb.net框选元素 vb组合框选中的代码
文章转载：http://scjbc.cn/article/dddheoi.html