2012年4月20日
笔记2
该文被密码保护。 阅读全文
posted @ 2012-04-20 07:14 牧涛 阅读(7) 评论(0) 推荐(0) 编辑
笔记
该文被密码保护。 阅读全文
posted @ 2012-04-20 07:11 牧涛 阅读(2) 评论(0) 推荐(0) 编辑
frmMain(frmMain.frm)窗体
摘要： 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 阅读全文
posted @ 2012-04-20 07:04 牧涛 阅读(398) 评论(0) 推荐(0) 编辑
frmSplash(frmSplash.frm)窗体
摘要： 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 阅读全文
posted @ 2012-04-20 07:03 牧涛 阅读(377) 评论(0) 推荐(0) 编辑
frmMain(frmMain.frm)窗体
摘要： 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 阅读全文
posted @ 2012-04-20 07:02 牧涛 阅读(1383) 评论(0) 推荐(0) 编辑
vb(1)---modMain(modMain.bas)模块
摘要： 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 阅读全文
posted @ 2012-04-20 07:01 牧涛 阅读(481) 评论(0) 推荐(0) 编辑