
Private
Sub
cmdClose_Click()
Me.Hide
Form2.Show
End
Sub
一般窗体是Hide隐藏达到“关闭”效果,而不是End(结束程序)或Unload(卸载窗体)除非搜缺衡你不想继续后续执行。
'添加一个timer控件,timer1'设置timer1的渣纳属性intelval为5000(单位为毫秒如裤没)
Private Sub Timer1_Timer()
form1.hide
Form2.Show
Timer1.Enabled = False
End Sub
'另外你纯物要再添加一个窗体form2
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)