title image


Smiley Re: hinter Text im Textfeld positionieren
Hallo Marco,Da muß man ja wissen!Ich hab noch eine Sendkeys-Lösung.Wenn man bei Focuserhalt des Textfeldes F2 drückt, ist derCursor am Feldende, ansonsten das Feld voll markiert.Das Problem dabei ist, daß Sendkeys - NumLockdeaktivieren kann.Daher der lange Code - Mit Call SetKeyState(vbKeyNumlock, 1)wird die eventuell erloschene NumLockTaste wieder eingeschaltet.'In den Deklarationen:Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As _Byte) As LongPrivate Declare Function SetKeyboardState Lib "user32" _(lppbKeyState As Byte) As LongIhrgendwo im Formularmodul: Private Sub SetKeyState(intKey As Integer, fTurnOn As Boolean) Dim abytBuffer(0 To 255) As Byte GetKeyboardState abytBuffer(0) abytBuffer(intKey) = CByte(Abs(fTurnOn)) SetKeyboardState abytBuffer(0)End SubPrivate Sub Feld_GotFocus()SendKeys "{F2}"Call SetKeyState(vbKeyNumlock, 1)End SubGrußWalter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: