教えて!ExcelVBA!

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

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

       f:id:m_kbou:20200613102443p:plain

フォームにテキストボックスを追加した場合、VBE画面左下のテキストボックスプロパティウィンドウ内に表示される[DragBehavior]の使い方について説明します。

 

【目次】

 

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

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

f:id:m_kbou:20200613102509p:plain

DragBehaviorに定義する設定値は以下一覧の通りとなります。

f:id:m_kbou:20200629162235p:plain

 

DragBehaviorを設定する方法

設定方法について説明していきます。

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

f:id:m_kbou:20200613102526p:plain

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

f:id:m_kbou:20200613103405p:plain

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

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

f:id:m_kbou:20200613102605p: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:20200613102715p: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の設定方法について説明しました。状況に合わせて使用してみて下さい。