powerbasic 调节窗口为任意大小

要调节窗口为任意大小，你可以使用 PowerBASIC 中的 DDT（Dynamic Dialog Tools）来创建可调节大小的窗口。

以下是一个简单的示例代码，演示如何创建一个可调节大小的窗口：

#COMPILE EXE
#DIM ALL
#INCLUDE "WIN32API.INC"

%IDC_MAIN = 101

FUNCTION PBMAIN() AS LONG
  LOCAL hDlg AS DWORD

  DIALOG NEW 0, "Resizable Window", , , 320, 240, _
    %WS_OVERLAPPEDWINDOW OR %WS_VISIBLE OR %WS_CLIPCHILDREN, _
    0 TO hDlg

  DIALOG ADD BUTTON, hDlg, %IDC_MAIN, "OK", 100, 200, 75, 25

  DIALOG SHOW MODAL hDlg CALL DlgProc
END FUNCTION

CALLBACK FUNCTION DlgProc()
  SELECT CASE CBMSG
    CASE %WM_SIZE
      DIALOG GET CLIENT SIZE CBHNDL TO gWidth, gHeight
      DIALOG SET SIZE CBHNDL, , , gWidth, gHeight

    CASE %WM_COMMAND
      SELECT CASE CBCTL
        CASE %IDC_MAIN
          DIALOG END CBHNDL
      END SELECT
  END SELECT
END FUNCTION

这个例子创建一个窗口，并添加一个“OK”按钮。当用户调整窗口大小时，窗口的大小也会相应地调整。当用户单击“OK”按钮时，窗口将关闭。

希望这个例子能够帮助你创建一个可调节大小的 PowerBASIC 窗口。