?? modlvtimer.bas
字號:
Attribute VB_Name = "modLvTimer"
' **********************************************************************
' 描 述:超市銷售系統源代碼
' Play78.com : 網站導航,源碼之家,絕對開源
' 海闊天空收集整理
' 主站地址:http://www.play78.com/
' 源碼下載地址:http://www.play78.com/blog
' 圖片下在地址:http://www.play78.com/pic
' QQ:13355575
' e-mail:hglai@eyou.com
' 編寫日期:2005年08月14日
' **********************************************************************
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Private Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Public Function lv_TimerCallBack(ByVal hwnd As Long, ByVal Message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim tgtButton As XPButton
CopyMemory tgtButton, GetProp(hwnd, "lv_ClassID"), &H4
Call tgtButton.TimerUpdate(GetProp(hwnd, "lv_TimerID"))
CopyMemory tgtButton, 0&, &H4
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -