2002ASP VB function enhancement #875

Auto-Scrolling TextBox

★★★★★

4.8 · التحميلات: 2,341

Have you ever wanted an auto-scrolling text box? (U know, in MIRC and ICQ, the textbox scrolls by itself!) Here it is! Few lines, optimized and easy to use! If you have the higher versions of VB, you should set the textbox's Locked Property to True, unless you want to make the textbox editable. '[Replace Text1 with the name of your textbox] Thanx for viewing! :)

ملخص الذكاء الاصطناعي: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

كود المصدر

Private Sub Text1_Change()
  On Error Resume Next
  Text1.SelLength = 0
  If Len(Text1.Text) > 0 Then
   If Right$(Text1.Text,1) = vbCrLf Then
     Text1.SelStart = Len(Text1.Text) - 1
     Exit Sub
   End If
   Text1.SelStart = Len(Text1.Text)
  End If
End Sub

التعليقات الأصلية (3)

مسترجع من Wayback Machine