
3个回答
展开全部
可以在模块的主函数中插入Form1.show类似的代码,如:
Sub main()
Form1.show '这个窗体就是放图片的
。。。。。。
End Sub
可以在Form1窗体载入后进行计时,如计时到5秒后,自动退出,并打开程序的主窗体。。。
Sub main()
Form1.show '这个窗体就是放图片的
。。。。。。
End Sub
可以在Form1窗体载入后进行计时,如计时到5秒后,自动退出,并打开程序的主窗体。。。
追问
代码能完整点吗
追答
这里简单举例了一下,没加模块,只放了2窗体,道理是相通的。
程序中放2个窗体Form1和Form2,Form1上你可以加上喜欢的图片,加上Timer1控件。
下面代码全部放在Form1
Public X As Integer
Private Sub Form_Load()
X = 0
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
X = X + 1
If X = 5 Then
Timer1.Enabled = False
Form2.Show
Unload Form1
End If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询