Oppure

Loading
07/11/08 16:17
GrG
if keycode = vbkey0 then
'Quello ke vuoi quando viene premuto 0
end if

Se intendevi questo al posto del commento devi mettere il codice che emtte il suono...
aaa
07/11/08 17:07
Ultra Phonic 2
scusa grg, mi sono confuso:-|

è il pezzo nel primo code, (tuoi Parametri)

scusami ancora.

ps

come posso fare che su un text, si scriva solo con la tastiera, e non si possa fare incolla?

aiuto...

sai perkè nn voglio sia fatto incolla?

perkè se si mette uno spazio, o la parola si copy da un txt, non sia incollabile
aaa
07/11/08 17:19
GrG
avevo messo (tuoi parametri) perchè nn ricordavo + i parametri richiesti dalla funzione che sarebbero:
Private Function controllo(ByVal testo As String, lista As ListBox)

Quindi gli devi indicare il testo in cui cercare le parole e la lista da cui vedere le parole da cercare...(sarò stato chiaro? bà...)

Per il secondo probl. basta fare:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 22 Then 'se si preme ctrl + v
KeyAscii = 0 'il carattere è nullo
End If
End Sub



:k:
aaa
07/11/08 18:59
Ultra Phonic 2
grg, ho provato, ma non mi funziona niente...
aaa
07/11/08 19:21
GrG
cm è possibile?

mostra il codice che usi...
aaa
07/11/08 19:51
Ultra Phonic 2
ecco quà
private sub text1_keydown(KeyCode As Integer, Shift As Integer)
if keycode = vbkey0 then
ole1.enabled = true
end if
end sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 22 Then 'se si preme ctrl + v
KeyAscii = 0 'il carattere è nullo
End If
End Sub

nn mi funzionano nessuno dei due...

Ultima modifica effettuata da Ultra Phonic 2 07/11/08 20:20
aaa
07/11/08 20:24
GrG
Devi aver sbagliato da qualche parte...
Allega il tuo progetto al post di risposta, oppure allega un progetto di esempio dove simuli il problema...
aaa
07/11/08 20:42
Ultra Phonic 2
ok, ho risolto da solo

scusa grg, ma non ho cancellato il post in tempo...8-|
aaa