比如说:本页面是form1,转到form2
还有form可不可以用其它做过的form,怎么加载进去
假设form1上有个按钮Command1,按下按钮后,form1消失,form2显示,代码如下:
Private Sub Command1_Click()
unload form1 '卸载form1
load form2 '加载form2(注意这里只加载了,还没能显示出来,需要下一个语句来显示)
form2.show '显示form2
End Sub
如果只是希望点击按钮后,原来的form1仍在,将form2显示出来,并且获得焦点,代码如下:
Private Sub Command1_Click()
load form2 '加载form2(注意这里只加载了,还没能显示出来,需要下一个语句来显示)
form2.show '显示form2
form2.Setfocus 'form2获得焦点,会显示在屏幕的最前面
End Sub
Private Sub Command1_Click()
unload form1 '卸载form1
load form2 '加载form2(注意这里只加载了,还没能显示出来,需要下一个语句来显示)
form2.show '显示form2
End Sub
如果只是希望点击按钮后,原来的form1仍在,将form2显示出来,并且获得焦点,代码如下:
Private Sub Command1_Click()
load form2 '加载form2(注意这里只加载了,还没能显示出来,需要下一个语句来显示)
form2.show '显示form2
form2.Setfocus 'form2获得焦点,会显示在屏幕的最前面
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2013-04-01
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
M_zonghe_Click‘这是菜单事件的名字
Case 2
M_jifen_Click‘这是菜单事件的名字
End Select
End Sub
Private Sub M_zonghe_Click()’菜单点击的时候显示窗体
Form2.Show
End Sub
Private Sub M_jifen_Click()’菜单点击的时候显示窗体
Form3.Show
End Sub本回答被网友采纳
Select Case Button.Index
Case 1
M_zonghe_Click‘这是菜单事件的名字
Case 2
M_jifen_Click‘这是菜单事件的名字
End Select
End Sub
Private Sub M_zonghe_Click()’菜单点击的时候显示窗体
Form2.Show
End Sub
Private Sub M_jifen_Click()’菜单点击的时候显示窗体
Form3.Show
End Sub本回答被网友采纳
第2个回答 2013-04-01
假设您是在form1里面点击command1然后就跳到form2那么代码就是。在command1里面写入form2.show。有什么问题可以追问我,如果没有请给我满意答案,谢谢。