这样每次变更的时候ck的值就自动改变了。
string ck=a;否则ck=b
private void CheckBox1_CheckedChanged(Object sender, EventArgs e) {
if(CheckBoxChecked == true) ck=a;
else ck=b;
}为了简化代码,提高效率,最好把checkbox设为控件数组。下面以此为例,代码如下,运行即可。
Option Explicit
Dim IsBusy As Boolean
Private Sub Check1_Click(Index As Integer)
If Check1(Index)Value = 0 Or IsBusy Then Exit Sub
Dim i As Integer
IsBusy = True
For i = 0 To Check1UBound
If i <> Index Then Check1(i)Value = 0
Next
IsBusy = False
End Sub
源码实例下载地址:>如果特效只用checkbox control那就没什么卵用,它就一个选项,选中或者不选中,就相当于编程里面的布尔形运算,checkbox control需要配合表达式来使用,(它是给表达式用的控制手柄)把图层链接给checkbox control,如果checkbox control选中那这个值就是“1”如果不选中那就是“0”因为AE中的数值一般是0~100之间,所以它默认的“1”是不够用的,所以链接了以后我们需要跟if else语句配合使用,你实验下:
1:随便新建一个固态层,然后给这个图层加个checkbox control然后把这个图层的透明度链接给这个checkbox control,再然后把下面的代码写入固态层的透明度里面:
b=effect("Checkbox Control")("Checkbox");
if(b==0){
b;
}else{
100;
}
然后去点击checkbox control里面的小框框就好了,选中之后就不透明,不选中图层就透明。
直接嵌入工作表的复选框分两种
建议使用ActiveX控件下的,表单控件的比较傻瓜,而且跨表访问比较麻烦
if sheet2range("a1")="足球" then
Sheet3CheckBox1 = True
Sheet3CheckBox2 = false
else
Sheet3CheckBox2 = True
Sheet3CheckBox1 = false
end if
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)