如 何 在 輸 入 游 標 進 入 TextBox 時 , 將 整 個 TextBox 的 內 容 變 成 反 白 ?

利 用 GetFocus 事 件 (發 生 於 輸 入 游 標 進 入 TextBox 時 )、 SelStart 屬 性 (表 示 被 選 取 區 的 起 始 位 置 )、 及 SelLength 屬 性 (表 示 被 選 取 區 的 長 度 ), 程 式 如 下 :

    Private Sub Text1_GotFocus()

      Text1.SelStart = 0

      Text1.SelLength = Len(Text1.Text)

    End Sub