重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
点击“开始”-“Excel选项”,在“基本设置”选项卡中勾选右侧的“在功能区上显示‘开发工具’”,使其显示出来。
目前成都创新互联公司已为上千多家的企业提供了网站建设、域名、网页空间、网站改版维护、企业网站设计、三门网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
切换到“开发工具”功能区,点击插入”下拉列表框,在弹出的列表中选择“复选框(ActiveX控件)”。
然后在文档区域拖动以绘制一个复选框。 并在该复选框上右键单击,在弹出的菜单中选择“属性”以打开“属性对话框”。
在打开的“属性对话框”中将“Caption”设置为空,”BackStyle“设置为透明,边框效果设置为0类型,完成后关闭”属性对话框“。
dim checkbox ax dataggridviewcheckboxcell=datagridview1.rows(0).cell(0)
checkbox.editingcellformattedvalue=true
datagridview1.rows(0).cell(0)=checkbox
我培大扒手仿瞎敲上的,你把格式改配昌过来就行
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