FlagExplorerListGadget
構文
Sub FlagExplorerListGadget(byval gadget As Integer, byval iFlag As Integer = 3)
説明
この手続きは、ExplorerListGadget で特定の種類(ファイルおよび/またはフォルダ)を使えるようにします。
オプション
gadget - ガジェット番号
iFlag - 以下のいずれか:
- 1 - フォルダだけを表示する
- 2 - ファイルだけを表示する
- 3 - フォルダとファイルを表示する
プラットホーム
Windows
例:
#Include "window9.bi"
CenterWindow(OpenWindow("",10,10,440,400))
Dim OP As OptionsExplorerGadget
OP.iStyle = WS_EX_CLIENTEDGE
OP.szName = "ファイル名"
OP.szSize = "サイズ"
OP.szType = "ファイル形式"
OP.szModified = "変更"
ExplorerListGadget(1,10,10,,,"D:\",@OP)
FlagExplorerListGadget(1,2) ' ファイルのみ表示
StringGadget(2,150,320,100,20,,ES_CENTER)
TextGadget(3,10,320,140,20,"File マスク:")
SetGadgetColor(2,&hB5D7C6,&hD70700,3)
Do
Var ev = WaitEvent()
If ev = eventgadget Then
If EventNumber = 2 Then
Var path = GetExplorerListGadgetPath(1)
SetExplorerListGadgetPath(1,path + "*" + GetGadgetText(2)+"*")
EndIf
ElseIf ev= eventclose Then End
EndIf
Loop
http://mneniya.ucoz.ru/
ロシア語オリジナル:https://users.freebasic-portal.de/freebasicru/window9lib/window9.html