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

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

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

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

308

กระทู้

498

โพสต์

5971

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
5971


เวลาที่ 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, 2024-3-29 04:00 , Processed in 0.337609 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

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