Listboxを使って場合分け

Listboxに記されている色を選んで背景色を変化させるには

1)List1をフォームへ
2)List1に次の項目を書く

  list1.Additem"Blue"
   
list1.Additem"Red"
  list1.Additem"Cyan"
  list1.Additem"Voilet"   
このコードはForm_Loadに書きます。

3)List1_Clickのコーディング

 k=List1.listindex+1

 Select case k
   Case 1
      ..(Blue)...  
   Case 2
   ... (Red)... 
   Case 3
      ..(Cyan)...  
    Case 4
   ... (Violet)..
  End Select. 
    
Listboxに記された項目には上からListindex=0,1,2という番号が振られています。項目を選ぶとListindexがそしてkが指定されます。

なども同様にできます。  

戻る