| 投稿日 | ： 2004/11/19(Fri) 22:46 |
| 投稿者 | ： junchan |
| Ｅメール | ： bkalw803@rinku.zaq.ne.jp |
| ＵＲＬ | ： |
| タイトル | ： Re^3: コンボボックスに項目を追加するには？ |
> ご回答ありがとうございます。
> 今フォームのロードイベントにて値を設定しています。
> With Combo4
> .AddItem "1/1"
> .AddItem "1/20"
> .AddItem "1/100"
> End With
> こんな感じです。
> それでやりたいことは、VBソース側ではなくて、ソフトを使用するユーザーが
> この値を編集できるようにしたいのです。可能でしょうか？
Combo4が貼り付けられたFormXにButtonXを貼り付ける。
新規に標準フォームYを作成する
Private Sub CommandButtonX_Click()
FormY.show
End sub
新規FormYのプロシージャー
OptionButtonを編集したい種類の数だけ貼り付ける。
CommandButtonを1個貼り付ける
Private Sub Command1_Click()
'すべての項目を削除する
If Option1.Value=True then
FormX.Combo4.Clear
End if
'選択した項目を削除する
If option2.Value=True Then
FormX.Combo4.RemoveItem FormX.Combo4.ListIndex
End If
'項目を追加する
If Option3.Value=True Then
FormX.Combo4.AddItem Form4.Combo4.Text
End If
If ----------
------------
End If-------
UnLoad Me
End Sub
なにぶん、こちらも初心者です。もっとスマートな方法があると
思います。OptionButtonをIndex化しSELECT文を使用するとか。