Monsieur l'as du VB qui refais le vb lui-même documentes-toi, et essayes ça :
Dim WithEvents ctlDynamic As VBControlExtender
Private Sub ctlDynamic_ObjectEvent(Info As EventInfo)
' test for the click event of the TreeView
If Info.Name = "Click" Then
MsgBox "You clicked " & ctlDynamic.Name
End If
End Sub
Private Sub Form_Load()
Set ctlDynamic = Controls.Add("VB.TextBox", _
"myctl", Form1)
ctlDynamic.move 0, 45, 1500, 300
ctlDynamic.Visible = True
End Sub
Sur ce , avant de poster une source, ou prendre un temps fou à coder comme un boeu, t'as le forum, prends le temps de sonder, demandes aux gens, vas sur google, bréf essayes de te documenter...
Ce code est justement fait pour VB6 au passage, donc creanaud76 avais raison.
Bonne prog à vous tous ;), akh
cs_nico711
Messages postés6Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention31 août 2004 21 nov. 2003 à 18:01
Tu te trompes
VB (version 6 en tout cas) ne gère absolument pas les évenements des objet crées dynamiquement.
par exemple:
Si tu créés dynamiquement une zone de texte "txtInput" via :
Set txtInput=me.Controls.Add("VB.TextBox","txtInput",me)
faut même pas espérer que l'évenement Keypress du textbox....
Private Sub txtInput_KeyPress(KeyAscii As Integer)
End sub
....soit pris en compte
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 12 sept. 2003 à 00:30
Je ne vois vraiment pas ou tu veux en venir avec ce code ! Tu simules un evt Keypress pour un controle dynamiquement créé !! Tu sais que Vb le fait nativement !!
17 janv. 2004 à 12:20
Dim WithEvents ctlDynamic As VBControlExtender
Private Sub ctlDynamic_ObjectEvent(Info As EventInfo)
' test for the click event of the TreeView
If Info.Name = "Click" Then
MsgBox "You clicked " & ctlDynamic.Name
End If
End Sub
Private Sub Form_Load()
Set ctlDynamic = Controls.Add("VB.TextBox", _
"myctl", Form1)
ctlDynamic.move 0, 45, 1500, 300
ctlDynamic.Visible = True
End Sub
Sur ce , avant de poster une source, ou prendre un temps fou à coder comme un boeu, t'as le forum, prends le temps de sonder, demandes aux gens, vas sur google, bréf essayes de te documenter...
Ce code est justement fait pour VB6 au passage, donc creanaud76 avais raison.
Bonne prog à vous tous ;), akh
21 nov. 2003 à 18:01
VB (version 6 en tout cas) ne gère absolument pas les évenements des objet crées dynamiquement.
par exemple:
Si tu créés dynamiquement une zone de texte "txtInput" via :
Set txtInput=me.Controls.Add("VB.TextBox","txtInput",me)
faut même pas espérer que l'évenement Keypress du textbox....
Private Sub txtInput_KeyPress(KeyAscii As Integer)
End sub
....soit pris en compte
12 sept. 2003 à 00:30