SetWindowStyle

Синтаксис

Function SetWindowStyle(byval hWin As HWND, byval Style As Integer, byval ExStyle As Bool=0, byval added As BOOL = 0) As Integer

Описание

Позволяет менять стили у окна

Параметры

hWin - хендл окна

Style - стиль окна. Если параметр added не равен нулю, то стиль добавляется к имеющемуся. Если параметр added равен нулю, то записывается новый стиль , стирая старый.

ExStyle - Если параметр равен нулю, то изменяется обычный стиль окна. Если параметр отличен от нуля, то изменяется расширенный стиль окна

added - параметр, от которого зависит добавление стилей (читайте выше параметр style)

Платформы

Windows

Пример

#Include "window9.bi"
Dim As integer event,flag
Dim As HWND hwnd
hwnd = OpenWindow("1",300,10,100,150)
ButtonGadget(1,17,10,80,80,"Click!!!")
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then
     If eventnumber()=1 Then
        flag Xor=1
        If flag Then
           SetWindowStyle(hwnd,WS_VISIBLE Or WS_POPUP)
        Else
           SetWindowStyle(hwnd,WS_VISIBLE Or WS_OVERLAPPEDWINDOW)
        EndIf
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create HTML Help documents