Tino l' arrotino ha scritto:
Ho modificato cosi il codice che mi hai passato ma in questo modo
resetto il testo nella textbox, cosi non và, quello che cerco di fare è
inibire alcuni tasti (quasi tutti) per controllare l' Input dell' utente.
Dim sOldText As String
Dim aOldSel as New com.sun.star.awt.Selection
Dim sNewText As String
Dim aNewSel As Object
Sub TextBox_TextModified(oEvent as Object)
sOldText = sNewText
aOldSel = aNewSel
sNewText = oEvent.Source.Text
aNewSel = oEvent.Source.getSelection()
End Sub
Sub TextBox_KeyPressed(oEvent as Object)
Select Case oEvent.KeyCode
Case com.sun.star.awt.Key.A
oEvent.Source.Text = sOldText
oEvent.Source.setSelection(aOldSel)
End Select
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
PER FAVORE NON SCRIVETE PIU' A QUESTO INDIRIZZO L'INTERESSATO NON C'E' PIU'
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
