欢迎访问服务器技术网-www.fuwuqijishu.com

vb的小问题

程序设计 fuwuqijishu 2年前 (2022-10-01) 18次浏览 0个评论 扫描二维码

关于我做这样一个设计: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选置后即可。

喜欢 (0)
发表我的评论
取消评论
表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

Warning: error_log(/www/wwwroot/fuwiqijishu/wp-content/plugins/spider-analyser/#log/log-2409.txt): failed to open stream: No such file or directory in /www/wwwroot/fuwiqijishu/wp-content/plugins/spider-analyser/spider.class.php on line 2900