コンボボックスのリストにファイル名を追加する

解決


まるお  2005-12-24 12:57:07  No: 129192

いつもお世話になっています。

ちょっと相談に乗っていただきたいのですが、
皆様でしたら、下記の場合どのようにしますか?

フォーム上にコンボボックス(Combo1)が配置してあります。
コンボボックスの隣に、ファイル選択ができるボタン(Command1)が設置してあります。
ユーザーは、以下のいづれかの方法で、ファイル名を指定することができます。

① コンボボックスに直接文字列を書き込む
② ファイル選択ボタンを押下して、選択したファイル名をコンボボックスに書き込む。

書き込まれたファイル名を、コンボボックスのリストに追加したいのですが、
②の方法で書き込まれた場合は、Command1_Clickのイベントで以下のとおりにすれば、
実現できるのですが、①の方法で、入力された場合は、
どうやって検出すればよいのでしょうか?

Private Sub Command1_Click()
       
    CommonDialog1.CancelError = True
    CommonDialog1.DialogTitle = "ファイルを選択"
    CommonDialog1.Filter = "*.txt"

    CommonDialog1.ShowOpen
    If Not CommonDialog1.FileName = "" Then
        Combo1.Text = CommonDialog1.FileName
        Combo1.AddItem CommonDialog1.FileName  ← ②の場合は、ここで追加。
    End If

End Sub

①の場合は、どのイベントをトリガにするべきでしょうか?
今、考えているのが、LostFocusのイベントを使おうかと考えています。

Private Sub Combo1_LostFocus()

    Combo1.AddItem Combo1.Text
    
End Sub

これって一般的なのでしょうか?
でも、これしかないような気がするのですが、他に何か良い方法がありますでしょうか?

ご意見を聞かせてください。

よろしくお願いします。


通ってみた  2005-12-24 18:02:20  No: 129193

素直に入力用のテキストボックスを追加でいいと思うのですが


まるお  2005-12-25 18:29:03  No: 129194

通ってみた さん
回答ありがとうございました。

確かに、テキストボックスの追加でいいような気がしてきました。

そのように対処します。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加