Re: [utenti] Riassegnare il valore a un tasto

[Tino l' arrotino]

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]