教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA フォーム&コントロール】テキストボックスプロパティ内にある[DragBehavior]の使い方を知りたいです。教えて!

f:id:m_kbou:20200613102443p:plain

フォームにテキストボックスを追加した場合、VBE画面左下のテキストボックスプロパティ内にある[DragBehavior]の使い方について紹介します。

 

 

テキストボックスプロパティ内にあるDragBehaviorとは

以下のテキストボックスプロパティ内の赤枠箇所が[DragBehavior]となります。
[DragBehavior]はテキストボックスのドラッグアンドドロップを設定する事ができます。

f:id:m_kbou:20200613102509p:plain

DragBehaviorに定義する設定値は、以下2パターンとなります。

定義 内容
fmDragBehaviorDisabled 0 ドラッグアンドドロップを許可しません。(既定値)
fmDragBehaviorEnabled 1 ドラッグアンドドロップを許可します。

 

DragBehaviorを設定する方法

(1)テキストボックスプロパティ内のDragBehaviorをクリックすると▼ボタンが表示されます。

f:id:m_kbou:20220322082957p:plain

(2)▼ボタンをクリックするとプルダウンリストが表示されます(※プルダウンリストには上記の設定値一覧が表示されます。)

f:id:m_kbou:20200613103405p:plain

ドラッグアンドドロップを許可しない(fmDragBehaviorDisabled

(3)今回はテキストボックスのドラッグアンドドロップを許可しないため「0-fmDragBehaviorDisabled」を選択し、一度フォーム上でクリックをした後、上部の<実行>ボタン(▶)をクリックします。

f:id:m_kbou:20220322083020p:plain

(4)フォーム画面が表示されます。

f:id:m_kbou:20200613102618p:plain

(5)上部のテキストボックスに「aaaaa」を入力後、入力文字を選択して下部のテキストボックスにドラッグアンドドロップします。

f:id:m_kbou:20200613102637p:plain

(6)入力した文字がドラッグアンドドロップできない事が確認できます。

f:id:m_kbou:20200613102650p:plain

ドラッグアンドドロップを許可する(fmDragBehaviorEnabled

(7)今回はテキストボックスのドラッグアンドドロップを許可するため「1-fmDragBehaviorEnabled」を選択し、一度フォーム上でクリックをした後、上部の<実行>ボタン(▶)をクリックします。

f:id:m_kbou:20220322083055p:plain

(8)フォーム画面が表示されます。

f:id:m_kbou:20200613102727p:plain

(9)上部のテキストボックスに「aaaaa」を入力後、入力文字を選択して下部のテキストボックスにドラッグアンドドロップします。

f:id:m_kbou:20200613102637p:plain

(10)入力した文字がドラッグアンドドロップできる事が確認できます。

f:id:m_kbou:20200613102756p:plain

DragBehaviorを設定する方法(ドラッグアンドドロップを許可する/許可しない)の説明は以上です。

 

おわりに

今回はDragBehaviorの設定方法について説明しました。状況に合わせて使用してみて下さい。また、その他のテキストボックスプロパティの使い方はこちらを参考にして下さい。