Controls.Add sur ProgressBar
elyote666
Messages postés
30
Date d'inscription
lundi 17 mai 2004
Statut
Membre
Dernière intervention
4 octobre 2007
-
22 févr. 2006 à 00:13
elyote666 Messages postés 30 Date d'inscription lundi 17 mai 2004 Statut Membre Dernière intervention 4 octobre 2007 - 22 févr. 2006 à 22:33
elyote666 Messages postés 30 Date d'inscription lundi 17 mai 2004 Statut Membre Dernière intervention 4 octobre 2007 - 22 févr. 2006 à 22:33
A voir également:
- Vb6 controls.add
- Vb6 instr ✓ - Forum VB.NET
- Vb6 mid ✓ - Forum Visual Basic
- Vb6 split ✓ - Forum Visual Basic 6
- Datediff vb6 ✓ - Forum Visual Basic 6
- Vb6 decompiler - Forum Visual Basic 6
2 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
22 févr. 2006 à 02:05
22 févr. 2006 à 02:05
salut,
' Microsoft Windows Common Controls 6.0 (SP6)
' %SYSTEM% -> mscomctl.ocx
la MSDN dit en effet de déclarer ton objet en tant que :
Dim ctlExtender As VBControlExtender
ensuite les évènements sont alors à récupérer ainsi :
Private Sub extObj_ObjectEvent(Info As EventInfo)
' Programme les événements du contrôle avec Select Case.
Select Case Info.Name
Case "UserName"
' Vérifie la valeur du nom utilisateur.
MsgBox Info.EventParameters("UserName").Value
' D'autres cas sont montrés
Case Else ' Événement inconnu
' Gère les événements inconnus ici.
End Select
End Sub
l'attribution au Form_Load est alors :
Set ctlExtender = Controls.Add("Projet1.ProgressBar1", "MyControl")
With ctlExtender
.Visible = True
.Value = 50
End With
testé VB6, pas fameux ..... (erreur 711)
PCPT [AFCK]
' Microsoft Windows Common Controls 6.0 (SP6)
' %SYSTEM% -> mscomctl.ocx
la MSDN dit en effet de déclarer ton objet en tant que :
Dim ctlExtender As VBControlExtender
ensuite les évènements sont alors à récupérer ainsi :
Private Sub extObj_ObjectEvent(Info As EventInfo)
' Programme les événements du contrôle avec Select Case.
Select Case Info.Name
Case "UserName"
' Vérifie la valeur du nom utilisateur.
MsgBox Info.EventParameters("UserName").Value
' D'autres cas sont montrés
Case Else ' Événement inconnu
' Gère les événements inconnus ici.
End Select
End Sub
l'attribution au Form_Load est alors :
Set ctlExtender = Controls.Add("Projet1.ProgressBar1", "MyControl")
With ctlExtender
.Visible = True
.Value = 50
End With
testé VB6, pas fameux ..... (erreur 711)
PCPT [AFCK]
elyote666
Messages postés
30
Date d'inscription
lundi 17 mai 2004
Statut
Membre
Dernière intervention
4 octobre 2007
22 févr. 2006 à 22:33
22 févr. 2006 à 22:33
J'ai essayé ton code, erreur 711.?
