如 何 在 輸 入 游 標 進 入 TextBox 時 , 將 整 個 TextBox 的 內 容 變 成 反 白 ?
利 用
GetFocus
事 件 (發 生 於 輸 入 游 標 進 入 TextBox 時 )、
SelStart
屬 性 (表 示 被 選 取 區 的 起 始 位 置 )、 及
SelLength
屬 性 (表 示 被 選 取 區 的 長 度 ), 程 式 如 下 :
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub