Enabled、EnterFieldBehavior、SelLength、SelStart、SelText プロパティの例

  • [アーティクル]

次の例では、ユーザーがカーソルを移動し、キーボードを使用して選択範囲を拡張すると変化する選択関連プロパティ (SelLength、 SelStart、 SelText) を追跡します。

この例では、 Enabled プロパティと EnterFieldBehavior プロパティも使用します。

この例を使用するには、以下のサンプル コードをフォームの宣言部分にコピーします。 フォームに次が含まれていることを確認してください。

  • TextBox1 という名前の 1 つの大きな TextBox。
  • 一列に並んだ TextBox2 ～ TextBox4 という名前の 3 つのテキスト ボックス コントロール。
Private Sub TextBox1_KeyUp(ByVal KeyCode As _ 
 MSForms.ReturnInteger, ByVal Shift As Integer) 
 TextBox2.Text = TextBox1.SelStart 
 TextBox3.Text = TextBox1.SelLength 
 TextBox4.Text = TextBox1.SelText 
End Sub

Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 TextBox1.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorRecallSelection 
 
 TextBox1.Text = "Type your text here. Use " _ 
 & "CTRL+ENTER to start a new line." 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。