假如工程中有一个窗体frmTest 你可在代码中这样实现多窗体 private sub Command1_Click() dim f as frmTest set f=new frmTest frmTest.Show end sub
再加一句,在报警窗体的load事件中给窗体定位,不然所有窗体都会在一个位置上。方法如下: 声明一个全局变量为integer型,(如:public i as integer)每次加载报警窗体前此变量加一(i=i+1),在报警窗体的load事件中,根据i的值来决定窗体的位置。在窗体的unload事件中i-1就可以了。
先做好一个窗体,这个窗体有一个标签显示错误信息, 把这个窗体看成一个类,在程序的其它地方调用。比如你做好了窗体叫frmmsgbox,有一个LABEL控件叫lblMsg,可以这样调用: Dim fMsg As New frmmsgbox fMsg.lblMsg = "…………" fMsg.Show
你可在代码中这样实现多窗体
private sub Command1_Click()
dim f as frmTest
set f=new frmTest
frmTest.Show
end sub
声明一个全局变量为integer型,(如:public i as integer)每次加载报警窗体前此变量加一(i=i+1),在报警窗体的load事件中,根据i的值来决定窗体的位置。在窗体的unload事件中i-1就可以了。
把这个窗体看成一个类,在程序的其它地方调用。比如你做好了窗体叫frmmsgbox,有一个LABEL控件叫lblMsg,可以这样调用:
Dim fMsg As New frmmsgbox
fMsg.lblMsg = "…………"
fMsg.Show