次の方法で共有


DragBehavior、EnterFieldBehavior プロパティの例

次の例では、 DragBehavior プロパティと EnterFieldBehavior プロパティを使用して、コントロールを入力するときと、あるコントロールから別のコントロールに情報をドラッグするときに提供できるさまざまな効果を示します。

このサンプルでは、2 つの TextBox コントロールを使用します。 各コントロールに対して DragBehavior および EnterFieldBehavior を設定し、コントロール間でのドラッグの効果を確認できます。

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

  • テキスト ボックス ( TextBox ) コントロール (TextBox1)
  • ToggleButton1 および ToggleButton2 と命名された 2 つの ToggleButton コントロール。 これらのコントロールは TextBox1 に関連付けられています。
  • "TextBox2" という名前の TextBox
  • ToggleButton3 および ToggleButton4 と命名された 2 つの ToggleButton コントロール。 これらのコントロールは TextBox2 に関連付けられています。
Private Sub UserForm_Initialize() 
 TextBox1.Text = "Once upon a time in a land ...," 
 ToggleButton1.Value = True 
 ToggleButton1.Caption = "Drag Enabled" 
 ToggleButton1.WordWrap = True 
 TextBox1.DragBehavior = fmDragBehaviorEnabled 
 
 ToggleButton2.Value = True 
 ToggleButton2.Caption = "Recall Selection" 
 ToggleButton2.WordWrap = True 
 TextBox1.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorRecallSelection 
 
 TextBox2.Text = "XXX, YYYY" 
 ToggleButton3.Value = False 
 ToggleButton3.Caption = "Drag Disabled" 
 ToggleButton3.WordWrap = True 
 TextBox2.DragBehavior = fmDragBehaviorDisabled 
 
 ToggleButton4.Value = False 
 ToggleButton4.Caption = "Select All" 
 ToggleButton4.WordWrap = True 
 TextBox2.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorSelectAll 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 ToggleButton1.Caption = "Drag Enabled" 
 TextBox1.DragBehavior = fmDragBehaviorEnabled 
 Else 
 ToggleButton1.Caption = "Drag Disabled" 
 TextBox1.DragBehavior = fmDragBehaviorDisabled 
 End If 
End Sub 
 
Private Sub ToggleButton2_Click() 
 If ToggleButton2.Value = True Then 
 ToggleButton2.Caption = "Recall Selection" 
 TextBox1.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorRecallSelection 
 Else 
 ToggleButton2.Caption = "Select All" 
 TextBox1.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorSelectAll 
 End If 
End Sub 
 
Private Sub ToggleButton3_Click() 
 If ToggleButton3.Value = True Then 
 ToggleButton3.Caption = "Drag Enabled" 
 TextBox2.DragBehavior = fmDragBehaviorEnabled 
 Else 
 ToggleButton3.Caption = "Drag Disabled" 
 TextBox2.DragBehavior = fmDragBehaviorDisabled 
 End If 
End Sub 
 
Private Sub ToggleButton4_Click() 
 If ToggleButton4.Value = True Then 
 ToggleButton4.Caption = "Recall Selection" 
 TextBox2.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorRecallSelection 
 Else 
 ToggleButton4.Caption = "Select All" 
 TextBox2.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorSelectAll 
 End If 
End Sub

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

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