Window ›› SetWindowStyle

SetWindowStyle

構文

SetWindowStyle(Hwnd,style, [ExStyle = 0], [added = 0])

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

説明

ウィンドウスタイルを変更することができます。

オプション

hwnd - ウインドウ・ハンドル

style - ウィンドウスタイル。パラメーターがゼロでなく追加された場合は、そのスタイルは、既存のスタイルに追加されます。
パラメーターがゼロで追加された場合は、古いものを消去し、新しいスタイルを記録します。

ExStyle - パラメータがゼロの場合、いつものウィンドウ・スタイル で変更します。
パラメータが、非ゼロの場合は、拡張ウィンドウスタイル で変更します。

added - スタイルのほかに影響を与えるパラメータ（パラメーター・スタイル上記参照）

プラットホーム

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

http://mneniya.ucoz.ru/