QB64 Team Software > InForm-based programs
Just for fun: An example of what InForm is *NOT* for
FellippeHeitor:
Form files should have the .frm extension.
--- Code: QB64: ---': This form was generated by': InForm - GUI library for QB64 - Beta version 8': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor': https://github.com/FellippeHeitor/InForm'-----------------------------------------------------------SUB __UI_LoadForm DIM __UI_NewID AS LONG __UI_NewID = __UI_NewControl(__UI_Type_Form, "Frog", 605, 300, 0, 0, 0) SetCaption __UI_NewID, "Frog" Control(__UI_NewID).Stretch = False Control(__UI_NewID).Font = SetFont("arial.ttf", 12) __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox5", 608, 150, 0, 0, 0) Control(__UI_NewID).Stretch = True Control(__UI_NewID).BackColor = _RGB32(0, 0, 96) Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox6", 606, 150, 0, 150, 0) Control(__UI_NewID).Stretch = True Control(__UI_NewID).BackColor = _RGB32(0, 0, 139) Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox9", 66, 150, 481, 150, 0) Control(__UI_NewID).Stretch = True Control(__UI_NewID).BackColor = _RGB32(132, 131, 131) Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox7", 264, 50, 15, 211, 0) Control(__UI_NewID).Stretch = True Control(__UI_NewID).BackColor = _RGB32(175, 129, 70) Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox2", 186, 138, 39, 96, 0) Control(__UI_NewID).Stretch = True Control(__UI_NewID).BackColor = _RGB32(48, 119, 85) Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox1", 147, 138, 104, 52, 0) Control(__UI_NewID).Stretch = True Control(__UI_NewID).BackColor = _RGB32(48, 141, 85) Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_ProgressBar, "ProgressBar1", 105, 23, 125, 143, 0) SetCaption __UI_NewID, "\#" Control(__UI_NewID).Stretch = False Control(__UI_NewID).Value = 100 Control(__UI_NewID).Max = 100 __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox3", 95, 24, 167, 224, 0) Control(__UI_NewID).Stretch = True Control(__UI_NewID).BackColor = _RGB32(18, 90, 36) Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox4", 95, 24, 53, 224, 0) Control(__UI_NewID).Stretch = True Control(__UI_NewID).BackColor = _RGB32(18, 90, 36) Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox8", 67, 59, 481, 15, 0) Control(__UI_NewID).Stretch = True Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB", 34, 38, 104, 0, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB2", 34, 38, 132,-1, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB3", 34, 38, 170, 0, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB4", 34, 38, 118, 14, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB5", 34, 38, 151, 14, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB6", 34, 38, 209, 9, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB7", 34, 38, 224,-8, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB8", 34, 38, 179, 21, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB9", 34, 38, 257, 23, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB10", 34, 38, 258, 66, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB11", 34, 38, 266, 95, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB12", 34, 38, 288,-4, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB13", 34, 38, 236, 10, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB14", 34, 38, 269, 10, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB15", 34, 38, 327, 5, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB16", 34, 38, 342,-12, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB17", 34, 38, 297, 17, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB18", 34, 38, 375, 19, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB19", 34, 38, 376, 62, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB20", 34, 38, 384, 91, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB21", 34, 38, 474,-8, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB22", 34, 38, 422, 6, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB23", 34, 38, 455, 6, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB24", 34, 38, 513, 1, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB25", 34, 38, 528,-16, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB26", 34, 38, 483, 13, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB27", 34, 38, 561, 15, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB28", 34, 38, 562, 58, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB29", 34, 38, 570, 87, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB30", 34, 38, 343, 20, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB31", 34, 38, 291, 34, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB32", 34, 38, 324, 34, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB33", 34, 38, 382, 29, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB34", 34, 38, 397, 12, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB35", 34, 38, 352, 41, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB36", 34, 38, 430, 43, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB37", 34, 38, 431, 86, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB38", 34, 38, 439, 115, 0) SetCaption __UI_NewID, "." Control(__UI_NewID).Stretch = False Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_ToggleSwitch, "ToggleSwitch2", 40, 17, 185, 96, 0) Control(__UI_NewID).Stretch = False Control(__UI_NewID).SelectedForeColor = _RGB32(0, 0, 0) Control(__UI_NewID).SelectedBackColor = _RGB32(220, 239, 216) Control(__UI_NewID).Value = -1 Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_ToggleSwitch, "ToggleSwitch4", 40, 17, 139, 96, 0) Control(__UI_NewID).Stretch = False Control(__UI_NewID).SelectedForeColor = _RGB32(0, 0, 0) Control(__UI_NewID).SelectedBackColor = _RGB32(220, 239, 216) Control(__UI_NewID).Value = -1 Control(__UI_NewID).CanHaveFocus = True END SUB SUB __UI_AssignIDs Frog = __UI_GetID("Frog") PictureBox5 = __UI_GetID("PictureBox5") PictureBox6 = __UI_GetID("PictureBox6") PictureBox9 = __UI_GetID("PictureBox9") PictureBox7 = __UI_GetID("PictureBox7") PictureBox2 = __UI_GetID("PictureBox2") PictureBox1 = __UI_GetID("PictureBox1") ProgressBar1 = __UI_GetID("ProgressBar1") PictureBox3 = __UI_GetID("PictureBox3") PictureBox4 = __UI_GetID("PictureBox4") PictureBox8 = __UI_GetID("PictureBox8") LB = __UI_GetID("LB") LB2 = __UI_GetID("LB2") LB3 = __UI_GetID("LB3") LB4 = __UI_GetID("LB4") LB5 = __UI_GetID("LB5") LB6 = __UI_GetID("LB6") LB7 = __UI_GetID("LB7") LB8 = __UI_GetID("LB8") LB9 = __UI_GetID("LB9") LB10 = __UI_GetID("LB10") LB11 = __UI_GetID("LB11") LB12 = __UI_GetID("LB12") LB13 = __UI_GetID("LB13") LB14 = __UI_GetID("LB14") LB15 = __UI_GetID("LB15") LB16 = __UI_GetID("LB16") LB17 = __UI_GetID("LB17") LB18 = __UI_GetID("LB18") LB19 = __UI_GetID("LB19") LB20 = __UI_GetID("LB20") LB21 = __UI_GetID("LB21") LB22 = __UI_GetID("LB22") LB23 = __UI_GetID("LB23") LB24 = __UI_GetID("LB24") LB25 = __UI_GetID("LB25") LB26 = __UI_GetID("LB26") LB27 = __UI_GetID("LB27") LB28 = __UI_GetID("LB28") LB29 = __UI_GetID("LB29") LB30 = __UI_GetID("LB30") LB31 = __UI_GetID("LB31") LB32 = __UI_GetID("LB32") LB33 = __UI_GetID("LB33") LB34 = __UI_GetID("LB34") LB35 = __UI_GetID("LB35") LB36 = __UI_GetID("LB36") LB37 = __UI_GetID("LB37") LB38 = __UI_GetID("LB38") ToggleSwitch2 = __UI_GetID("ToggleSwitch2") ToggleSwitch4 = __UI_GetID("ToggleSwitch4")END SUB
bplus:
Uh... what is the fun part of this? :)
FellippeHeitor:
Loading it.
bplus:
--- Quote from: FellippeHeitor on June 11, 2018, 10:36:44 am ---Loading it.
--- End quote ---
? Mine loaded normally (I copy / pasted in your code) and then IDE proceeded to red line the first line in first event sub.
FellippeHeitor:
Loading into InForm, bplus. It was supposed to be a joke, but then one explains it...
Navigation
[0] Message Index
[#] Next page
Go to full version