Comment utiliser un timer

Télécharger le projet
Commenter

Description

une petite source très simple pour expliquer comment fonctionne un timer. dsl ce n'est pas paufiner, et les dessin ne sont pas beaux dans le zip.

Source / Exemple : 


Dim label As Boolean
Dim i As Integer ' Déclare les variables.
Const img1 = "c:\vb\timerrrr\piou.bmp"
Const img2 = "c:\vb\timerrrr\cage.bmp"

Private Sub Command1_Click()
    On Error GoTo lasbas
    Text1.Text = CInt(Text1.Text)
    Timer1.Interval = Text1.Text
    GoTo overheer
lasbas:
MsgBox "il ne faut que des nombres"
Text1.Text = 1000
Timer1.Interval = Text1.Text
overheer:
End Sub

Private Sub Form_Load()

Timer1.Interval = 1000   ' Définit l'intervalle.
Image1.Picture = LoadPicture("c:\vb\timerrrr\piou.bmp")
label = True
Text1.Text = Timer1.Interval
   
End Sub

Private Sub Timer1_timer()
    
     If label = True Then
        Form1.Image1.Picture = LoadPicture(img2)
        label = False
    Else
        Form1.Image1.Picture = LoadPicture(img1)
        label = True
    End If
    
End Sub

Conclusion :


si vous avez des questions des remarque n'hesitez pas
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (huuuuu21)