|
|
楼主 |
发表于 2004-7-17 12:24:08
|
显示全部楼层
to frank:
RM启动器的窗口：
Private Sub Command1_Click()－－－－>当按下“启动游戏时”检测是否有flash文件，若有则关闭当前窗口，启动flash窗口
If Dir(\".\\logo.swf\") = \"\" Then
－－－－当不存在flash时，启动程序－－－－－
Dim RetVal
RetVal = Shell(\".\\RPG_RT.exe\", 1)----->启动外部程序
---------------以下是延时器－－－－－－－－－－－
k = 1
Do While k < 30000000
k = k + 1
Loop
---------------延时器结束－－－－－－－－－－－
SendKeys \"{F4}\", True－－－－>输送F4指令
Unload Me－－－－>关闭当前窗口
Else
－－－－当存在flash时，关闭当前窗口，启动flash窗体－－－－－－
Unload Me
flash.Show [vbModal] －>启动flash窗口
End If
End Sub
Private Sub Command2_Click()－>当按下打开网页的按钮时，启动IE并打开幻想森林主页。
Dim IECtl As Object
Set IECtl = GetObject(\"\", \"INTERNETEXPLORER.APPLICATION\") \'打开网页
IECtl.Navigate \"www.rpgchina.com\"
IECtl.Visible = 1
End Sub
Private Sub Command3_Click()------>当按下退出时，关闭当前窗口
Unload Me
End Sub
Private Sub Image1_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub C全屏模式启动游戏_Click()－>当按下全屏游戏按钮时，启动flash或程序，与上面区别是没有延时器和F4
If Dir(\".\\logo.swf\") = \"\" Then \'检测是否有flash
Dim RetVal
RetVal = Shell(\".\\RPG_RT.exe\", 1) \'启动外部程序
Unload Me
Else
Unload Me
flashQ.Show [vbModal] \'启动flash窗口
End If
End Sub
Private Sub Form_Load()－>当程序加载时，检测是否有图片，有则加载
If Dir(\".\\logo.jpg\") = \"\" Then \'检测是否有图片
Else
Picture1.Picture = LoadPicture(\".\\logo.jpg\") \'载入图片
End If
End Sub
RM启动窗口完毕；
flashQ窗口全屏：
Private Sub Command1_Click()－>当按下跳过时，启动程序
Dim RetVal
RetVal = Shell(\".\\RPG_RT.exe\", 1) \'启动外部程序
Unload Me
End Sub
Private Sub Form_Load()－>当窗口加载时，自动播放flash
ShockwaveFlash1.Movie = App.Path & \"\\logo.swf\"
ShockwaveFlash1.Play
End Sub
Private Sub Timer1_Timer()－>这个是计时器，先在属性里面设定时间，我设了100毫秒，即每100毫秒循环一次
If ShockwaveFlash1.Playing = False Then－>当播放停止时，启动程序
Dim RetVal
RetVal = Shell(\".\\RPG_RT.exe\", 1) \'启动外部程序
Unload Me
End If
End Sub
flashQ窗口全屏完毕；
flash窗口和flashQ全屏代码差不多，只是在启动程序时多了延时功能。
|
|
楼主: 瓜仔
[复制链接]
发表于 2004-7-17 03:26:02
发表于 2004-7-17 05:36:55
发表于 2004-7-17 09:50:58
