该文被密码保护。 阅读全文
该文被密码保护。 阅读全文
摘要:
frmMain(frmMain.frm)窗体:有两个Timer控件Private Sub tmr790Blink_Timer()End SubPrivate Sub tmrUpdateTime_Timer()Dim Elapsed As LongDim nHours As Long, nMinutes As Long, nSeconds As LongDim strH As String, strMin As String, strSec As StringDim strTimeStatus As StringDim MaxLen As ByteInfo.ThisTime = GetTickC 阅读全文
摘要:
frmSplash(frmSplash.frm)窗体:一个Timer窗体Private Sub Form_Click()CreateGame 1 'Initialize gamefrmMain.Show 'Show windowUnload MeEnd SubPrivate Sub tmrEffect_Timer()Dim nX As Long, nY As Long, Cnt As LongDim Delay As Long, T1 As Long, T2 As LongDim Start As Byte, nSteps As ByteDim Ret As POINTAPID 阅读全文
摘要:
frmMain(frmMain.frm)窗体:有两个Timer控件Private Sub tmr790Blink_Timer()End SubPrivate Sub tmrUpdateTime_Timer()Dim Elapsed As LongDim nHours As Long, nMinutes As Long, nSeconds As LongDim strH As String, strMin As String, strSec As StringDim strTimeStatus As StringDim MaxLen As ByteInfo.ThisTime = GetTickC 阅读全文
摘要:
modMain(modMain.bas)模块:Option Explicit'API STUFF:'---------------------------------------------'TYPES:Public Type POINTAPI x As Long y As LongEnd TypePublic Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits 阅读全文