次の方法で共有

KeyPress イベントの例

  • [アーティクル]

次の例では、 KeyPress イベントを使用して、1 つの TextBox から 2 番目の TextBox にキーストロークをコピーします。 ユーザーは適切にマークされた TextBox に入力します。

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

  • 2 つのテキスト ボックス ( TextBox ) コントロール (TextBox1 と TextBox2)
Private Sub TextBox1_KeyPress(ByVal KeyAscii As _ 
 MSForms.ReturnInteger) 
 TextBox2.Text = TextBox2.Text & Chr(KeyAscii) 
 
 'To handle keyboard combinations (using SHIFT, 
 'CONTROL, OPTION, COMMAND, and another key), 
 'or TAB or ENTER, use the KeyDown or KeyUp event. 
End Sub 
 
Private Sub UserForm_Initialize() 
 Move 0, 0, 570, 380 
 
 TextBox1.Move 30, 40, 220, 160 
 TextBox1.MultiLine = True 
 TextBox1.WordWrap = True 
 TextBox1.Text = "Type text here." 
 TextBox1.EnterKeyBehavior = True 
 
 
 TextBox2.Move 298, 40, 220, 160 
 TextBox2.MultiLine = True 
 TextBox2.WordWrap = True 
 TextBox2.Text = "Typed text copied here." 
 TextBox2.Locked = True 
 End Sub

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

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