Discussion :

[Naografix]

Bonjour,


J'ai une petite question concernant les inputbox.

Je voudrais que : une inputbox apparaisse avec dessus : donner votre valeur.
Si je ne met rien, le bouton OK de l'inputbox se desactive, une sorte de : BoutonOKInputbox.enable = False
et si je tape quelque chose, il se met en True.

C'est tout

Ha si, si je clic sur Annuler ca fait un end et application.exit.

Voila

[mdevaux62]

Ben c'est juste une fenêtre de dialogue, une Form perso, à créer avec un textBox, un bouton OK et un bouton Annuler.

Dans l'évènement TextChanged du textBox, on vérifie le contenu et en fonction de ce dernier on rend enabled ou pas le bouton OK.

PS : N'utilise pas l'InputBox !

[Naografix]

D'accord donc tu me conseil de faire un textbox et pas un inputbox si je veux avoir ce que je veux ?

Par contre, comment creer un Form comprenant un bouton OK, un bouton Annuler et un Txtbox ?
j'ai regarder du coté de created mais rien.
Car je veux que ce form s'affiche sans que mon form principal ne se mette.

[rv26t]

Bonjour,

une nouvelle form nommé "frmMyInputBox",
Un TextBox nommé "txtSaisie"
2 boutons nommés "btnValider" (avec sa propriété "Enabled" à faux) et"btnAnnuler"

Dans la classe de la form, tu crés un nouveau constructeur qui recevra un texte en paramètre (pour un affichage utilisateur)
Tu crés une propriété "SaisieUtilisateur" qui contiendra la saisie utilisateur.
Tu donnes à la propriété "DialogResult" du bouton "btnValider" la valeur "OK" (choix dans la liste)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Public Class frmMyInputBox
 
    Private mSaisieUtilisateur As String
    Public Property SaisieUtilisateur() As String
        Get
            Return mSaisieUtilisateur
        End Get
        Set(ByVal value As String)
            mSaisieUtilisateur = value
        End Set
    End Property
 
    ''' <summary>Constructeur avec paramètre.</summary>
    ''' <param name="Libelle">La chaîne de caractère a afficher dans le libellé.</param>
    Public Sub New(ByVal Libelle As String)
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Label1.Text = Libelle
    End Sub
 
    Private Sub btnValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnValider.Click
        mSaisieUtilisateur = txtSaisie.Text
    End Sub
 
    Private Sub btnAnnuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnnuler.Click
        Close()
    End Sub
 
    Private Sub txtSaisie_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSaisie.TextChanged
        btnValider.Enabled = (txtSaisie.Text <> "")
    End Sub
 
End Class

dans l'évènement "txtSaisie_TextChanged"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        btnValider.Enabled = (txtSaisie.Text <> "")

permet de tester si txtSaisie est vide ou pas, et l'expression (txtSaisie.Text <> "") renvoie faux si c'est vide, vrai sinon.
Le bouton est donc mis à jour pour sa propriété enabled en fonction du contenu de txtSaisie.

Utilisation
Pour toi avec un programme principal "main" qui démarrera ton application.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
        Dim fenMyInputBox As frmMyInputBox = New frmMyInputBox("donner votre valeur : ")
        If fenMyInputBox.ShowDialog() = Windows.Forms.DialogResult.OK Then
            ' traitement des données
            MsgBox(fenMyInputBox.SaisieUtilisateur)
            fenMyInputBox.Close()
			' ouvre une autre fenêtre (form principal)
			'...
        Else
            ' Quitter application
			'...
        End If

A+, Hervé.