KeyDown イベント、TextBox コントロール、CurLine プロパティ、CurTargetX プロパティ、CurX プロパティ、Text プロパティの例

  • [アーティクル]

次の例では、複数行の TextBox で CurLine、CurTargetX、CurX の各プロパティ設定を追跡します。 これらの設定は、ユーザーが Text プロパティに入力し、カーソルを移動し、キーボードを使用して選択範囲を拡張すると、KeyUp イベントで変更されます。

この例を使用するには、次の手順を行います。

  1. このサンプル コードをフォームの宣言部分にコピーします。

  2. フォームに、TextBox1 という名前の、大きな TextBox を 1 つ追加します。

  3. 列内に TextBox2、TextBox3、および TextBox4 という名前の 3 つの TextBox コントロールを追加します。

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 
 TextBox2.Text = TextBox1.CurLine 
 TextBox3.Text = TextBox1.CurX 
 TextBox4.Text = TextBox1.CurTargetX 
End Sub

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

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

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