cs_lermite222
Messages postés492Date d'inscriptionjeudi 5 avril 2007StatutMembreDernière intervention 2 juillet 2012
-
20 nov. 2011 à 11:28
cs_lermite222
Messages postés492Date d'inscriptionjeudi 5 avril 2007StatutMembreDernière intervention 2 juillet 2012
-
20 nov. 2011 à 12:46
Bonjour,
Comme dis dans le titre j'ai un problème avec le handles d'un module de classe. Avec les Event et les WithEvents
L'erreur:
La clause Handles requiert une variable WitEvents définie dans le conteneur ou l'un de ses types de base. Bien entendu, je me suis connécté sur la page MSDN de RaiseEvent J'ai suivi les explication et toujours la même erreur.
J'ai finalement ouvert un nouveau projet et fait un copier coller de l'exemple.
Déjà qu'il y a une erreur au départ, la déclaration de la classe est mal formulée et mal positionnée. J'ai donc rectifier par..
Public Class Form1
Dim mText = New TimerState
Private Sub Form1_Load() Handles MyBase.Load
Button1.Text = "Start"
End Sub
Et.. roujours le même message
Pourriez-vous m'aiguiller ?
Merci d'avance.
A+
cs_lermite222
Messages postés492Date d'inscriptionjeudi 5 avril 2007StatutMembreDernière intervention 2 juillet 20124 20 nov. 2011 à 12:46
Bon, finalement j'ai trouvé
suffisait d'ajouter une ligne.. mais c'est pas facile quand même l'aide n'est pas complète.
Pour ceux qui rechercheraient la même chose...
Public Class Form1
WithEvents mText As New TimerState
Private Sub Form1_Load() Handles MyBase.Load
Button1.Text = "Start"
End Sub
Private Sub Button1_Click() Handles Button1.Click
mText.StartCountdown(10.0, 0.1)
End Sub
Private Sub mText_ChangeText() Handles mText.Finished
TextBox1.Text = "Done"
End Sub
Private Sub mText_UpdateTime(ByVal Countdown As Double
) Handles mText.UpdateTime
TextBox1.Text = Format(Countdown, "##0.0")
' Use DoEvents to allow the display to refresh.
My.Application.DoEvents()
End Sub
End Class