如何制作启动画面 可以使用VB自带的SPLASH SCREEN Form, 问题太笼统,请具体一些. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以使用VB自带的SPLASH SCREEN Form 可以自己做一个嘛! 不用SPLASH SCREEN FORM,那东西改动太麻烦了.....这里有一段代码, 应该一看就.....Private Sub Form_Activate() Dim currenttime currenttime = Second(Time) While Abs(Second(Time) - currenttime) < 3 DoEvents Wend Unload Me frmmain.ShowEnd SubPrivate Sub Form_Load() frmSplash.Picture = LoadPicture(App.Path & "\splash.jpg") '或者 Image1.Picture = LoadPicture(App.Path & "\splash.jpg")End Sub 最简单就是vb自带的flash窗口了 在一个form_load事件中的form.picture="" '输入你启动画面的图片路径。 我的E-mail:[email protected],发给我一个好吗 请也发一个给我吧:[email protected] 我也要:[email protected] .谢谢了! 我也要! :)[email protected] 关于MSChart取的数据类型的问题 关于vb删除(隐藏显示)其他程序在任务栏中的图标问题 以下这段语句在模块中就能应用,在类中就不能用???? 文件读取 问个MSDN的问题 DataReport报表程序在未安装vb的98下运行提示msdbrptr.dll版本过期?该怎么解决? 在VB中调用EXCEL的一个大难题!!!!! ???如何将更改dbf表的字段名?? 求一个EXCEL公式的输入参数写法 关于ADO事件如何加入到程序中? 问:大家看看能不能实现! 对于一个已经存在的软件,现在要加入新的认证(通过IC卡),请问大家有什么好的建议?
Dim currenttime
currenttime = Second(Time)
While Abs(Second(Time) - currenttime) < 3
DoEvents
Wend
Unload Me
frmmain.Show
End Sub
Private Sub Form_Load()
frmSplash.Picture = LoadPicture(App.Path & "\splash.jpg")
'或者 Image1.Picture = LoadPicture(App.Path & "\splash.jpg")End Sub
[email protected]