35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
#Include "windows.bi"
|
|
|
|
Dim As HWND Window_Main, Static_Text, Button_Click
|
|
Dim As MSG msg
|
|
Dim As Integer Num_Click
|
|
Dim As String Text
|
|
|
|
'Create a window with a static text control and a button:
|
|
Window_Main = CreateWindow("#32770", "Simple Windowed Application", WS_OVERLAPPEDWINDOW Or WS_VISIBLE, 100, 100, 350, 200, 0, 0, 0, 0)
|
|
Static_Text = CreateWindow("STATIC", "There have been no clicks yet", WS_VISIBLE Or WS_CHILD Or WS_BORDER, 10, 30, 300, 20, Window_Main, 0, 0, 0)
|
|
Button_Click = CreateWindow("BUTTON", "Click me", WS_VISIBLE Or WS_CHILD, 100, 70, 100, 20, Window_Main, 0, 0, 0)
|
|
|
|
'Windows message loop:
|
|
Num_Click = 0
|
|
While GetMessage(@msg, Window_Main, 0, 0)
|
|
TranslateMessage(@msg)
|
|
DispatchMessage(@msg)
|
|
Select Case msg.hwnd
|
|
Case Button_Click
|
|
If msg.message = WM_LBUTTONDOWN Then
|
|
Num_Click = Num_Click + 1
|
|
If Num_Click = 1 Then
|
|
Text = "Button has been clicked once"
|
|
Else
|
|
Text = "Button has been clicked " + Str(Num_Click) + " times"
|
|
End If
|
|
SetWindowText(Static_Text, Text)
|
|
End If
|
|
Case Window_Main
|
|
If msg.message = WM_COMMAND Then End
|
|
End Select
|
|
Wend
|
|
|
|
End
|