Textbox per Code scrollen Dieser Tipp zeigt, wie man den Inhalt einer Textbox per Code nach links oder rechts scrollen kann.
Autor:   Heinz Prelle	Bewertung:	Views:  17.377
www.visual-basic5.de	System:  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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.