[VB6] การทำไฮไลท์หรือแถบแสงใน TextBox Control

thongkorn

เวลาที่ TextBox ถูกโฟกัส (Focus) เราจะทำแถบแสงเพื่อเลือกข้อความทั้งหมดที่อยู่ใน TextBox ...

1. Option Explicit
   
2. 
   
3. Private Sub Form_Load()
   
4.     Text1.Text = "Hello, World. G2GNet.Com"
   
5. End Sub
   
6. 
   
7. '// โปรแกรมย่อยในการทำ High Light ใน TextBox ... ใช้ร่วมกับ GotFocus
   
8. Private Sub HLText(ByRef sText)
   
9.     On Error Resume Next
   
10.     With sText
    
11.         .SelStart = 0
    
12.         .SelLength = Len(sText.Text)
    
13.     End With
    
14. End Sub
    
15. 
    
16. Private Sub Text1_GotFocus()
    
17.     '// Reference Text1
    
18.     Call HLText(Text1)
    
19. End Sub

คัดลอกไปที่คลิปบอร์ด