SSブログ

gambas2: ファイルを選ぶ [Gambas]

今度はリストにファイルを追加できようにする必要があるんだけど、
これは結構簡単に出来る。

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
nice!(0)  コメント(0)  トラックバック(0) 
共通テーマ:パソコン・インターネット

nice! 0

コメント 0

コメントを書く

お名前:[必須]
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。