Faire clignotter et déplacer un form avec un timer

Soyez le premier à donner votre avis sur cette source.

Vue 3 309 fois - Téléchargée 320 fois

Description

Encore un truc qui sert à rien...
Au lancement de l'appli, le Form change de couleur et un click dans la zone de texte fait bouger le tout.

C'est tout...

Duanra

Code: L'intéret est très relatif, je suis d'accord, mais bon... voila quoi...

Source / Exemple :


'       ************************************
'       *Mouvement de Form et Clignottement      *
'       * 22 mai 2003        Par: Duanra                *
'       ************************************

Option Explicit
Dim fillcol As Long
Dim flag As Boolean

Private Sub Form_Load()

Timer1.Interval = 1000
Timer1.Enabled = True

flag = True
fillcol = Form1.FillColor
Text1.Text = ""
End Sub

Private Sub Text1_Change()
If Text1.Text = "salut" Then
Unload Me
End If
End Sub
Private Sub text1_click()
    Timer2.Enabled = True
    Timer2.Interval = 100
Form1.Move Form1.Top + 35, Form1.Left + 5
Text1.Move Text1.Left - 15

End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 150

flag = Not flag
If (flag = False) Then
Form1.BackColor = &HFF&
Text1.BackColor = &HFFFFFF
Label1.ForeColor = &H80C0FF
Label1.BackColor = &HFF80FF

Else
Form1.BackColor = fillcol
Text1.BackColor = &HFF8080
Label1.ForeColor = &HFF80FF
Label1.BackColor = &H80C0FF
End If

End Sub

Private Sub Timer2_Timer()
Timer2.Interval = 100
Form1.Move Form1.Top + 12, Form1.Left - 25
Text1.Move Text1.Left - 15
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

Messages postés
85
Date d'inscription
lundi 18 février 2002
Statut
Membre
Dernière intervention
20 novembre 2005

C bien, Pour quelqu'un qui commence à Visual basic, c'est tres bien ! de petite function de base pour maitriser VB.. mais bon. lutiliter apart sa, yen na pas! pour les x-pert, Rien de utile, mais si tu debute et bien lache pas et continue, mais essaie de faire des chose de + grosse envergure pour la prochaine fois!

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.