vb中要让很多个command都有一个功能

vb中的command功能~

Private Sub Command1_Click()
Dim timu(10) As String

timu(0) = "题目0" & vbCrLf & _
"A：选项1" & vbCrLf & _
"B：选项2" & vbCrLf & _
"C：选项3" & vbCrLf & _
"D：选项4"
timu(1) = "题目1 " & vbCrLf & _
"A：选项1" & vbCrLf & _
"B：选项2" & vbCrLf & _
"C：选项3" & vbCrLf & _
"D：选项4"
timu(2) = "题目2" & vbCrLf & _
"A：选项1" & vbCrLf & _
"B：选项2" & vbCrLf & _
"C：选项3" & vbCrLf & _
"D：选项4"
timu(3) = "题目3" & vbCrLf & _
"A：选项1" & vbCrLf & _
"B：选项2" & vbCrLf & _
"C：选项3" & vbCrLf & _
"D：选项4"
timu(4) = "题目4" & vbCrLf & _
"A：选项1" & vbCrLf & _
"B：选项2" & vbCrLf & _
"C：选项3" & vbCrLf & _
"D：选项4"
timu(5) = "题目5 " & vbCrLf & _
"A：选项1" & vbCrLf & _
"B：选项2" & vbCrLf & _
"C：选项3" & vbCrLf & _
"D：选项4"
timu(6) = "题目6 " & vbCrLf & _
"A：选项1" & vbCrLf & _
"B：选项2" & vbCrLf & _
"C：选项3" & vbCrLf & _
"D：选项4"
timu(7) = "题目7" & vbCrLf & _
"A：选项1" & vbCrLf & _
"B：选项2" & vbCrLf & _
"C：选项3" & vbCrLf & _
"D：选项4"
timu(8) = "题目8" & vbCrLf & _
"A：选项1" & vbCrLf & _
"B：选项2" & vbCrLf & _
"C：选项3" & vbCrLf & _
"D：选项4"
timu(9) = "题目9" & vbCrLf & _
"A：选项1" & vbCrLf & _
"B：选项2" & vbCrLf & _
"C：选项3" & vbCrLf & _
"D：选项4"
timu(10) = "题目10" & vbCrLf & _
"A：选项1" & vbCrLf & _
"B：选项2" & vbCrLf & _
"C：选项3" & vbCrLf & _
"D：选项4"
Randomize
Text1 = timu(Int(Rnd * 11))
End Sub

在command的click事件中 加入一个 static 变量，
Static num as Integer
num=num+1
然后 你通过num值去判断出现的文字。用select语句、数组结合下标都行

'用command数组
dim CommandClickState(command1.ubound) as boolean '记忆原来的颜色状态
Private Sub Command1_Click(Index as intger)
IF CommandClickState(i)=True then
Command1(i).BackColor=RGB(125,126,127)
CommandClickState(i)=False
else
Command1(i).BackColor=RGB(255,255,255)
CommandClickState(i)=True
endif
end sub

颜色变？什么变，使窗体还是按钮或者其他控件？说清楚

---

泉山区18939082556： vb中要让很多个command都有一个功能 - ？
斗邢新康： '用command数组dim CommandClickState(command1.ubound) as boolean '记忆原来的颜色状态Private Sub Command1_Click(Index as intger) IF CommandClickState(i)=True then Command1(i).BackColor=RGB(125,126,127) CommandClickState(i)=False else Command1(i).BackColor=RGB(255,255,255) CommandClickState(i)=True endifend sub

泉山区18939082556： VB怎么让同一个窗体上很多按钮执行相同的命令(不是控件数组).谢谢啊,急… - ？
斗邢新康： 写一个public sub函数 每个按钮都调用这个sub不就行了? Public Sub MySub() '在这里写要执行的命令 End Sub 然后每个Button都调用这个sub:Private Sub Command1_Click() MySub() End Sub Private Sub Command2_Click() MySub() End Sub ...

泉山区18939082556： VB中怎么实现 Command 多次点击都有效果 - ？
斗邢新康： 你应该用两个按钮来实现,把其中一个设置为不可见就可以了.

泉山区18939082556： 如何在VB中按一个按钮如 command1 弹出10个以上的窗口 (越多越好)？
斗邢新康：弹出1000个CMD窗口 想要多少就把1000改成多少 Private Sub Command1_Click() For i = 1 To 1000 Shell ＂cmd.exe ＂, vbNormalFocus Next i End Sub

泉山区18939082556： VB 的控件在一个窗口内能不能突破255个的数量限制啊? - ？
斗邢新康： 这是VB编程软件的限制,可以将一些只是提示没有实际作用的标签做为控制数组,另外用控制数组编程还简单,程序便于维护,如有6个按钮,里面有程序,就要写6段程序...

泉山区18939082556： 有关vb的问题.我定义一个变量a,一开始让它为0.窗体中有很多个commmand, - ？
斗邢新康： 按下是command 的话 可以在 Private Sub Command1_Click() 事件中

泉山区18939082556： VB中如何用代码添加命令按钮 - ？
斗邢新康： 按以下步骤实现动态添加命令按钮 (1)新建一个VB6工程 (2)Form1窗体代码 Option Explicit'定义要动态添加的命令按钮变量(带事件处理) Dim WithEvents cmdX As CommandButton'点击动态添加的按钮,弹出对话框 Private Sub cmdX...

泉山区18939082556： VB中如何用command 同时控制多个label,并让他们同时发生? - ？
斗邢新康： 如果你要调用label 的事件 则可以直接在command的事件中写上 call label事件名

泉山区18939082556： vb中让几个控件全点击过才结束,怎么用 - ？
斗邢新康： Dim a(2) As BooleanPrivate Sub Command1_Click()a(0) = TrueEnd SubPrivate Sub Command2_Click()a(1) = TrueEnd SubPrivate Sub Command3_Click()a(2) = TrueEnd SubPrivate...

泉山区18939082556： VB中关于控制多个控件的操作 - ？
斗邢新康： '如果控件命名是有规律的就很简单,一个循环搞定 Private Sub Command1_Click() For i = 1 To 3 '我用了3个文本框,分别为Text1,Text2,Text3'如果你的10个文本框分别是Text1到Text10,则直接把上面的3改为10即可 Me.Controls(＂Text＂ & i)....