假设你的listview的名称为listview1,变量为a(3)
创新互联专业为企业提供攸县网站建设、攸县做网站、攸县网站设计、攸县网站制作等企业网站建设、网页设计与制作、攸县企业网站模板建站服务,十余年攸县做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
代码为
for i=1 to listview1.ListItems.count
k=0
if listview1.ListItems(i).Checked=True then
k=k+1
a(k)=listview1.ListItems(i).SubItems(1)
end f
next
把ListBox的SelectionMode 属性设置为MultiExtended就可以了
如果是代码控制就是
ListBox1.SelectionMode=SelectionMode.MultiExtended
首先,在datagridview的CurrentCellDirtyStateChanged事件中判断下是不是点击的第一列复选框列,如果是,就立即将修改复选框状态提交,然后再判断,
如果是选中的,刚将当前行的,指定单元格的value值赋值给需要的文本框!不明白。。。。+ 企鹅
Private Sub DataGridView1_CurrentCellDirtyStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.CurrentCellDirtyStateChanged
If DataGridView1.CurrentCell.ValueType Is GetType(Boolean) Then
DataGridView1.CommitEdit(DataGridViewDataErrorContexts.Commit)
End If
If DataGridView1.CurrentCell.ColumnIndex = 0 And DataGridView1.CurrentRow.Cells(0).FormattedValue.ToString() = "True" Then
TextBox1.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString()
End If
End Sub
841526269
点击“开始”-“Excel选项”,在“基本设置”选项卡中勾选右侧的“在功能区上显示‘开发工具’”,使其显示出来。
切换到“开发工具”功能区,点击插入”下拉列表框,在弹出的列表中选择“复选框(ActiveX控件)”。
然后在文档区域拖动以绘制一个复选框。 并在该复选框上右键单击,在弹出的菜单中选择“属性”以打开“属性对话框”。
在打开的“属性对话框”中将“Caption”设置为空,”BackStyle“设置为透明,边框效果设置为0类型,完成后关闭”属性对话框“。