Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0299: TextBox Scrolling in alle Richtungen per Programm auslösen

VB 5/6-Tipp 0299: TextBox Scrolling in alle Richtungen per Programm auslösen

 von ActiveVB

Schwierigkeitsgrad:

Verwendete API-Aufrufe: SendMessageA (SendMessage)

Download: Download des Beispielprojektes [2,51 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1" (Index von 0 bis 3)
' Steuerelement: Textfeld "Text1"

Option Explicit

Private Declare Function SendMessage Lib "User32" Alias _
        "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As _
        Integer, ByVal wParam As Integer, ByVal lParam As _
        Long) As Long
          
Const EM_LINESCROLL = &HB6

Private Sub Form_Load()
  Dim aa$, x&, y&
   
    For x = 0 To 50
      For y = 0 To 50
        aa = aa & Chr$(Int(Rnd * 26) + 65)
      Next y
      aa = aa & vbCrLf
    Next x
    Text1.Text = aa
End Sub

Private Sub Command1_Click(Index As Integer)
  Dim lngRet As Long, x&, y&
    
    Select Case Index
      Case 0: x = 0: y = -1
      Case 1: x = 1: y = 0
      Case 2: x = 0: y = 1
      Case 3: x = -1: y = 0
    End Select
    
    Call SendMessage(Text1.hWnd, EM_LINESCROLL, x, y)
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------