Visual Basic Aide commande textbox.

lionel345 Messages postés 14 Date d'inscription mardi 2 août 2011 Statut Membre Dernière intervention 31 octobre 2011 - 28 oct. 2011 à 13:16
ehjoe Messages postés 728 Date d'inscription samedi 4 avril 2009 Statut Membre Dernière intervention 30 mars 2014 - 28 oct. 2011 à 15:05
Bonjour,
Je suis débutant en vb.
J'aimerai savoir si c'est possible que si on entre dans une textbox un texte spécifique que ça fasse une action spécifique?

S.V.P. Répondez moi c'est très important et urgent!
Merci d'avance


Bonne journée à tous

- Lionel

PS:C'est ma première question donc soyez sympas S.V.P.

10 réponses

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 234
28 oct. 2011 à 13:22
Bonjour,

oui.
Mais à quel moment exact ?
C'est urgent, dis-tu ? Alors sois très précis.
Il y a une grande (très grande) différence entre :
- en cours de saisie
- en quittant la textbox
et
- en utilisant un bouton après saisie.
Après : il faudra que tu précise, s'il y a lieu, ce que tu entends par "que ça fasse une action spécifique" enj relation avec "un texte spécifique", car il y a au moins deux manières d'interpréter ! ===>>
1) action directement définie par le texte
2) action dépendant du texte



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
0
ehjoe Messages postés 728 Date d'inscription samedi 4 avril 2009 Statut Membre Dernière intervention 30 mars 2014 6
28 oct. 2011 à 13:25
Bonjour,

Oui, un texte dans un textbox peut faire une action spécifique, mais pas de lui même, ce n'est pas un lien hypertexte, il faut le lire, l'identifier, puis lui attribuer une action, par exemple :

textbox1.text = "ok"
if textbox1.text = "ok" then msgbox("Il a écrit ok")


Cordialement, Joe.
0
lionel345 Messages postés 14 Date d'inscription mardi 2 août 2011 Statut Membre Dernière intervention 31 octobre 2011
28 oct. 2011 à 13:30
Merci Joe

C'est exactement ça merci ça marche grâce à vous je ne suis plus bloqué merci beaucoup vraiment merci

-Lionel
0
ehjoe Messages postés 728 Date d'inscription samedi 4 avril 2009 Statut Membre Dernière intervention 30 mars 2014 6
28 oct. 2011 à 13:35
De rien cher ami, un plaisir ce fut, quand c'est simple comme ça je ne fatigue point

A bientôt, cordialement.

Joe.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
lionel345 Messages postés 14 Date d'inscription mardi 2 août 2011 Statut Membre Dernière intervention 31 octobre 2011
28 oct. 2011 à 13:38
Merci à vous aussi ucfoutu je peut comprendre que ce n'était pas très claire mais c'était mon 1er message merci à vous aussi!

Si Joe n’avait pas répondu j'aurai je pense répondu à votre question par 1 si le 1 veut dire que l'action est commandée par un texte spécifique:

Ex:Si j'écrit fermer le programme se ferme
Ou si j' écrit Changer la couleur que ça m'ouvre le colordialog

Avez vous compris?

PS:J'accepte votre réponse parce que ma question n'était pas très clair (à cause de mon manque d’expérience dans les forums)

Merci quand Même

-Lionel
0
lionel345 Messages postés 14 Date d'inscription mardi 2 août 2011 Statut Membre Dernière intervention 31 octobre 2011
28 oct. 2011 à 13:39
Encore merci à vous deux!
0
lionel345 Messages postés 14 Date d'inscription mardi 2 août 2011 Statut Membre Dernière intervention 31 octobre 2011
28 oct. 2011 à 13:41
Mais j'ai encore une question
0
lionel345 Messages postés 14 Date d'inscription mardi 2 août 2011 Statut Membre Dernière intervention 31 octobre 2011
28 oct. 2011 à 13:47
J'aimerai faire une sorte de (questionnaire) plutôt un test de connaissance on va dire.

J'aimerai faire une liste de question et que hasardiquement si on peut dire ça comme ça dans un label il pose la question et que dans une textbox on puisse écrire la bonne réponse accordée à la bonne question et éventuellement faire un système de points ou/et de changement d'image de fond.

