ユーザーフォームが表示された時に、最初に入力させたいテキストボックス
にフォーカスが移り、表示されている文字全体を青い色で選択状態にするための
方法を2つご紹介します。
1つめは、SelStartプロパティで選択する文字列の位置を先頭にして、SelLength
プロパティで選択する文字数を設定します。
Private Sub UserForm_Initialize()
TextBox1.Text = "Textテキスト"
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Sub
次は、一度最後のコントロールにフォーカスを移動させてから、SendKeys
ステートメントを使って、タブキーで最初のテキストボックスへ移動した時と
同じ状態にしています。
Private Sub UserForm_Initialize()
With UserForm1
TextBox1 = "Textテキスト"
TextBox2.SetFocus 'TabIndex最後のコントロールにフォーカスをセット
SendKeys "{TAB}" 'TabIndex 最初の TextBox1 にフォーカスをセット
End With
End Sub
|