首先要分清你要更改的复选框是窗体控件还是ActiveX控件。1.窗体控件右键选中控件就可以更改2.ActiveX控件进入“设计模式”,再选中控件,就可以更改我用07版excel,设计模式在“开发工具”选项中。2003版的参考吧,忘记在什么地方了checkbox的复选框框的大小是没法改的,
但有别的方法可以尝试,
我的方法是这样子的:
先建一个label,然后再在上面打个“√”,
接下来就去调字体大小,加粗,
最后再写点程序:
private sub label1_click()
if label1.caption = "√" then label1.caption = "" else label1.caption = "√"
end sub
这样子就ok了,
这法子有点土,不过管用,可以做得很大很大。
vb复选框checkbox控件主要通过其value属性来进行程序编写。value属性返回或设置复选框的状态。复选框控件有三种状态:0-Unchecked 未选定1-Checked 选定 2-Graved 灰色 checkbox用法实例:在窗体添加名为Check1、Check2、Check3的3个checkbox控件和一个command1按钮。Private Sub Command1_Click() If Check1.Value = 1 Then Print "check1选中" Else Print "check1未选中" If Check2.Value = 1 Then Print "check2选中" Else Print "check2未选中" If Check3.Value = 1 Then Print "check3选中" Else Print "check3未选中"End SubCheckBox 控件组中可以使用 CheckBox 控件显示多项选择,从而可选择其中的一项或多项。也可以通过对 Value 属性编程设置 CheckBox 的值。在一个窗体中可以同时选择任意数量的 CheckBox 控件。以下代码会告诉CheckBox 控件单选或多选的状态Option ExplicitPrivate Sub Check1_Click() Debug.Print Check1.Value; Check2.Value; Check3.ValueEnd SubPrivate Sub Check2_Click() Debug.Print Check1.Value; Check2.Value; Check3.ValueEnd SubPrivate Sub Check3_Click() Debug.Print Check1.Value; Check2.Value; Check3.ValueEnd SubDim 判断1 As Boolean, 判断2 As Boolean, 判断3 As BooleanPrivate Sub Check1_Click()If Check1.Value = 1 Then 判断1 = TrueEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then 判断2 = TrueEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 Then 判断3 = TrueEnd SubPrivate Sub Command1_Click()If 判断1 = True Then Text1.Text = Text1.Text & Check1.CaptionIf 判断2 = True Then Text1.Text = Text1.Text & Check2.CaptionIf 判断3 = True Then Text1.Text = Text1.Text & Check3.CaptionEnd SubPrivate Sub Form_Load()判断1 = fasle判断2 = fasle判断3 = fasleEnd Sub
5,VB如何用复选框
Private Sub Check1_Click()Text1.FontBold = Check1.ValueEnd SubPrivate Sub Check2_Click()Text1.FontItalic = Check2.ValueEnd SubPrivate Sub Form_Load()Text1.FontSize = 30Check1.Caption = "粗体"Check2.Caption = "斜体"End Sub窗体上一个textbox 两个checkbox帐号解封 庆祝一下~~~~~偶回来啰~~~~~~~~private sub c1_click() dim r as string if ch1.value=1 then r=ch1.caption if ch2.value=1 then r =r & ch2.caption if ch3.value=1 then r =r & ch3.caption msgbox "我的爱好是" & r ,vbokonly end subLABLE标签里有个FONT属性,自己试一下怎么用那个斜体和粗体吧。也可以同时将这两个设为真哦。加入一个文本框:text1,二个复选框按钮:check1(caption属性改为:粗体),check2(caption属性改为:斜体)下面是代码:Private Sub Form_Load() Text1.Text = "测试区域" Text1.FontSize = 25 Text1.ForeColor = vbRed End SubPrivate Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End IfEnd Sub只要在Check1_Click的事件代码下加这一行代码就好了啊Text1.FontBold = True新建一个text,一个复选框text的text属性为“测试区”,字体为斜体复选框的caption属性为“粗体”,value属性为0(未选)代码如下:Option ExplicitPrivate Sub Check1_Click() If Check1.Value = 0 Then text1.FontItalic = True text1.FontBold = False Else text1.FontItalic = False text1.FontBold = True End IfEnd Sub
新闻标题:复选框怎么设置,如何在Word中插入对勾复选框
标题链接:http://kswjz.com/article/idjjcd.html