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,"Маска для файлов:")
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

Результат

Created with the Personal Edition of HelpNDoc: Produce Kindle eBooks easily