На форму помещаяю фигуру (Shape1). Добавляю модуль (мультимедийный таймер):
- Код: Выделить всё
Option Explicit
Private Declare Function timeSetEventA Lib "winmm.dll" Alias "timeSetEvent" (ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, ByVal uFlags As Long) As Long
Private Declare Function timeKillEventA Lib "winmm.dll" Alias "timeKillEvent" (ByVal uID As Long) As Long
Public m As Long
Public mm As Long
Public TimerID As Long
Public M_Timer As Long
Private Sub TimerProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, ByVal dw1 As Long, ByVal dw2 As Long)
M_Timer = M_Timer + 1
m = M_Timer + mm
Form1.Shape1.Left = m
End Sub
Public Sub StartTimer()
TimerID = timeSetEventA(1, 0, AddressOf TimerProc, 0, 1)
End Sub
Public Sub StopTimer()
timeKillEventA (TimerID)
End Sub
Теоретически фигура должна двигаться по экрану. В среде VB6 так и происходит. Однако после компиляции программа не работает. Не пойму в чем дело? Подскажите как избежать ошибки?
[Viper] :: Используй тэги CODE!