看看这一段(答案):
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连接起来???好晕啊。。。
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 我...