Manchmal, wenn wir ein Textfeld im mehrzeiligen Modus verwenden, möchten wir die Bildlaufleiste nicht sehen, ohne die Zeile zu überschreiten, also ist es eigentlich sehr einfach, es zu erreichen, es wird zuerst nur eine API-Funktion benötigt, um es zu erledigen Setzen Sie im Formular Text1 hinzufügen die Eigenschaft MultiLine auf True, der Code lautet wie folgt:
Option Explicit
Private Declare Function ShowScrollBar Lib „user32“ (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long Private
Const SB_HORZ = 0 'horizontal
Private Const SB_VERT = 1 'vertikal
Private Const SB_BOTH = 3 'both
Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
If TextHeight(Text1.Text) > Text1.Height Then
ShowScrollBar Text1.hwnd, SB_VERT, True '显示
Else
ShowScrollBar Text1.hwnd, SB_VERT, False '
End If
End Sub