vs GUI Updates - the latest from b+

[bplus]

If you want to start a GUI app from the Controls Editor, it will set you up with starting Template.

Here is an example of what it wrote for me for a 1 Label App start. I have inserted  <<< comments in places in a couple of areas:

Code: (Select All)

'$include:'vs GUI.BI'
'   Set Globals from BI              your Title here VVV
Xmax = 1280: Ymax = 720: GuiTitle$ = "GUI One Label"

' >>> FontFile$ = "arial.ttf" ... a .ttf Font File is needed as 4th parameter on next line
OpenWindow Xmax, Ymax, GuiTitle$, FontFile$ ' <<< inserted last parameter need to do this before drawing anything from NewControls

' >>> Next line is needed only if you want to edit controls in the Controls Editor
' GUI Controls
'                     Dim and set Globals for GUI app
Dim Shared As Long lblScreen
lblScreen = NewControl(4, 10, 10, 1200, 30, 30, 50, 669, "Testing the save of one label to start a GUI bas application")
' End GUI Controls
' >>> Above line is needed if you want to edit your controls in the Controls Editor

MainRouter ' after all controls setup

Sub BtnClickEvent (i As Long)
    Select Case i
    End Select
End Sub

Sub LstSelectEvent (control As Long)
    Select Case control
    End Select
End Sub

Sub PicClickEvent (i As Long, Pmx As Long, Pmy As Long)
    Select Case i
    End Select
End Sub

Sub PicFrameUpdate (i As Long)
    Select Case i
    End Select
End Sub

'$include:'vs GUI.BM'

 
Once the font file is added/fixed in the Open Window line the IDE can run the code to give you a look on the screen size you want.