OVH Cloud OVH Cloud

extraction d'une variable d'un controle

4 réponses
Avatar
alain
Bonjour,
Débutant en VB, je désire savoir quelle est la méthode pour récupérer une
variable (chiffre) d'un contrôle que je viens de créer, pour la placer dans
un label de ma
forme.
Par avance merci de votre aide.
Alain

4 réponses

Avatar
John Smith
Salut,

Il faudrait que tu sois plus précis sur le contrôle (textbox combobox
etc...)

"alain" wrote in message
news:43fa0a37$0$27114$
Bonjour,
Débutant en VB, je désire savoir quelle est la méthode pour récupérer une
variable (chiffre) d'un contrôle que je viens de créer, pour la placer
dans un label de ma
forme.
Par avance merci de votre aide.
Alain





Avatar
alain
Bonsoir,
- Pour plus de précision, j'ai fait un contrôle (activeX) qui est une roue
codeuse qui incrémente ou des-incrémente des chiffres de 1 à 100 avec des
flèches.
- Dans ma form je place 1 ou X fois mon contrôle fait maison.
- Mais je ne sais pas comment récupérer les valeurs de chaque contrôles pour
les placer dans des labels installés dans ma form.
J'espère que je suis plus clair maintenant......
Alain


"John Smith" a écrit dans le message de news:
_joKf.4969$%
Salut,

Il faudrait que tu sois plus précis sur le contrôle (textbox combobox
etc...)

"alain" wrote in message
news:43fa0a37$0$27114$
Bonjour,
Débutant en VB, je désire savoir quelle est la méthode pour récupérer une
variable (chiffre) d'un contrôle que je viens de créer, pour la placer
dans un label de ma
forme.
Par avance merci de votre aide.
Alain









Avatar
Clive Lumb
alain wrote:
Bonsoir,
- Pour plus de précision, j'ai fait un contrôle (activeX) qui est une
roue codeuse qui incrémente ou des-incrémente des chiffres de 1 à 100
avec des flèches.
- Dans ma form je place 1 ou X fois mon contrôle fait maison.
- Mais je ne sais pas comment récupérer les valeurs de chaque
contrôles pour les placer dans des labels installés dans ma form.
J'espère que je suis plus clair maintenant......
Alain




Regarder dans l'aide pour des exemples de Property Let et Get
Mias si tu veux que le fait de faire tourner ta roue codeuse envoi
automatiquement sa valeur à la forme parent, il faut également regarder du
coté des evenements.

Voici de extraits de code d'un contrôle que j'ai créé pour un jeu de sudoku.

Public Event ResetClick()

Public Property Get BigValue() As Integer
BigValue = Val(UserControl.lBig.Caption)
End Property

Public Property Let BigValue(ByVal vNewValue As Integer)
UserControl.lBig.Caption = Trim$(Str$(vNewValue))
If vNewValue = 0 Then
UserControl.lBig.Visible = False
UserControl.lBig.ForeColor = BigColour

Else
UserControl.lBig.Visible = True
UserControl.lBig.ForeColor = BigColour
End If
End Property

Private Sub lbig_MouseUp(Button As Integer, Shift As Integer, X As Single, Y
As Single)
If Button = 2 Then
UserControl.lBig.Caption = "0"
UserControl.lBig.Visible = False
RaiseEvent ResetClick
End If
End Sub

Une fois le contrôle posé sur un form (par ex avec le nom Mycontrol) on
dispose
des propriétés comme MyControl.BigValue et des évenements comme
MyControl_ResetClick
Avatar
alain
C'est bon j'ai compris le code et tout marche à merveille.
Merci encore pour ton aide.
Bonne journée à tous
Alain

"Clive Lumb" a écrit dans le message
de news: %
alain wrote:
Bonsoir,
- Pour plus de précision, j'ai fait un contrôle (activeX) qui est une
roue codeuse qui incrémente ou des-incrémente des chiffres de 1 à 100
avec des flèches.
- Dans ma form je place 1 ou X fois mon contrôle fait maison.
- Mais je ne sais pas comment récupérer les valeurs de chaque
contrôles pour les placer dans des labels installés dans ma form.
J'espère que je suis plus clair maintenant......
Alain




Regarder dans l'aide pour des exemples de Property Let et Get
Mias si tu veux que le fait de faire tourner ta roue codeuse envoi
automatiquement sa valeur à la forme parent, il faut également regarder du
coté des evenements.

Voici de extraits de code d'un contrôle que j'ai créé pour un jeu de
sudoku.

Public Event ResetClick()

Public Property Get BigValue() As Integer
BigValue = Val(UserControl.lBig.Caption)
End Property

Public Property Let BigValue(ByVal vNewValue As Integer)
UserControl.lBig.Caption = Trim$(Str$(vNewValue))
If vNewValue = 0 Then
UserControl.lBig.Visible = False
UserControl.lBig.ForeColor = BigColour

Else
UserControl.lBig.Visible = True
UserControl.lBig.ForeColor = BigColour
End If
End Property

Private Sub lbig_MouseUp(Button As Integer, Shift As Integer, X As Single,
Y
As Single)
If Button = 2 Then
UserControl.lBig.Caption = "0"
UserControl.lBig.Visible = False
RaiseEvent ResetClick
End If
End Sub

Une fois le contrôle posé sur un form (par ex avec le nom Mycontrol) on
dispose
des propriétés comme MyControl.BigValue et des évenements comme
MyControl_ResetClick