vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Controls · TextBox & RichTextBox   |   VB-Versionen: VB4, VB5, VB618.03.01
Textbox per Code scrollen

Dieser Tipp zeigt, wie man den Inhalt einer Textbox per Code nach links oder rechts scrollen kann.

Autor:   Heinz PrelleBewertung:     [ Jetzt bewerten ]Views:  17.325 
www.visual-basic5.deSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Dieser Tipp zeigt, wie man den Inhalt einer Textbox per Code nach links oder rechts scrollen kann. Plazieren Sie hierzu ein Textelement und zwei Command-Buttons auf eine Form. Setzen Sie die Textbox-Eigenschaft Multiline auf True und ScrollBars auf 1 - horizontal.

' zunächst die benötigten API-Deklarationen
Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Integer, _
  ByVal lParam As Long) As Long
 
Const WM_HSCROLL = &H114
Const SB_LINERIGHT = 1
Const SB_LINELEFT = 0
 
Private Function fScrollLeft()
  Dim lRet As Long
  lRet = SendMessage(Text1.hwnd, WM_HSCROLL, _
    SB_LINELEFT, ByVal 0&)
End Function
 
Private Function fScrollRight()
  Dim lRet As Long
  lRet = SendMessage(Text1.hwnd, WM_HSCROLL, _
    SB_LINERIGHT, ByVal 0&)
End Function
 
Private Sub Form_Load()
  Text1.Text = "Test Textbox automatisch " + _
    "scrollen by www.Visual-Basic5.de"
End Sub
 
Private Sub Command1_Click()
  ' links scrollen
  fScrollLeft
End Sub
 
Private Sub Command2_Click()
  ' links scrollen
  fScrollRight
End Sub