Simple GUI

[RNBW]

Here are some images from Simple GUI for FreeBasic to give an idea of what can be achieved.  It provides just about everything that Inform does with the exception of a form designer.

Listbox


Code for Listbox:

Code: (Select All)

'===============================================================================
' GUI_Test_Listbox.bas
' Jan 17, 2015
' Latest revion November 28, 2016
'===============================================================================

#Include "GUI.bi"

Dim Shared As ListBox LB
Dim Shared As TextBox Text_Add, Text_index, Text_text
Dim Shared As Button Button_Add, Button_SetItem, Button_DeleteItem, Button_InsertItem, _
                            Button_Clear

Dim Shared As Integer index

Sub OpenWindow_Main()
'Window

    Dim As Integer i
    
    OpenWindow(400, 440, "Test Listbox")
    LB = ListBox_New(20, 20, 150, 400)
    Text_Add = TextBox_New(200, 50, 150, 20, "")
    Button_Add = Button_New(200, 80, 100, 20, "Add")
    Var Label_index = Label_New(200, 160, 150, 20, "Index:")
    Text_index    = TextBox_New(200, 180, 150, 20, "")
    Var Label_text = Label_New(200, 210, 150, 20, "Text:")
    Text_text = TextBox_New(200, 230, 150, 20, "")
    Button_SetItem = Button_New(200, 260, 100, 20, "Set Text")
    Button_DeleteItem = Button_New(200, 290, 100, 20, "Delete Item")
    Button_InsertItem = Button_New(200, 320, 100, 20, "Insert Item")
    
    Button_Clear = Button_New(200, 400, 150, 20, "Clear Listbox")
    
    For i = 0 To 20
        ListBox_Add(LB, "Item number: " + Str(i))
    Next
        
End Sub


Sub LB_EventHandler()
'Event handler of Listbox

    Dim As String text
    
    index = ListBox_GetIndex(LB)
    text = ListBox_GetItem(LB, index)
    TextBox_SetText(Text_index, Str(index))
    TextBox_SetText(Text_text, text)
    
End Sub
    
    
'Main:    

OpenWindow_Main()

Do
    If ListBox_Event(LB) Then LB_EventHandler()
    If TextBox_Event(Text_Add) Then TextBox_Edit(Text_Add)
    If Button_Event(Button_Add) Then ListBox_Add(LB, TextBox_GetText(Text_Add))
    If TextBox_Event(Text_text) Then TextBox_Edit(Text_text)
    If Button_Event(Button_SetItem) Then ListBox_SetItem(LB, index, TextBox_GetText(Text_text))
    If Button_Event(Button_DeleteItem) Then ListBox_DeleteItem(LB, index)
    If Button_Event(Button_InsertItem) Then _
        ListBox_InsertItem(LB, TextBox_GetText(Text_text), index)
    If Button_Event(Button_Clear) Then ListBox_Clear(LB)
Sleep 1
Loop Until Window_Event_Close

End

So the code is easy to write without a Form Designer.  I prefer Hungarian notation (ButtonEvent) rather than Button_Event and I would prefer to see Textbox rather than Textbox_New, but these are my own personal preferences and I won't be writing the library code.

@bplus has shown an interest (no pressure) and it would be great if an equivalent library could be produced for QB64.

Textbox