[VB6] Gestione annullamento di InputBox

[lucas95]

Buona sera ragazzi,
ho un problema con l'inputbox. In pratica se scrivo in questo codice:

Private Sub cmdInserisci_Click()
On Error Resume Next
Dim newval As Double
newval = InputBox("Inserisci nuovo valore", "Inserimento dati")
If newval <> "" Then
Text5.Text = newval
End If

Allora se inserisco il nuovo valore, lui correttamente mi copia in Text5 il valore da me inserito; ma se non inserisco niente(o clicco su Annulla), il programma inserisce nella Text5 il valore 0. Non voglio questo...voglio che rimane il valore presente della Text5, cioè che non modifichi niente. Come devo risolvere?


Grazie a tutti in anticipo!

[oregon]

Il tipo di variabile deve essere una stringa, altrimenti non puoi confrontarlo con ""

Quindi

Private Sub cmdInserisci_Click()
   On Error Resume Next
   Dim newval As String
   newval = InputBox("Inserisci nuovo valore", "Inserimento dati")
   If newval <> "" Then
      Text5.Text = CDbl(newval)
   End If
End Sub

[lucas95]

Si giusto!


Grazie oregon!