Faire clignotter et déplacer un form avec un timer

Télécharger le projet
Commenter

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
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 (cs_Duanra)