Pourquoi mon ecran de veille marche pas

Question

Il y aurait-il qqn qui aurait la gentillesse de me dire pourquoi ma form de screensaver reste noire quand elle part! Merci. (Note, la procedure terminer : End)

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Call Terminer
End Sub

Private Sub Form_Load()

Dim SngGrosseur As Single, SngVitesse As Single
Dim Fois As Byte
Dim X1 As Integer, DimX2 As Integer, Y1 As Integer, Y2 As Integer
Dim Rayon As Integer, Couleur As Byte

SngGrosseur = Options.TxtGrosseur.Text
SngVitesse = Options.TxtVitesse.Text

minuterie1.Interval = SngVitesse

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Terminer
End Sub

Private Sub Terminer()
Options.Show
EcranDeVeille.Hide
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (IntXPréc 0 And IntYPréc 0) Or ((X - IntXPréc < 10) Or (Y - IntYPréc < 10)) Then
IntXPréc = X
IntYPréc = Y
Exit Sub
Else
Call Terminer
End If

End Sub

Private Sub minuterie1_Timer()

For Fois = 1 To 50
Randomize
X1 = Int(Rnd * 6723)
Y1 = Int(Rnd * 4312)
Couleur = Int(Rnd * 16)

Couleur = Int(Rnd * 15)
Me.DrawWidth = SngGrosseur  
Me.Circle (X1, Y1), QBColor(Couleur)
Next Fois

End Sub

cs_rene38 · Answer

Bonsoir

Tes déclarations :
Dim Fois As Byte
Dim X1 As Integer, X2 As Integer, Y1 As Integer, Y2 As Integer
Dim Rayon As Integer, Couleur As Byte
Doivent être dans Général - Déclarations et non dans Form_Load()

Attention :
Dim X1 As Integer, X2 As Integer, ...
et nol
Dim X1 As Integer, DimX2 As Integer,

cs_luke44 · Answer

c'est en effet une grave erreur de monde code,...mais sa ne change rien, la form reste noire, et rien ne se produit!

Pourquoi mon ecran de veille marche pas

2 réponses

Discussions similaires