vb option的问题

看看这一段(答案):
Private Sub Command1_Click()
If Option1.Value Then
Text1.BackColor = vbRed
ElseIf Option2.Value Then
Text1.BackColor = vbGreen
ElseIf Option3.Value Then
Text1.BackColor = vbBlue
End If
我不懂为什么不是 if option1.value=true呢?
还有怎么没说明click事件而和command连接起来???好晕啊。。。

第1个回答  2008-12-09
楼上别乱说哦~~OptionButton 控件-True 表示已选择了该按钮;False(缺省值)表示没有选择该按钮
要是默认为真 那不是不用点选 就可以直接 点击按钮改变文本背景颜色了。

如果Option1的click事件里代码是Text1.BackColor = vbRed 它目的是为了让文本背景色为红~那么就算我不在option的click事件中写这个“目的” 我只要在按钮点击中判断option是否被选中 也可以直接给文本背景色属性赋值。达到我这个目的 不是吗?
第2个回答  2008-12-09
if option1.value等同於 if option1.value=true
Private Sub Command1_Click(),command1_click()就是点击事件啊
command1 命令按钮 click 点击
你在界面双击command1按钮就会在代码窗口出现这个事件本回答被提问者采纳
第3个回答  2008-12-09
option1.value 默认是true
option控件在这作为第三方控件,起一个判断作用,也可直接用option的click

但每个option都要设置Text1.BackColor
全部集中在command下的,即可方便

VB的option问题
if frame1.option1.value=ture then frame2.option1.value=false end if 以上不是真正代码,而是一个方法或者说思想,根据这个思想应该可以轻松实现你想要的功能的 ,代码在frame1.change事件中写

VB的option explicit问题
Option Explicit 语句 在模块级别中使用,强制显式声明模块中的所有变量。语法Option Explicit说明如果使用,Option Explicit 语句必须写在模块的所有过程之前。如果模块中使用了 Option Explicit,则必须使用 Dim、Private、Public、ReDim 或 Static 语句来显式声明所有的变量。如果使用了未声明的变量名在编译...

VB 里Option控件的问题
意图:Option.Value初值为false;希望Click时,若value为true,则赋值false,否则赋值true问题:编译运行时,发现Option.Value总是true,不论怎样点击,显示总还是false状态(前面没有小黑点)。代码如下:Private Sub Option1_Click()If Option1.value = True ThenOption1.value = FalseElseOption1.value = FalseEnd IfEnd S...

vb option的问题
如果Option1的click事件里代码是Text1.BackColor = vbRed 它目的是为了让文本背景色为红~那么就算我不在option的click事件中写这个“目的” 我只要在按钮点击中判断option是否被选中 也可以直接给文本背景色属性赋值。达到我这个目的 不是吗?

VB Option默认选项问题
1、程序启动的时候让Option1为选中状态,必须设Option1.value=true 2、只有一处修改:Private Sub Command1_Click()Dim a, b, c, d a = 1350 c = Text1.Text b = a - Val(c) '修改部分 If c = "" Then MsgBox "数据不能为空", 64, "提示"Else Label2.Caption = "还需帮贡:"...

为什么在VB中使用了Option Explicit之后就不能用了。
variable does not generate error.说通俗点,就是为了避免混乱,使用 Option Explicit 之后,必须对变量进行声明才可以使用!举个简单的例子:<script language="vbscript"> < !-- Option Explicit \\' 要求在脚本中声明所有的变量 Dim Mystring Mystring="This is my string"-- > < \/script> ...

vb option问题
使用for循环 for i=0 to 7 if option1(i).value=true then op(i+1)=op(i+1)+1 end if next i

vb_optionOption Private语句
在Visual Basic编程中,Option Private语句的使用是为了防止非所属工程引用模块的内容。这在需要保护模块内部的实现细节、避免外部代码干扰的情况下尤为重要。例如,在允许引用跨越多个工程的主机应用程序中,通过使用Option Private Module,可以确保只有在特定工程内部才能访问到该模块的定义和实现。然而,在不...

VB的option问题
Private Sub Command1_Click()If Option1.Value Then '跳到界面1的代码(不知你这界面1是啥东东?窗体还是其他图片框之类的?)ElseIf Option2.Value Then '跳到界面2的代码 End If End Sub

VB的option的关联问题
用两个Frame框,每个Frame里都放3个option控件,设为控件数组.放一个command按钮 Dim 我 As Integer, 观众 As Integer, 总分 As Integer Private Sub Command2_Click()总分 = 我 + 观众 MsgBox "总分=" & 总分 End Sub Private Sub Option1_Click(Index As Integer)Select Case Index Case 0 我...

相似回答
大家正在搜