Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Text et Option

Text et Option

3 réponses
Avatar
Tof
Bonjour =E0 tous,

Je cherche un d=E9but d'exemple de programmation pour=20
r=E9aliser le petit probl=E8me suivant :

J'ai un objet "text" avec comme valeur "1"

J'ai deux boutons "Option" =3D=3D> "Option 1" et "Option 2"

Avec "Option1", je veux rester =E0 la valeur de 1 dans=20
l'objet "Text".
Avec l'"Option2" je veux avoir dans l'objet "Text" la=20
valeur de 0.5.

Si vous pouviez me donner un petit commencement =E0 cette=20
manip....Merci =E0 vous !
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
le_troll
Bonjour,

Brut de décofrage, voici:

Sub Form_Load()
Text1 = 1
End Sub

Sub Command1_Click()
MsgBox Text1
End Sub

Sub Command2_Click()
Text1 = 0.5
End Sub

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"Tof" a écrit dans le message de news:
4c2c01c490ee$0afdd500$
Bonjour à tous,

Je cherche un début d'exemple de programmation pour
réaliser le petit problème suivant :

J'ai un objet "text" avec comme valeur "1"

J'ai deux boutons "Option" ==> "Option 1" et "Option 2"

Avec "Option1", je veux rester à la valeur de 1 dans
l'objet "Text".
Avec l'"Option2" je veux avoir dans l'objet "Text" la
valeur de 0.5.

Si vous pouviez me donner un petit commencement à cette
manip....Merci à vous !
Avatar
Jean-Marc
"Tof" a écrit dans le message de
news:4c2c01c490ee$0afdd500$
Bonjour à tous,



Je cherche un début d'exemple de programmation pour
réaliser le petit problème suivant :



J'ai un objet "text" avec comme valeur "1"



J'ai deux boutons "Option" ==> "Option 1" et "Option 2"



Avec "Option1", je veux rester à la valeur de 1 dans
l'objet "Text".
Avec l'"Option2" je veux avoir dans l'objet "Text" la
valeur de 0.5.



Si vous pouviez me donner un petit commencement à cette
manip....Merci à vous !



hello,
il faut:
- une form
- 2 boutons
- 1 text box

puis Copy/Paste de ceci dans la partie code de la form:

'---------------------------------------------------------
Option Explicit

Private Sub Form_Load()
Option1.Caption = "Option 1"
Option2.Caption = "Option 2"
Text1.Text = "1"
End Sub

Private Sub Option1_Click()
Text1.Text = "1"
End Sub

Private Sub Option2_Click()
Text1.Text = "0.5"
End Sub
'-------------------------------------------------------------

--
Jean-marc
Avatar
Tof
Merci pour cette réponse ! !




-----Message d'origine-----
"Tof" a écrit dans le message de
news:4c2c01c490ee$0afdd500$
Bonjour à tous,



Je cherche un début d'exemple de programmation pour
réaliser le petit problème suivant :



J'ai un objet "text" avec comme valeur "1"



J'ai deux boutons "Option" ==> "Option 1" et "Option 2"



Avec "Option1", je veux rester à la valeur de 1 dans
l'objet "Text".
Avec l'"Option2" je veux avoir dans l'objet "Text" la
valeur de 0.5.



Si vous pouviez me donner un petit commencement à cette
manip....Merci à vous !



hello,
il faut:
- une form
- 2 boutons
- 1 text box

puis Copy/Paste de ceci dans la partie code de la form:

'--------------------------------------------------------


-
Option Explicit

Private Sub Form_Load()
Option1.Caption = "Option 1"
Option2.Caption = "Option 2"
Text1.Text = "1"
End Sub

Private Sub Option1_Click()
Text1.Text = "1"
End Sub

Private Sub Option2_Click()
Text1.Text = "0.5"
End Sub
'--------------------------------------------------------


-----

--
Jean-marc


.