Si vous pourriez aussi répondre à cette question cela serait génial!
0
lionel345 Messages postés 14 Date d'inscription mardi 2 août 2011 Statut Membre Dernière intervention 31 octobre 2011
28 oct. 2011 à 14:10
Hého êtes vous là?
0
ehjoe Messages postés 728 Date d'inscription samedi 4 avril 2009 Statut Membre Dernière intervention 30 mars 2014 6
28 oct. 2011 à 15:05
Option Explicit On
' METTRE textbox1 + textbox2 (à multiline = true) + radioButton1 + radioButton2 + button1
' comme ceci : textbox1 en haut dans la lrgeur
' dessous à l'orizontale les radiobutton1 et 2 avec comem texte "A" et "B" respectivement
' dessous identique au premier, le second textbox2
' dessous en dernier le bouton1 avec le texte "continuer"
Public Class Form1
  Dim i As Byte
  Dim q(100) As String ' ça commence à 0, mais 0 pour moi est Neutre, alors je débute à 1
  Dim r(100) As String ' 100 veut dire de 0 à 100 = 101 en fait...
  Dim p(100) As String
  Dim c As Byte = 0
  Dim saute As Boolean

  Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    q(1) = "Quand on vide une bouteille à loitié, est-elle à moitié pleine ou à moitié vide" & vbCrLf
    q(1) = q(1) & "répondre ""A"" à moitié pleine ou ""B"" à moitié vide ?"
    q(2) = "Un oeuf pondu par un coq sur un mur mitoyen peut-il avoir un propriétaire (l'oeuf) ?" & vbCrLf
    q(2) = q(2) & "répondre ""A"" L'oeuf à un propriétaire ou ""B"" l'oeuf n'a pas de propriétaire ?"
    ' q(3) ...
    r(1) = "B"
    r(2) = "B"
    ' r(3)...
    p(1) = "C'est selon le point de départ, si on part de plein on va vers vide, si on part de vide on va vers plein, donc respectivement à moitié plein ou vide."
    p(2) = "Un coq ne pond pas d'oeuf, donc la question ne se pose pas, l'oeuf ne peut avoir de propriétaire."
    ' p(3) = ...
    Call bis()
  End Sub

  Sub bis()
    i = 1
    c = 0
    RadioButton1.Visible = True
    RadioButton1.Checked = False
    RadioButton2.Visible = True
    RadioButton2.Checked = False
    TextBox2.Text = ""
    TextBox2.Visible = True
    Button1.Visible = False
    Call question()
  End Sub

  Sub question()
    TextBox1.Text = q(i)
  End Sub

  Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
    If saute True Then Exit Sub ' gère la réaction de checked false
    If r(i) = "A" Then Call bon()
    If r(i) = "B" Then Call mauvais()
  End Sub

  Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
    If saute True Then Exit Sub ' gère la réaction de checked false
    If r(i) = "B" Then Call bon()
    If r(i) = "A" Then Call mauvais()
  End Sub

  Sub bon()
    TextBox2.Text = "BONNE REPONSE" & vbCrLf
    TextBox2.Text = TextBox2.Text & p(i) & vbCrLf & vbCrLf
    c = c + 1
    Call retape()
  End Sub

  Sub mauvais()
    TextBox2.Text = "MAUVAISE REPONSE" & vbCrLf
    TextBox2.Text = TextBox2.Text & p(i) & vbCrLf & vbCrLf
    Call retape()
  End Sub

  Sub retape()
    RadioButton1.Enabled = False
    RadioButton2.Enabled = False
    TextBox2.Text = TextBox2.Text & "Appuyer sur le bouton pour continuer..."
    Button1.Visible = True
  End Sub

  Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim rep As String
    i = i + 1
    TextBox2.Text = ""
    Button1.Visible = False
    If i > 2 Then ' fin
      RadioButton1.Visible = False
      RadioButton2.Visible = False
      Button1.Visible = False
      TextBox2.Visible = False
      TextBox1.Text = "TERMINE" & vbCrLf & vbCrLf
      TextBox1.Text = TextBox1.Text & "Sur " & i - 1 & " questions vous avez bien répondu à " & c & " questions" & vbCrLf
      rep = MsgBox("Recommencer  ", vbQuestion + vbYesNo + vbQuestion)
      If rep <> vbYes Then End
      Call bis()
    End If
    saute = True
    RadioButton1.Checked = False
    RadioButton1.Enabled = True
    saute = True
    RadioButton2.Checked = False
    RadioButton2.Enabled = True
    saute = False
    Call question()
  End Sub

End Class
0