SetExplorerListGadgetStyle

Синтаксис

Function SetExplorerListGadgetStyle(byval gadget As Integer, byval Style As Integer) As Integer

Описание

Изменение стиля ExplorerListGadget. Функция возвращает TRUE в случае успеха

Параметры

gadget - номер гаджета

style - стиль, может быть (LVS_ICON , LVS_SMALLICON , LVS_LIST , LVS_REPORT)

Платформы

Windows

Пример

#Include "window9.bi"
Dim OP As OptionsExplorerGadget
Dim As HMENU hmenuMain,hmenuTitle
Dim As Integer iEvent
OP.iStyle = WS_EX_CLIENTEDGE
CenterWindow(OpenWindow("",10,10,440,400))
hmenuMain=Create_Menu()
hmenuTitle=MenuTitle(hmenuMain,"Style")
MenuItem(1001,hmenuTitle,"LVS_ICON")
MenuItem(1002,hmenuTitle,"LVS_SMALLICON")
MenuItem(1003,hmenuTitle,"LVS_LIST")
MenuItem(1004,hmenuTitle,"LVS_REPORT")
ExplorerListGadget(1,10,10,,,,@OP)
Do
  iEvent = WaitEvent()
  Select Case iEvent
     Case EventClose
        Exit Do
     Case Eventmenu
        Select Case EventNumber
           Case 1001
              SetExplorerListGadgetStyle(1,LVS_ICON)
           Case 1002
              SetExplorerListGadgetStyle(1,LVS_SMALLICON)
           Case 1003
              SetExplorerListGadgetStyle(1,LVS_LIST)
           Case 1004
              SetExplorerListGadgetStyle(1,LVS_REPORT)
        End Select
  End Select
Loop

Результат

Created with the Personal Edition of HelpNDoc: Produce electonic books easily