Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
16
Task/Window-creation/FreeBASIC/window-creation.freebasic
Normal file
16
Task/Window-creation/FreeBASIC/window-creation.freebasic
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
#Include "windows.bi"
|
||||
|
||||
Dim As HWND Window_Main
|
||||
Dim As MSG msg
|
||||
|
||||
'Create the window:
|
||||
Window_Main = CreateWindow("#32770", "I am a window - close me!", WS_OVERLAPPEDWINDOW Or WS_VISIBLE, 100, 100, 350, 200, 0, 0, 0, 0)
|
||||
|
||||
'Windows message loop:
|
||||
While GetMessage(@msg, Window_Main, 0, 0)
|
||||
TranslateMessage(@msg)
|
||||
DispatchMessage(@msg)
|
||||
If msg.hwnd = Window_Main And msg.message = WM_COMMAND Then End
|
||||
Wend
|
||||
|
||||
End
|
||||
Loading…
Add table
Add a link
Reference in a new issue