gambas2: ファイルを選ぶ [Gambas]
今度はリストにファイルを追加できようにする必要があるんだけど、
これは結構簡単に出来る。
Dialog.OpenFile(MULTI) で GTK または Qt のファイルを開くダイアログ
が開けて、MULTI に TRUE を設定すると複数ファイルが選べるように
なる。
選んだファイルを ListView のアイテムに追加するのは、
コマンドラインの引数の時と同じように lvwMain.Add でいける。
あとはこれが追加ボタンが押された時に働くようにすれば良い。
削除の時と同じように GUI エディタを使ってフォームにボタンを
追加したら、ボタン上で右クリックして、イベント → Click を選ぶ。
そうするとコードエディタが開くので、そこにこんな風に記述する。
こうすればボタンを押すとファイル選択画面が開いて、選んだ
ファイルが ListView に追加される。
ちなみに Dialog.Filter でデフォルトのフィルタ条件が、
Dialog.Path でデフォルトで開くフォルダが指定できたりする。
要注意として、ファイルを選んで OK ボタンをクリックすると、
FALSEが返ってくる点。
(なぜこの仕様なのかは不明…)
これは結構簡単に出来る。
Dialog.OpenFile(MULTI) で GTK または Qt のファイルを開くダイアログ
が開けて、MULTI に TRUE を設定すると複数ファイルが選べるように
なる。
選んだファイルを ListView のアイテムに追加するのは、
コマンドラインの引数の時と同じように lvwMain.Add でいける。
あとはこれが追加ボタンが押された時に働くようにすれば良い。
削除の時と同じように GUI エディタを使ってフォームにボタンを
追加したら、ボタン上で右クリックして、イベント → Click を選ぶ。
そうするとコードエディタが開くので、そこにこんな風に記述する。
PUBLIC SUB btnAdd_Click() DIM i AS Integer WITH Dialog .title = ("Select files") .Filter = ["*.rpm", ("RPM packages")] .Path = System.User.Home IF .OpenFile(TRUE) = FALSE THEN IF .Paths.Count > 0 THEN FOR i = 0 TO .Paths.Max MMain.Add_RPM_to_lvwMain(.Paths[i]) NEXT ENDIF ENDIF END WITH END
こうすればボタンを押すとファイル選択画面が開いて、選んだ
ファイルが ListView に追加される。
ちなみに Dialog.Filter でデフォルトのフィルタ条件が、
Dialog.Path でデフォルトで開くフォルダが指定できたりする。
要注意として、ファイルを選んで OK ボタンをクリックすると、
FALSEが返ってくる点。
(なぜこの仕様なのかは不明…)
タグ:Gambas
コメント 0