【漆天编程】Powerbasic语言编写的最简单的程序

现在我们来创建一个最简单的程序。

这个程序的功能就是创建一个窗体，在窗体上面放置一个按钮，点击按钮，就会将窗口最小化在任务栏。

通过这个例子，可以了解到一个完整的Powerbasic程序的结构。

程序的启动函数是PBMain()，启动后，通过Dialog New 命令创建窗体，Control Add Buttom 命令创建按钮，然后使用Dialog show 命令显示这个窗口，并指定窗体的事件回调函数为DlgProc。

回调函数中，用到了win32api showwindow，所有，程序前面包含了 Win32API.inc这个api。

#Compile Exe
#Dim All
#Include "Win32API.inc"
Global hDlg as DWord

'主函数，创建一个窗体和一个按钮
Function PBMain() As Long
    Dialog New Pixels,0,"Test",300,300,200,200,%WS_OverlappedWindow To hDlg
    Control Add Button, hDlg, 100,"按钮", 50,10,100,20
    Dialog Show Modal hDlg Call DlgProc
End Function

'回调函数，点击按钮，窗口最小化
CallBack Function DlgProc() As Long
    If CB.Msg = %WM_Command AND CB.Ctl = 100 Then
        ShowWindow hDlg, %SW_Minimize
    End If
End Function