Discussion :

[mawkli]

Bonjour,
j'ai une Inputbox qui demande une valeur:
decale = InputBox("nombre de minutes", "nombre", 0)
pas de souci en fonctionnement "normal"
je souhaite traiter le cas où on appuie sur annuler sans entrer de valeur et
sortir de la procédure
quelle valeur est renvoyée dans ce cas ?
sinon comment supprimer carrément le bouton annuler et ne garder que le bouton OK
Merci de vos réponses

[_Ez3kiel]

Si rien n'est rentré, que ce soit "Ok" ou "Annuler", il renvoi une chaîne vide.
Tu peux tester que le retour soit ou non une chaîne vide, mais cela ne voudra pas forcement dire qu'il a cliqué sur "annuler".

A ma connaissance, on ne peut pas enlever le bouton "annuler", après j'aimerais qu'on me contredise.

Si tu veux avoir la main, utilise plutôt une DialogBox qui contient une TextBox.
Tu pourras tester les retours.

Code :

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

1
2
3
4
5
6
7
8
9
10
        Dim DlgResult As DialogResult
        Dim taDialog As dialogPerso
 
        DlgResult = taDialog.ShowDialog()
 
        If DlgResult = DialogResult.OK Then
 
        ElseIf DlgResult = DialogResult.Cancel Then
 
        End If

[rv26t]

Bonjour,

Voici 2 exemples de boite de dialogue personnalisée sur le principe de l'InputBox, tu pourras adapter à ta guise.
http://www.dreamincode.net/forums/to...stom-inputbox/
http://vbnetworld.blogspot.fr/2011/0...-inputbox.html

A+, Hervé.

[mawkli]

Merci,
En fait je veux juste un truc simple,parce que là quand je click sur annuler il me renvoit une erreur,donc je voulais juste corriger ça et donc si c'est pas possible d'enlever ce bouton,juste fermer l'application quand on clique sur annuler.

[mawkli]

je pense que j'ai un problème de conversion de string en double d'après le message d'erreur et voici mon code:

Code :

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

1
2
3
4
5
6
 
dim port as integer
 Port = InputBox("Numéro du port Com:  ('0':non connecté)", "Port Com ", 0)
        If Port <> 0 Then
          'code d'ouverture du port
        end if

[_Ez3kiel]

Inputbox renvoi un string. Tu dois récupérer ton nombre et le ctyper en integer.

Edit: J'ai rajouté le test de l'integer ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
          Dim port As Integer
        Dim retour As String
 
        retour = InputBox("Numéro du port Com:  ('0':non connecté)", "Port Com ", 0)
 
        If retour <> "" And Integer.TryParse(retour, 0) Then
            port = CType(retour, Integer)
        End If
 
        If port <> 0 Then
            'code d'ouverture du port
        End If