วิธีการเลือกข้อความเมื่อตัวควบคุมกล่องข้อความได้รับโฟกัส

บางครั้งเราต้องการเลือกข้อความทั้งหมดในกล่องข้อความเมื่อตัวควบคุมกล่องข้อความได้รับการโฟกัส ซึ่งสามารถทำได้ผ่านคุณสมบัติ SelStart และ SelLength โดยเฉพาะเมื่อวัตถุได้รับการโฟกัส วัตถุนั้นจะถูกเลือกจากด้านหน้า (SelStart=0) และความยาวที่เลือกคือความยาวของข้อความ (Len (Text1)) ซอร์สโค้ดจะเป็นดังนี้:

ข้อความย่อยส่วนตัว1_GotFocus()

ข้อความ1.SelStart = 0

Text1.SelLength = Len(Text1)

จบหมวดย่อย

เหตุการณ์ GotFocus เกิดขึ้นเมื่อตัวควบคุมได้รับโฟกัส