?? modlvtimer.bas
字號:
Attribute VB_Name = "modLvTimer"
'超市銷售管理系統
'程序開發:lc_mtt
'CSDN博客:http://blog.csdn.net/lc_mtt/
'個人主頁:http://www.3lsoft.com
'郵箱:3lsoft@163.com
'注:此代碼禁止用于商業用途。有修改者發我一份,謝謝!
'---------------- 開源世界,你我更進步 ----------------' **********************************************************************
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 + -