Visual Basic 6 - identificare parola in una text

ciao a tutti,

ho una text box multiline, invisibile, con 20 scritte, e vorrei che quando si scriva una di queste 20 parole su un altra text, cliccando un btn, mi dica se la parola è corretta, se c'è elencata nella text1, non corretta, se la parola digitata, non è scritta sulla text...


grazie

p.s.

se non si puo fare con la text, posso provare con un cbo, o con una list...

non ho capito bene cosa devi fare, il post che hai scritto è un pò confusonario...

allora...

ho una text, multiline, invisibile...
e dentro ci sono scritti 20 nomiin questo modo:

n1
n2
n3
n4
...

ho un altra text,
e un btn...

vorrei che se si scxrive dentro la text2, un nome presente nella text1, cliccando il btn, mi apra un form "frm2", se invece il nome non è inserito, mi apra un altro form"frm3"

se nn hai ancora capito, dimmi cosa non capisci, che te lo dirò...

penso che Grg volesse sapere cosa delle cose che hai elencato non sai fare.

Allora aggiungi una listbox(list1), una textbox(text1) e un command(command1). Ti ho fatto una funzione e un esempio per richiamarla:

Private Sub Command1_Click()
MsgBox controllo(Text1.Text, List1)
End Sub

Private Function controllo(ByVal testo As String, lista As ListBox)
Dim parole() As String, x As Integer, l As Integer
If lista.ListCount = 0 Then
Exit Function
End If
parole = Split(testo, " ")
For x = 0 To UBound(parole())
 For l = 0 To lista.ListCount - 1
  If parole(x) = lista.List(l) Then
  controllo = parole(x)
  Exit Function
  End If
 DoEvents
 Next l
DoEvents
Next x
controllo = ""
End Function

La funzione controllo restituisce la parola trovata, altrimenti se non la trova è vuoto.
Però se per esempio nella list1 c'è "asd" e tu in text1 scrivi:
ciao asd cm stai?
allora asd lo trova, ma se si mette:
ciao asdasd come stai?
non lo trova, perchè intorno alla parola ci devono essere spazi...
Prova tu per capire, se hai problemi o non ho capito ciò che vuoi fare dimmelo.

Grg

va bene così, solo che non ho capito dove inserire 'l'if ke mi apra rispettivamente form2 o form 3

P.S

come posso disabilitare un tasto sulla tastiera?

cioè se si clicca spazio lui lo disabilita?

e se si clicca per esempio lo ZERO?

però di zeri nella tastiera c'è ne sono 2, quindi entrambe.

P.S. 2

ogni volta ke si clikka zero o spazio, mi manda un suono cm quello di avviso...

Allora la funzione controllo restituisce la stringa dove ha trovato la parola, in caso non la trova restituisce una strina vuota, quindi basta fare:
if controllo(tuoi parametri) = "" then
msgbox "Non ha trovato niente"
else
msgbox "Ha trovato la parola"
end if
capito?

Per il secondo problema se vuoi ke venga visto dal progr quando un utente preme per es. zero dipende...
Se vuoi che intercetti il tasto premuto solo quando scrivi nella textbox allora devi andare alla sub text1_keydown(ecc...) e metti:
if keycode = vbkey0 then
'Quello ke vuoi quando viene premuto 0
end if
Se invece vuoi ke il tasto venga intercettato anche se si preme x es. su un blocconote o così in generale sul desktop o da qualunque altra parte devi usare l'API: GetAsynKey (mi pare si kiami così...)

Grazie grg

6 GRANDE!!!!!!!!

cmq, nn ho capito la parola "quello ke vuoi tu"

puoi spiegarti un pizzico, meglio...