PDA

Visualizza la versione completa : VB: TextBox


ftponline
10-05-2002, 16:01
Vorrei fare in modo che:
ogni volta che clicco sulla mia textbox, il prezzo fosse direttamente editabile...senza doverlo prima cancellare...insomma, vorrei scriverci sopra ...come faccio? :)

Non ditemi di premere il tasto insert.. :)

vonkranz
10-05-2002, 16:17
Prova con questo:


Dim strTxt As String
Dim intPos As Integer
intPos = Text1.SelStart
strTxt = Text1.Text
If Len(strTxt) = Text1.SelStart Then
strTxt = strTxt + " "
End If
Mid(strTxt, Text1.SelStart + 1, 1) = Chr(KeyAscii)
Text1.Text = strTxt
Text1.SelStart = intPos + 1
KeyAscii = 0


Devi pero' controllare il valore di KeyAscii in caso vengano premuti i tasti Help, Canc ecc. ed evitare di eseguire questo codice.



Non ditemi di premere il tasto insert..

.... paura di slogarti un polso??? :D

Ciao.

Loading