TEXTBOX "VIRTUELS" ( CONTROLS.ADD ) AVEC GESTION D'EVENEMENTS KEYPRESS

crenaud76

Messages postés: 4172
Date d'inscription: mercredi 30 juillet 2003
Statut: Membre
Dernière intervention: 9 juin 2006

- 12 sept. 2003 à 00:30
aKheNathOn

Messages postés: 276
Date d'inscription: dimanche 22 juillet 2001
Statut: Modérateur
Dernière intervention: 5 décembre 2013

- 17 janv. 2004 à 12:20

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8430-textbox-virtuels-controls-add-avec-gestion-d-evenements-keypress

aKheNathOn

Messages postés: 276
Date d'inscription: dimanche 22 juillet 2001
Statut: Modérateur
Dernière intervention: 5 décembre 2013

17 janv. 2004 à 12:20

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és: 6
Date d'inscription: jeudi 19 décembre 2002
Statut: Membre
Dernière intervention: 31 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és: 4172
Date d'inscription: mercredi 30 juillet 2003
Statut: Membre
Dernière intervention: 9 juin 2006

28
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 !!