Giữ cho TextBox luụn bị cuộn xuống cuối văn bản

Một phần của tài liệu Lập trình với Visual Basic (Trang 104 - 106)

Khi số dũng hoặc chiều dài của văn bản lớn hơn phạm vi "thấy được" của Textbox. Lỳc này nếu bạn cú nhu cầu luụn giữ cho Textbox hiển thị cỏc dũng cuối văn bản, hóy dựng mẹo sau:

Áp đặt thuộc tớnh SelStart của Textbox là chiều dài của văn bản đang chứa. Hóy triệu gọi dũng code trờn bất cứ khi nào bạn cập nhật hoặc thay đổi nội dung của Textbox.

Để dễ hiểu, chỳng ta sẽ cựng làm một thớ dụ đơn giản sau:

- Hóy tạo một Project mới, trờn Form1 cú 2 Textbox (Name: Text1, & Text2) & 1 Command Button (Name: Command1).

- Đặt thuộc tớnh của Text1: MultiLine = True; ScrollBars = 2-Vertical - Cỏc control cũn lại hóy giữ nguyờn:

- Đặt vài dũng code vào Form:

Private Sub Command1_Click()

' Nối dũng văn bản trong Text2 vào cuối Text1 (cú ghộp thờm ký tự xuống dũng vbCrLf - bạn cú thể dựng chr(13) & chr(10) )

Text1 = Text1 & vbCrLf & Text2

End Sub

Private Sub Text1_Change()

'Cuộn Textbox khi cú sự thay đổi

Text1.SelStart = Len(Text1)

End Sub

Cũn cỏch thử như thế nào ư ? Quỏ dễ, hóy gừ gỡ đú vào Text2, nhấn Command1, dũng Text sẽ được cập nhật lờn Text1, cứ thế từ dũng thứ tư trở đi bạn sẽ thấy ngay điều cần thấy.

Kể từ dũng thứ tư trở đi Text1 luụn được cuộn xuống phớa dưới để người dựng cú thể xem được thụng tin vừa mới cập nhật.

Trờn thực tế bạn chớ cú đặt dũng

Text1.SelStart = Len(Text1)

vào tỡnh huống Change của Textbox, vỡ nú sẽ làm cho bạn khú khăn khi định vị Cursor và sửa đổi ở một chỗ khỏc trong TextBox. Hóy sỏng tạo & đặt vào những chỗ (lỳc) thớch hợp.

Một phần của tài liệu Lập trình với Visual Basic (Trang 104 - 106)

Tải bản đầy đủ (DOC)

(107 trang)
w