chrisq35
Messages postés2Date d'inscriptionmercredi 15 janvier 2003StatutMembreDernière intervention15 janvier 2003
-
15 janv. 2003 à 00:49
xactise
Messages postés507Date d'inscriptionmardi 18 février 2003StatutMembreDernière intervention22 juin 2012
-
22 avril 2006 à 15:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
xactise
Messages postés507Date d'inscriptionmardi 18 février 2003StatutMembreDernière intervention22 juin 20122 22 avril 2006 à 15:46
ixibrec333 j'intervient certe un peu tard lol mais j'ai le meme problème que toi je creer des vb.commandbutton dynamique en fonction des donéne que j'ai sur une bdd access
y ont des nom incrementer
btn0 btn1 btn2 etc.. mon object de base sapel btn
pourtant si je fé
private sub btn_click()
msgbox("test")
end sub
ya que la derniere occurence qui fonctionne
et si je fait :
private sub btn1_click()
msgbox("testtt")
end sub
rien ne marche
voici mon bout de code
'Déclaration :
Public WithEvents btn As CommandButton
Public WithEvents btnn As CommandButton
Public WithEvents lbl As Label
Public WithEvents txtbx As TextBox
'form_load()
Private Sub Form_Load()
Set bd = OpenDatabase("mess.mdb", False)
Set rsc = bd.OpenRecordset("Select Nom,Prix FROM Produit")
x = 1600
c = 200
i = 0
If rsc.RecordCount > 0 Then
rsc.MoveFirst
x = x + 3000
c = c + 3000
rsc.MoveNext
i = i + 1
Loop
Else
MsgBox ("Aucun produit dans la base de données")
End If
End Sub
si tu peut m'aider pour savoir comment creer dynamiquement en meme temp que le commandbutton son evenement click sa serai bien
ixigrec333
Messages postés1Date d'inscriptionmardi 25 mars 2003StatutMembreDernière intervention30 mars 2003 30 mars 2003 à 19:41
command tu peux utilises les évènements comme label_Click() ?
j'utilise la même méthode que toi pour pour créer un label.
mais label_Click() ne fonctionne que sur le sernier label créé...
un truc que j'aurais zapper ?
chrisq35
Messages postés2Date d'inscriptionmercredi 15 janvier 2003StatutMembreDernière intervention15 janvier 2003 15 janv. 2003 à 00:49
vb.label c bien mais pour les controles utilisateurs ?
22 avril 2006 à 15:46
y ont des nom incrementer
btn0 btn1 btn2 etc.. mon object de base sapel btn
pourtant si je fé
private sub btn_click()
msgbox("test")
end sub
ya que la derniere occurence qui fonctionne
et si je fait :
private sub btn1_click()
msgbox("testtt")
end sub
rien ne marche
voici mon bout de code
'Déclaration :
Public WithEvents btn As CommandButton
Public WithEvents btnn As CommandButton
Public WithEvents lbl As Label
Public WithEvents txtbx As TextBox
'form_load()
Private Sub Form_Load()
Set bd = OpenDatabase("mess.mdb", False)
Set rsc = bd.OpenRecordset("Select Nom,Prix FROM Produit")
x = 1600
c = 200
i = 0
If rsc.RecordCount > 0 Then
rsc.MoveFirst
Do While rsc.EOF = False
Set lbl = Me.Controls.Add("VB.Label", "lbl" & i)
lbl.Caption = rsc!nom & " (" & rsc!prix & " ?) : "
lbl.Move c, 3500, (Len(rsc!nom) + Len(rsc!prix) + 8) * 120, 300
lbl.Visible = True
Set txtbx = Me.Controls.Add("VB.textbox", "txtbx" & i)
txtbx.Text = 0
txtbx.Move x, 3450, 300, 300
txtbx.Visible = True
txtbx.Enabled = False
Set btn = Me.Controls.Add("VB.commandbutton", "btn" & i)
btn.Caption = "+"
btn.Move x, 3100, 3000, 300
btn.Visible = True
Set btnn = Me.Controls.Add("VB.commandbutton", "btnn" & i)
btnn.Caption = "-"
btnn.Move x, 3800, 300, 300
btnn.Visible = True
x = x + 3000
c = c + 3000
rsc.MoveNext
i = i + 1
Loop
Else
MsgBox ("Aucun produit dans la base de données")
End If
End Sub
si tu peut m'aider pour savoir comment creer dynamiquement en meme temp que le commandbutton son evenement click sa serai bien
30 mars 2003 à 19:41
j'utilise la même méthode que toi pour pour créer un label.
mais label_Click() ne fonctionne que sur le sernier label créé...
un truc que j'aurais zapper ?
15 janv. 2003 à 00:49
vb.usercontrol1 ?