VB6で同一のコンボックスを二つのフォームで使用

2013/08/12 19:14

このQ&Aのポイント

VB6で同一のコンボックスを二つのフォームで使用したい場合、フォーム１のコンボックスで選択した項目と同じ項目をフォーム２のコンボックスに表示する方法や、フォーム２のコンボックスで選択した項目と同じ項目をフォーム１のコンボックスに表示する方法があります。しかし、現在の実装ではそれぞれのフォームで別々に定義されたコンボックスを使用しており、ListIndexをセットする際に無限ループが発生しています。
フォーム１のコンボックスでリストから項目を選択すると、その選択した項目をフォーム２のコンボックスに表示するためには、まずフォーム１のコンボックスのSelectedIndexを取得し、それをフォーム２のコンボックスのSelectedIndexにセットする必要があります。同様に、フォーム２のコンボックスで選択した項目をフォーム１のコンボックスに表示する場合も、フォーム２のコンボックスのSelectedIndexを取得し、それをフォーム１のコンボックスのSelectedIndexにセットします。
また、無限ループを回避するためには、ListIndexをセットする前にイベントの発火を一時的に無効化する必要があります。具体的には、Combo1_Clickイベントでイベントの発火を無効化し、Combo1のListIndexをセットした後にイベントの発火を再度有効化します。これにより、無限ループに陥ることがなくなります。