עבור לתוכן

עזרה בהכנת טיימר... VB6

Featured Replies

פורסם

הכנתי את הקוד הזה:

Private Sub Timer1_Timer()
Dim Counter
Counter = 0
If Timer1 = 1000 Then
Counter = Counter + 1
Timer1.Enabled = True
End If
If Counter = 60 Then
MsgBox ("HELLO I'M A MSGBOX PROMPT")
End Sub

בקוד ניסיתי שזה יציג את ההודעה - "HELLO I'M A MSGBOX PROMPT" לאחר 60 שניות.

ואני לא יודע מה הבעיה בבקשה תקנו לי אני יושב על זה שעות...

פורסם

אתה צריך לכוון את המאפיין interval ולעשות לטיימר enable מחוץ לטיימר עצמו

פורסם
  • מחבר

אתה צריך לכוון את המאפיין interval ולעשות לטיימר enable מחוץ לטיימר עצמו

ככה?

Private Sub Timer1_Timer()
Timer1.Enabled = True
Dim Counter
Counter = 0
If Timer1 = 1000 Then
Counter = Counter + 1
End If
If Counter = 5 Then
MsgBox ("HELLO I'M A MSGBOX PROMPT")
End If
End Sub

אם זה צריך להיות ממש בחוץ אז זה לא עובד זה מראה לי שגיאה... אתה יכול לתקן לי בבקשה?

פורסם

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 60000
End Sub

Private Sub Timer1_Timer()
MsgBox ("HELLO I'M A MSGBOX PROMPT")
End Sub

פורסם
  • מחבר

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 60000
End Sub

Private Sub Timer1_Timer()
MsgBox ("HELLO I'M A MSGBOX PROMPT")
End Sub

ושל - 2 דקות אתה יכול לעשות לי? אם כן תודה...

פורסם

אותו דבר

עם interval של 120000

ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

דיונים חדשים