?? modrunbullet.bas
字號:
Attribute VB_Name = "ModRunBullet"
Option Explicit
Public HdcBaffer As Long '主界面緩沖區
'public
Public BulNew As Bullet
Public BulBaf(1 To 100) As RunBullet '主界面最多存在100 顆子彈 ‘’動態類型
Public Function BulletRunNew(ByVal HdcBul As Long, ByVal Cx As Single, ByVal Cy As Single, ByVal TypeBul As Byte)
Dim Cb As Byte '記數
For CountBul = 1 To 100
If BulBaf(Cb).HdcRun = 0 Then
Select Case TypeBul
Case 0
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -