[vb6] - if else

[ladyBlu]

come richiesto dal regolamento, siete pregati di utilizzare il tag [*CODE]codice[*/CODE] (senza *) per scrivere il codice.

--------
devi mandare a capo il rami dell'If e dell'Else e poi il messaggio deve essere scritto tra apici:

Private Sub Command1_Click()

  Dim text1 As String

  If text1 = "ciro" Then 
      MsgBox "ottimo"
  Else 
      MsgBox "ma"
  End If

End Sub

[MMarzia]

Originariamente inviato da ciro78
scusa ma io la condizione la fccaio verificare dopo che ho inserito il dato
e poi dovrei premere deu volte????

1. dove inserisci il dato?
2. cliccando due volte non cambia nulla finchè dichiari la variabile nell'evento 'Click' del bottone

[ciro78]

Originariamente inviato da ladyBlu
come richiesto dal regolamento, siete pregati di utilizzare il tag [*CODE]codice[*/CODE] (senza *) per scrivere il codice.

--------
devi mandare a capo il rami dell'If e dell'Else e poi il messaggio deve essere scritto tra apici:

Private Sub Command1_Click()

  Dim text1 As String

  If text1 = "ciro" Then 
      MsgBox "ottimo"
  Else 
      MsgBox "ma"
  End If

End Sub

ho fatto copia incolla e lo stesso non funziona

[ciro78]

Originariamente inviato da MMarzia
1. dove inserisci il dato?
2. cliccando due volte non cambia nulla finchè dichiari la variabile nell'evento 'Click' del bottone

in una casella di testo

[ladyBlu]

Originariamente inviato da ciro78
in una casella di testo

allora prima di fare l'If devi passare alla tua variabile il testo contenuto nella textbox:

Private Sub Command1_Click()

  Dim text1 As String

  text1 = TextBox.Text

  If text1 = "ciro" Then 
      MsgBox "ottimo"
  Else 
      MsgBox "ma"
  End If

End Sub

[MMarzia]

Originariamente inviato da ciro78
in una casella di testo

capito, allora non è necessario dichiarare una variabile, ma basta questo:

Private Sub Command1_Click()

 If text1.text  = "ciro" Then 
      MsgBox "ottimo"
  Else 
      MsgBox "ma"
  End If

End Sub

devi leggere il valore di 'TEXT', che è una proprietà della textbox

[MMarzia]

ops, arrivata tardi

[MMarzia]

sas

[ciro78]

Originariamente inviato da ladyBlu
allora prima di fare l'If devi passare alla tua variabile il testo contenuto nella textbox:

Private Sub Command1_Click()

  Dim text1 As String

  text1 = TextBox.Text

  If text1 = "ciro" Then 
      MsgBox "ottimo"
  Else 
      MsgBox "ma"
  End If

End Sub

mi da errore

"necessario oggetto"

[MMarzia]

Originariamente inviato da ciro78
mi da errore

"necessario oggetto"

text1 = TextBox.Text

sostituisci TextBox con il nome della tua textbox