投稿日	： 2004/02/03(Tue) 15:55
投稿者	： 隼人
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^4: コンボボックスのイベント

私ならば、次のようにしますね。
# ハマると、結構むずかしいですよね。

Private Sub Combo_Click(Index As Integer)
  Static flg As Boolean
  Select Case Index
    Case 0
      '* flg = True の時は、イベント処理を無視
      If flg = True Then Exit Sub
      Combo(1).Clear
      Combo(1).AddItem "ALL"
      Select Case Combo(0).Text
        Case "野球"
          Combo(1).AddItem "バット"
          Combo(1).AddItem "ボール"
        Case "水泳"
          Combo(1).AddItem "水着"
          Combo(1).AddItem "ゴーグル"
      End Select
    Case 1
      flg = True  '* 以下で Combo(0) を変更した時に発生する Combo_Click(0)
                  '  イベントを無視する為、 flg = True に設定
      Select Case Combo(1).Text
        Case "バット", "ボール"
          Combo(0).Text = "野球"
        Case "水着", "ゴーグル"
          Combo(0).Text = "水泳"
      End Select
      flg = False '* flg を元に戻す
  End Select
End Sub

★ - コンボボックスのイベント - ゆーみん 02/02-19:36No.7815
• Re: コンボボックスのイベント - 花ちゃん 02/02-23:23 No.7820
  • Re^2: コンボボックスのイベント - 魔界の仮面弁士 02/03-02:44 No.7821
    • Re^3: コンボボックスのイベント - ゆーみん 02/03-13:23 No.7836
      • Re^4: コンボボックスのイベント - 隼人 02/03-15:55 No.7843
        • 解決: コンボボックスのイベント - ゆーみん 02/03-23:18 No.7853
        • Re^5: コンボボックスのイベント - ゆーみん 02/06-11:26 No.7911
          • Re^6: コンボボックスのイベント - 隼人 02/06-16:08 No.7917
            • 解決： コンボボックスのイベント - ゆーみん 02/10-23:17 No.7960