Window ›› CenterWindow

CenterWindow

構文

CenterWindow(hwnd)

Sub CenterWindow(ByVal hWin As HWND)

説明

ウィンドウを中央に設定します。

オプション

hWin - 中央に設置するウィンドウのハンドル

プラットホーム

Windows , Linux

例：

#Include "window9.bi"

Dim As HWND hwnd

hwnd=OpenWindow("1",30,30,100,100)

UpdateInfoXServer ' only for Linux
CenterWindow(hwnd)
Do
   var event=WaitEvent()
   If event=EventClose Then End
Loop

旧例:

#Include "window9.bi"
Dim As HWND hwnd,hwnd1
hwnd=OpenWindow("1",30,30,100,100)
hwnd1=OpenWindow("2",10,10,100,100)

Do
  var event=WaitEvent()
  If event=EventClose Then End
  If event=WM_LBUTTONDOWN Then
    If Eventhwnd()=hwnd1 Then
      CenterWindow(hwnd):close_Window(hwnd1)
    endif
  EndIf
loop

http://mneniya.ucoz.ru/