ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 1214|ตอบกลับ: 0

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

[คัดลอกลิงก์]

213

กระทู้

301

โพสต์

2407

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2407


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

  2. Private Sub Form_Load()
  3.     Text1.Text = "Hello, World. G2GNet.Com"
  4. End Sub

  5. '// โปรแกรมย่อยในการทำ High Light ใน TextBox ... ใช้ร่วมกับ GotFocus
  6. Private Sub HLText(ByRef sText)
  7.     On Error Resume Next
  8.     With sText
  9.         .SelStart = 0
  10.         .SelLength = Len(sText.Text)
  11.     End With
  12. End Sub

  13. Private Sub Text1_GotFocus()
  14.     '// Reference Text1
  15.     Call HLText(Text1)
  16. End Sub
คัดลอกไปที่คลิปบอร์ด
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-1-21 18:45 , Processed in 0.315826 second(s), 5 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้