': This form was generated by ': InForm - GUI library for QB64 - v1.5 ': Fellippe Heitor, 2016-2023 - fellippe@qb64.org - @fellippeheitor ': https://github.com/FellippeHeitor/InForm '----------------------------------------------------------- SUB __UI_LoadForm DIM __UI_NewID AS LONG, __UI_RegisterResult AS LONG __UI_NewID = __UI_NewControl(__UI_Type_Form, "RockHandScissor", 476, 482, 0, 0, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "RockPaperScissor" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12) Control(__UI_NewID).HasBorder = False __UI_NewID = __UI_NewControl(__UI_Type_Frame, "Frame1", 230, 63, 114, 375, 0) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 5 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "Frame2", 440, 320, 26, 44, 0) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 6 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "ScoreLB", 33, 28, 23, 7, __UI_GetID("Frame1")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Score" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Button, "StartBT", 50, 23, 15, 32, __UI_GetID("Frame1")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "&Start" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "ExitBT", 50, 23, 90, 32, __UI_GetID("Frame1")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "&Exit" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "HelpBT", 50, 23, 165, 32, __UI_GetID("Frame1")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "&Help" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB", 50, 22, 120, 7, __UI_GetID("Frame1")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "0000" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "ROCKPAPERSCISSORGAMELB", 233, 29, 122, 2, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "ROCK PAPER SCISSOR GAME" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 18) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "ChooseYourMoveAndWaitAIsOneLB", 193, 21, 132, 451, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Choose your move and wait AI's one" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "assetscartajpegPX", 70, 70, 12, 13, __UI_GetID("Frame2")) __UI_RegisterResult = 0 LoadImage Control(__UI_NewID), "assets\carta.jpg" Control(__UI_NewID).Stretch = True Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "assetssassojpegPX", 70, 70, 97, 13, __UI_GetID("Frame2")) __UI_RegisterResult = 0 LoadImage Control(__UI_NewID), "assets\sasso.jpg" Control(__UI_NewID).Stretch = True Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "assetsforbicepngPX", 70, 70, 185, 13, __UI_GetID("Frame2")) __UI_RegisterResult = 0 LoadImage Control(__UI_NewID), "assets\forbice.png" Control(__UI_NewID).Stretch = True Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "assetsRPSLS_helpjpgPX", 420, 214, 12, 94, __UI_GetID("Frame2")) __UI_RegisterResult = 0 LoadImage Control(__UI_NewID), "assets\RPSLS_help.jpg" Control(__UI_NewID).Stretch = True Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "assetsspokpngPX", 70, 70, 274, 13, __UI_GetID("Frame2")) __UI_RegisterResult = 0 LoadImage Control(__UI_NewID), "assets\spok.png" Control(__UI_NewID).Stretch = True Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "assetslizardpngPX", 70, 70, 358, 13, __UI_GetID("Frame2")) __UI_RegisterResult = 0 LoadImage Control(__UI_NewID), "assets\lizard.png" Control(__UI_NewID).Stretch = True Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).BorderSize = 1 END SUB SUB __UI_AssignIDs RockHandScissor = __UI_GetID("RockHandScissor") Frame1 = __UI_GetID("Frame1") Frame2 = __UI_GetID("Frame2") ScoreLB = __UI_GetID("ScoreLB") StartBT = __UI_GetID("StartBT") ExitBT = __UI_GetID("ExitBT") HelpBT = __UI_GetID("HelpBT") LB = __UI_GetID("LB") ROCKPAPERSCISSORGAMELB = __UI_GetID("ROCKPAPERSCISSORGAMELB") ChooseYourMoveAndWaitAIsOneLB = __UI_GetID("ChooseYourMoveAndWaitAIsOneLB") assetscartajpegPX = __UI_GetID("assetscartajpegPX") assetssassojpegPX = __UI_GetID("assetssassojpegPX") assetsforbicepngPX = __UI_GetID("assetsforbicepngPX") assetsRPSLS_helpjpgPX = __UI_GetID("assetsRPSLS_helpjpgPX") assetsspokpngPX = __UI_GetID("assetsspokpngPX") assetslizardpngPX = __UI_GetID("assetslizardpngPX") END SUB