VB.NET Inputbox - Comment identifier lorsque la pression du Bouton Annuler?

J'ai une simple application windows qui affiche une zone de saisie pour les utilisateurs à entrer un jour à faire des recherches.

Comment puis-je déterminer si l'utilisateur a cliqué sur le bouton Annuler, ou simplement appuyé sur OK sans entrer toutes les données comme les deux semblent retourner la même valeur?

J'ai trouvé quelques exemples de ce traitement en VB 6, mais aucun d'entre eux vraiment de fonction dans les .Monde NET.

Idéalement, je voudrais savoir comment gérer le vide OK et Annuler séparément, mais je serais tout à fait ok avec juste un bon moyen de traiter l'annuler.

OriginalL'auteur The Sasquatch | 2010-05-27

vb.net

20

Voici ce que j'ai fait et cela a fonctionné parfaitement pour ce que je cherchais à faire:
```
Dim StatusDate As String
 StatusDate = InputBox("What status date do you want to pull?", "Enter Status Date", " ")

        If StatusDate = " " Then
            MessageBox.Show("You must enter a Status date to continue.")
            Exit Sub
        ElseIf StatusDate = "" Then
            Exit Sub
        End If
```
Cette clé a été de définir la valeur par défaut de la zone de saisie pour être un espace réel, de sorte qu'un utilisateur il suffit d'appuyer sur le bouton OK permet de retourner une valeur de "" tout en appuyant sur annuler renvoie ""

À partir d'un point de vue de l'utilisabilité, la valeur par défaut dans la zone d'entrée commence en surbrillance et est désactivée lorsqu'un utilisateur tape donc l'expérience n'est pas différent que si la case n'a pas de valeur.

OriginalL'auteur The Sasquatch
14
```
input = InputBox("Text:")

If input <> "" Then
   ' Normal
Else
   ' Cancelled, or empty
End If
```
De MSDN:

Si l'utilisateur clique sur Annuler, la fonction renvoie une chaîne de longueur nulle ("").

Ce serait le travail, mais est-il une façon de faire la différence entre un bouton annuler push ou un vide ok? (Comme ce que Jamie posté ci-dessous, mais d'une manière qui fonctionne avec .NET)
La zone d'entrée est très limitée, comme Jamie dit, il suffit d'écrire votre propre boîte de dialogue à la place.

OriginalL'auteur Kyle Rozendo

1) créer une fonction Globale (mieux dans un module, de sorte que vous avez seulement besoin de déclarer une fois)

Imports System.Runtime.InteropServices                 ' required imports
Public intInputBoxCancel as integer                    ' public variable

Public Function StrPtr(ByVal obj As Object) As Integer
    Dim Handle As GCHandle = GCHandle.Alloc(obj, GCHandleType.Pinned)
    Dim intReturn As Integer = Handle.AddrOfPinnedObject.ToInt32
    Handle.Free()
    Return intReturn
End Function

2) dans l'événement load du formulaire de mettre ce (pour faire de la variable intInputBoxCancel = annuler l'événement)

intInputBoxCancel = StrPtr(String.Empty)

3) maintenant, vous pouvez utiliser n'importe où dans votre formulaire (ou un projet si StrPtr est déclaré mondial dans le module)

dim ans as string = inputbox("prompt")         ' default data up to you
if StrPtr(ans) = intInputBoxCancel then
   ' cancel was clicked
else
   ' ok was clicked (blank input box will still be shown here)
endif

OriginalL'auteur Georg

2

J'ai comme l'utilisation de la IsNullOrEmpty méthode de la classe String comme si...
```
input = InputBox("Text:")

If String.IsNullOrEmpty(input) Then
   ' Cancelled, or empty
Else
   ' Normal
End If
```
Il n'est pas possible de différencier une valeur vide à partir de l'action d'annulation?

OriginalL'auteur Jgregoire108

Bien que cette question est posée pour il y a 5 ans. Je veux juste partager ma réponse. Ci-dessous est comment détecter si quelqu'un est cliqué sur annuler et le bouton OK dans la boîte de saisie:

Public sName As String

Sub FillName()
    sName = InputBox("Who is your name?")
    ' User is clicked cancel button
    If StrPtr(sName) = False Then
        MsgBox ("Please fill your name!")
        Exit Sub
    End If

   ' User is clicked OK button whether entering any data or without entering any datas
    If sName = "" Then
        ' If sName string is empty 
        MsgBox ("Please fill your name!")
    Else
        ' When sName string is filled
        MsgBox ("Welcome " & sName & " and nice see you!")
    End If
End Sub

StrPtr n'est pas disponible dans VB.NET.
Désolé que voulez-vous dire? Autant je suis en utilisant le code, il fonctionne.

OriginalL'auteur zmd94

Vous pouvez le faire d'une manière simple à l'aide de la DialogResult.cancel méthode.

Par exemple:

Dim anInput as String = InputBox("Enter your pin")

If anInput <>"" then

   ' Do something
Elseif DialogResult.Cancel then

  Msgbox("You've canceled")
End if

OriginalL'auteur C.Aymar

0

Les gars n'oubliez pas que vous pouvez utiliser le try catch événement de fin de
```
Dim Green as integer

Try
    Green = InputBox("Please enter a value for green")
    Catch ex as Exception
        MsgBox("Green must be a valid integer!")
End Try
```
À l'aide de Try..Catch pour la validation des données est généralement une mauvaise pratique. Ses presque toujours préférable de valider vos saisies et de l'utilisation Try..Catch pour la unexpexted

OriginalL'auteur Sidney

-1

De l'essayer. J'ai essayé la solution et ça fonctionne.

Dim ask = InputBox("")
If ask.Length <> 0 Then
   // your code
Else
   // cancel or X Button 
End If

OriginalL'auteur Ahmet Uğur

-2

Dim input As String

input = InputBox("Enter something:")

If StrPtr(input) = 0 Then
   MsgBox "You pressed cancel!"
Elseif input.Length = 0 Then
   MsgBox "OK pressed but nothing entered."
Else
   MsgBox "OK pressed: value= " & input
End If

C'est ce que je cherche sur le plan conceptuel, mais StrPtr n'est pas valide dans VB.NET

OriginalL'auteur Jamie

-2

Pourquoi ne pas vérifier si, pour rien?
```
if not inputbox("bleh") = nothing then
'Code
else
' Error
end if
```
C'est ce que j'utilise généralement, parce que c'est un peu plus facile à lire.

Rien n'est pas le même comme une chaîne vide qui est ce qui est renvoyée lorsque l'utilisateur clique sur Annuler.

OriginalL'auteur Michael Parr
-2
```
Dim userReply As String
userReply = Microsoft.VisualBasic.InputBox("Message")
If userReply = "" Then 
  MsgBox("You did not enter anything. Try again")
ElseIf userReply.Length = 0 Then 
  MsgBox("You did not enter anything")
End If
```
Je ne suis pas familier avec VB guide de style et il n'y a pas d'indentation dans la réponse, mais j'ai essayé de restaurer ce qui a été perdu dans la mise en forme (et copier&coller?)
Sous quelles conditions peut userReply <> "" et userReply.Length = 0?

OriginalL'auteur Devharsh

Vous devez vous connecter pour publier un commentaire.