教えて!ExcelVBA!

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

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

f:id:m_kbou:20200702184308p:plain

コンボボックスプロパティ内にある[DragBehavior]の使い方について紹介します。

 

 

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

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

f:id:m_kbou:20200702184326p:plain

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

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

 

DragBehaviorを設定する方法

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

f:id:m_kbou:20200702184345p:plain

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

f:id:m_kbou:20200702184400p:plain

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

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

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

f:id:m_kbou:20200702184445p:plain

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

f:id:m_kbou:20200702184503p:plain

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

f:id:m_kbou:20200702184514p:plain

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

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

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

f:id:m_kbou:20200702184445p:plain

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

f:id:m_kbou:20200702184503p:plain

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

f:id:m_kbou:20200702184600p:plain

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

 

おわりに

今回はコンボボックスプロパティ内のDragBehaviorの使い方について説明しました。その他のコンボボックスプロパティの使い方はこちらを参考にして下さい。