Cosa c'e' di sbagliato?

[quasar68]

Salve a tutti, sono un novizio programmatore di VB, in un mio programmino ho inserito questa subroutine, ma mi da un'errore:

Private Sub txtop1_KeyPress(keyascii As Integer)
If keyascii >= vbKey0 And keyascii <= vbKey9 Or keyascii = vbkeydecpt Or keyascii = vbKeyBack Then Exit Sub
Else
keyascii = 0
Beep
End Sub

Mi dice "errore di compilazione, ELSE senza IF", ma l'IF c'e', dove ho sbagliato?

[RaouL_BennetH]

Originariamente inviato da quasar68
Salve a tutti, sono un novizio programmatore di VB, in un mio programmino ho inserito questa subroutine, ma mi da un'errore:

Private Sub txtop1_KeyPress(keyascii As Integer)
If keyascii >= vbKey0 And keyascii <= vbKey9 Or keyascii = vbkeydecpt Or keyascii = vbKeyBack Then Exit Sub
Else
keyascii = 0
Beep
End Sub

Mi dice "errore di compilazione, ELSE senza IF", ma l'IF c'e', dove ho sbagliato?

Imho l'if ci vuole:

Else If
keyascii = 0 Then
Beep
End Sub

[Luc@s]

Private Sub txtop1_KeyPress(keyascii As Integer) Then
If keyascii >= vbKey0 And keyascii <= vbKey9 Or keyascii = vbkeydecpt Or keyascii = vbKeyBack Then Exit Sub
Else
keyascii = 0
Beep
End Sub

IMHO

[quasar68]

Trovato l'errore, non ci andava l'ELSE


Grazie comunque

[matpez]

ricordati che se lo un if sulla stessa riga , cioè con il then seguito da una istruzione nn puoi usare l'else, altrmenti basta che lo metti a capo

Private Sub txtop1_KeyPress(keyascii As Integer) Then

If keyascii >= vbKey0 And keyascii <= vbKey9 Or keyascii = vbkeydecpt Or keyascii = vbKeyBack Then
  Exit Sub
Else
  keyascii = 0
  Beep
end if

End Sub

[quasar68]

Infatti, mi sembrava strano come mai comunque non mi faceva usare l'ELSE anche se come principio era corretto

Grazie per la dritta