重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
For i As Integer = 1 To 8
站在用户的角度思考问题,与客户深入沟通,找到胶州网站设计与胶州网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:网站设计制作、网站设计、企业官网、英文网站、手机端网站、网站推广、域名注册、网站空间、企业邮箱。业务覆盖胶州地区。
Dim TC As CheckBox = Me.Controls("ComboBox" i)
If TC.Checked Then
TextBox1.Text = TextBox1.Text "," TC.Checked.ToString()
End If
Next
首先,在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类型,完成后关闭”属性对话框“。
ID不样一个
判断
if webbrowse.document.getElementById("find1").checked then msgbox "find1 checked"