|
楼主 |
发表于 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全屏代码差不多,只是在启动程序时多了延时功能。
|
|