关于我做这样一个设计:form1中有下拉列表combo1,设其中有1,2两项,command0一个。form2中有command1,command2大小一样,重叠,初始时command1在上。
希望达到效果:选1时,点击command0,form2弹出,且command1在上,选2时,点击command0,form2弹出,且commad2在上。
只需说明如何使form2出现时,command2在上
QQ: 9
如果可以,小弟愿提高悬赏
的问题
受Soidco2回答的启发,用如下代码可达要求:
Option Explicit
Dim aa As Byte
Private Sub Combo1_Click()
aa = Combo1
Command0。Enabled = True
End Sub
Private Sub Command0_Click()
If aa = 1 Then
Form2。
Command1。ZOrder 0
ElseIf aa = 2 Then
Form2。Command2。ZOrder 0
End If
Form2。Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
这里FORM2中COMMAND1及COMMAND2谁在前并不重要。
而且假如COMMAND2在前,则可在VB6调试窗口,用鼠标右键点击COMMAND2选置后即可。