Проблема при компиляции

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
olmax
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 06.06.2010 (Вс) 14:03

Проблема при компиляции

Сообщение olmax » 06.06.2010 (Вс) 14:13

Язык программирования VB6.
На форму помещаяю фигуру (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!

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

    TopList