« previous next »
Pages: [1]   Go Down

Author Topic: Just for fun: An example of what InForm is *NOT* for  (Read 25909 times)

0 Members and 1 Guest are viewing this topic.

This topic contains a post which is marked as Best Answer. Press here if you would like to see it.

FellippeHeitor

  • Guest
Just for fun: An example of what InForm is *NOT* for
« on: June 11, 2018, 12:54:28 am »
Form files should have the .frm extension.

Code: QB64: [Select]
  1. ': This form was generated by
  2. ': InForm - GUI library for QB64 - Beta version 8
  3. ': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
  4. ': https://github.com/FellippeHeitor/InForm
  5. '-----------------------------------------------------------
  6. SUB __UI_LoadForm
  7.  
  8.     DIM __UI_NewID AS LONG
  9.  
  10.     __UI_NewID = __UI_NewControl(__UI_Type_Form, "Frog", 605, 300, 0, 0, 0)
  11.     SetCaption __UI_NewID, "Frog"
  12.     Control(__UI_NewID).Stretch = False
  13.     Control(__UI_NewID).Font = SetFont("arial.ttf", 12)
  14.  
  15.     __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox5", 608, 150, 0, 0, 0)
  16.     Control(__UI_NewID).Stretch = True
  17.     Control(__UI_NewID).BackColor = _RGB32(0, 0, 96)
  18.     Control(__UI_NewID).Align = __UI_Center
  19.     Control(__UI_NewID).VAlign = __UI_Middle
  20.  
  21.     __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox6", 606, 150, 0, 150, 0)
  22.     Control(__UI_NewID).Stretch = True
  23.     Control(__UI_NewID).BackColor = _RGB32(0, 0, 139)
  24.     Control(__UI_NewID).Align = __UI_Center
  25.     Control(__UI_NewID).VAlign = __UI_Middle
  26.  
  27.     __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox9", 66, 150, 481, 150, 0)
  28.     Control(__UI_NewID).Stretch = True
  29.     Control(__UI_NewID).BackColor = _RGB32(132, 131, 131)
  30.     Control(__UI_NewID).Align = __UI_Center
  31.     Control(__UI_NewID).VAlign = __UI_Middle
  32.  
  33.     __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox7", 264, 50, 15, 211, 0)
  34.     Control(__UI_NewID).Stretch = True
  35.     Control(__UI_NewID).BackColor = _RGB32(175, 129, 70)
  36.     Control(__UI_NewID).Align = __UI_Center
  37.     Control(__UI_NewID).VAlign = __UI_Middle
  38.  
  39.     __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox2", 186, 138, 39, 96, 0)
  40.     Control(__UI_NewID).Stretch = True
  41.     Control(__UI_NewID).BackColor = _RGB32(48, 119, 85)
  42.     Control(__UI_NewID).Align = __UI_Center
  43.     Control(__UI_NewID).VAlign = __UI_Middle
  44.  
  45.     __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox1", 147, 138, 104, 52, 0)
  46.     Control(__UI_NewID).Stretch = True
  47.     Control(__UI_NewID).BackColor = _RGB32(48, 141, 85)
  48.     Control(__UI_NewID).Align = __UI_Center
  49.     Control(__UI_NewID).VAlign = __UI_Middle
  50.  
  51.     __UI_NewID = __UI_NewControl(__UI_Type_ProgressBar, "ProgressBar1", 105, 23, 125, 143, 0)
  52.     SetCaption __UI_NewID, "\#"
  53.     Control(__UI_NewID).Stretch = False
  54.     Control(__UI_NewID).Value = 100
  55.     Control(__UI_NewID).Max = 100
  56.  
  57.     __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox3", 95, 24, 167, 224, 0)
  58.     Control(__UI_NewID).Stretch = True
  59.     Control(__UI_NewID).BackColor = _RGB32(18, 90, 36)
  60.     Control(__UI_NewID).Align = __UI_Center
  61.     Control(__UI_NewID).VAlign = __UI_Middle
  62.  
  63.     __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox4", 95, 24, 53, 224, 0)
  64.     Control(__UI_NewID).Stretch = True
  65.     Control(__UI_NewID).BackColor = _RGB32(18, 90, 36)
  66.     Control(__UI_NewID).Align = __UI_Center
  67.     Control(__UI_NewID).VAlign = __UI_Middle
  68.  
  69.     __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox8", 67, 59, 481, 15, 0)
  70.     Control(__UI_NewID).Stretch = True
  71.     Control(__UI_NewID).Align = __UI_Center
  72.     Control(__UI_NewID).VAlign = __UI_Middle
  73.  
  74.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB", 34, 38, 104, 0, 0)
  75.     SetCaption __UI_NewID, "."
  76.     Control(__UI_NewID).Stretch = False
  77.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  78.     Control(__UI_NewID).BackStyle = __UI_Transparent
  79.     Control(__UI_NewID).Align = __UI_Center
  80.     Control(__UI_NewID).VAlign = __UI_Middle
  81.  
  82.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB2", 34, 38, 132,-1, 0)
  83.     SetCaption __UI_NewID, "."
  84.     Control(__UI_NewID).Stretch = False
  85.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  86.     Control(__UI_NewID).BackStyle = __UI_Transparent
  87.     Control(__UI_NewID).Align = __UI_Center
  88.     Control(__UI_NewID).VAlign = __UI_Middle
  89.  
  90.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB3", 34, 38, 170, 0, 0)
  91.     SetCaption __UI_NewID, "."
  92.     Control(__UI_NewID).Stretch = False
  93.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  94.     Control(__UI_NewID).BackStyle = __UI_Transparent
  95.     Control(__UI_NewID).Align = __UI_Center
  96.     Control(__UI_NewID).VAlign = __UI_Middle
  97.  
  98.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB4", 34, 38, 118, 14, 0)
  99.     SetCaption __UI_NewID, "."
  100.     Control(__UI_NewID).Stretch = False
  101.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  102.     Control(__UI_NewID).BackStyle = __UI_Transparent
  103.     Control(__UI_NewID).Align = __UI_Center
  104.     Control(__UI_NewID).VAlign = __UI_Middle
  105.  
  106.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB5", 34, 38, 151, 14, 0)
  107.     SetCaption __UI_NewID, "."
  108.     Control(__UI_NewID).Stretch = False
  109.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  110.     Control(__UI_NewID).BackStyle = __UI_Transparent
  111.     Control(__UI_NewID).Align = __UI_Center
  112.     Control(__UI_NewID).VAlign = __UI_Middle
  113.  
  114.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB6", 34, 38, 209, 9, 0)
  115.     SetCaption __UI_NewID, "."
  116.     Control(__UI_NewID).Stretch = False
  117.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  118.     Control(__UI_NewID).BackStyle = __UI_Transparent
  119.     Control(__UI_NewID).Align = __UI_Center
  120.     Control(__UI_NewID).VAlign = __UI_Middle
  121.  
  122.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB7", 34, 38, 224,-8, 0)
  123.     SetCaption __UI_NewID, "."
  124.     Control(__UI_NewID).Stretch = False
  125.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  126.     Control(__UI_NewID).BackStyle = __UI_Transparent
  127.     Control(__UI_NewID).Align = __UI_Center
  128.     Control(__UI_NewID).VAlign = __UI_Middle
  129.  
  130.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB8", 34, 38, 179, 21, 0)
  131.     SetCaption __UI_NewID, "."
  132.     Control(__UI_NewID).Stretch = False
  133.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  134.     Control(__UI_NewID).BackStyle = __UI_Transparent
  135.     Control(__UI_NewID).Align = __UI_Center
  136.     Control(__UI_NewID).VAlign = __UI_Middle
  137.  
  138.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB9", 34, 38, 257, 23, 0)
  139.     SetCaption __UI_NewID, "."
  140.     Control(__UI_NewID).Stretch = False
  141.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  142.     Control(__UI_NewID).BackStyle = __UI_Transparent
  143.     Control(__UI_NewID).Align = __UI_Center
  144.     Control(__UI_NewID).VAlign = __UI_Middle
  145.  
  146.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB10", 34, 38, 258, 66, 0)
  147.     SetCaption __UI_NewID, "."
  148.     Control(__UI_NewID).Stretch = False
  149.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  150.     Control(__UI_NewID).BackStyle = __UI_Transparent
  151.     Control(__UI_NewID).Align = __UI_Center
  152.     Control(__UI_NewID).VAlign = __UI_Middle
  153.  
  154.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB11", 34, 38, 266, 95, 0)
  155.     SetCaption __UI_NewID, "."
  156.     Control(__UI_NewID).Stretch = False
  157.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  158.     Control(__UI_NewID).BackStyle = __UI_Transparent
  159.     Control(__UI_NewID).Align = __UI_Center
  160.     Control(__UI_NewID).VAlign = __UI_Middle
  161.  
  162.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB12", 34, 38, 288,-4, 0)
  163.     SetCaption __UI_NewID, "."
  164.     Control(__UI_NewID).Stretch = False
  165.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  166.     Control(__UI_NewID).BackStyle = __UI_Transparent
  167.     Control(__UI_NewID).Align = __UI_Center
  168.     Control(__UI_NewID).VAlign = __UI_Middle
  169.  
  170.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB13", 34, 38, 236, 10, 0)
  171.     SetCaption __UI_NewID, "."
  172.     Control(__UI_NewID).Stretch = False
  173.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  174.     Control(__UI_NewID).BackStyle = __UI_Transparent
  175.     Control(__UI_NewID).Align = __UI_Center
  176.     Control(__UI_NewID).VAlign = __UI_Middle
  177.  
  178.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB14", 34, 38, 269, 10, 0)
  179.     SetCaption __UI_NewID, "."
  180.     Control(__UI_NewID).Stretch = False
  181.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  182.     Control(__UI_NewID).BackStyle = __UI_Transparent
  183.     Control(__UI_NewID).Align = __UI_Center
  184.     Control(__UI_NewID).VAlign = __UI_Middle
  185.  
  186.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB15", 34, 38, 327, 5, 0)
  187.     SetCaption __UI_NewID, "."
  188.     Control(__UI_NewID).Stretch = False
  189.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  190.     Control(__UI_NewID).BackStyle = __UI_Transparent
  191.     Control(__UI_NewID).Align = __UI_Center
  192.     Control(__UI_NewID).VAlign = __UI_Middle
  193.  
  194.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB16", 34, 38, 342,-12, 0)
  195.     SetCaption __UI_NewID, "."
  196.     Control(__UI_NewID).Stretch = False
  197.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  198.     Control(__UI_NewID).BackStyle = __UI_Transparent
  199.     Control(__UI_NewID).Align = __UI_Center
  200.     Control(__UI_NewID).VAlign = __UI_Middle
  201.  
  202.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB17", 34, 38, 297, 17, 0)
  203.     SetCaption __UI_NewID, "."
  204.     Control(__UI_NewID).Stretch = False
  205.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  206.     Control(__UI_NewID).BackStyle = __UI_Transparent
  207.     Control(__UI_NewID).Align = __UI_Center
  208.     Control(__UI_NewID).VAlign = __UI_Middle
  209.  
  210.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB18", 34, 38, 375, 19, 0)
  211.     SetCaption __UI_NewID, "."
  212.     Control(__UI_NewID).Stretch = False
  213.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  214.     Control(__UI_NewID).BackStyle = __UI_Transparent
  215.     Control(__UI_NewID).Align = __UI_Center
  216.     Control(__UI_NewID).VAlign = __UI_Middle
  217.  
  218.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB19", 34, 38, 376, 62, 0)
  219.     SetCaption __UI_NewID, "."
  220.     Control(__UI_NewID).Stretch = False
  221.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  222.     Control(__UI_NewID).BackStyle = __UI_Transparent
  223.     Control(__UI_NewID).Align = __UI_Center
  224.     Control(__UI_NewID).VAlign = __UI_Middle
  225.  
  226.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB20", 34, 38, 384, 91, 0)
  227.     SetCaption __UI_NewID, "."
  228.     Control(__UI_NewID).Stretch = False
  229.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  230.     Control(__UI_NewID).BackStyle = __UI_Transparent
  231.     Control(__UI_NewID).Align = __UI_Center
  232.     Control(__UI_NewID).VAlign = __UI_Middle
  233.  
  234.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB21", 34, 38, 474,-8, 0)
  235.     SetCaption __UI_NewID, "."
  236.     Control(__UI_NewID).Stretch = False
  237.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  238.     Control(__UI_NewID).BackStyle = __UI_Transparent
  239.     Control(__UI_NewID).Align = __UI_Center
  240.     Control(__UI_NewID).VAlign = __UI_Middle
  241.  
  242.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB22", 34, 38, 422, 6, 0)
  243.     SetCaption __UI_NewID, "."
  244.     Control(__UI_NewID).Stretch = False
  245.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  246.     Control(__UI_NewID).BackStyle = __UI_Transparent
  247.     Control(__UI_NewID).Align = __UI_Center
  248.     Control(__UI_NewID).VAlign = __UI_Middle
  249.  
  250.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB23", 34, 38, 455, 6, 0)
  251.     SetCaption __UI_NewID, "."
  252.     Control(__UI_NewID).Stretch = False
  253.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  254.     Control(__UI_NewID).BackStyle = __UI_Transparent
  255.     Control(__UI_NewID).Align = __UI_Center
  256.     Control(__UI_NewID).VAlign = __UI_Middle
  257.  
  258.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB24", 34, 38, 513, 1, 0)
  259.     SetCaption __UI_NewID, "."
  260.     Control(__UI_NewID).Stretch = False
  261.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  262.     Control(__UI_NewID).BackStyle = __UI_Transparent
  263.     Control(__UI_NewID).Align = __UI_Center
  264.     Control(__UI_NewID).VAlign = __UI_Middle
  265.  
  266.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB25", 34, 38, 528,-16, 0)
  267.     SetCaption __UI_NewID, "."
  268.     Control(__UI_NewID).Stretch = False
  269.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  270.     Control(__UI_NewID).BackStyle = __UI_Transparent
  271.     Control(__UI_NewID).Align = __UI_Center
  272.     Control(__UI_NewID).VAlign = __UI_Middle
  273.  
  274.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB26", 34, 38, 483, 13, 0)
  275.     SetCaption __UI_NewID, "."
  276.     Control(__UI_NewID).Stretch = False
  277.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  278.     Control(__UI_NewID).BackStyle = __UI_Transparent
  279.     Control(__UI_NewID).Align = __UI_Center
  280.     Control(__UI_NewID).VAlign = __UI_Middle
  281.  
  282.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB27", 34, 38, 561, 15, 0)
  283.     SetCaption __UI_NewID, "."
  284.     Control(__UI_NewID).Stretch = False
  285.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  286.     Control(__UI_NewID).BackStyle = __UI_Transparent
  287.     Control(__UI_NewID).Align = __UI_Center
  288.     Control(__UI_NewID).VAlign = __UI_Middle
  289.  
  290.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB28", 34, 38, 562, 58, 0)
  291.     SetCaption __UI_NewID, "."
  292.     Control(__UI_NewID).Stretch = False
  293.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  294.     Control(__UI_NewID).BackStyle = __UI_Transparent
  295.     Control(__UI_NewID).Align = __UI_Center
  296.     Control(__UI_NewID).VAlign = __UI_Middle
  297.  
  298.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB29", 34, 38, 570, 87, 0)
  299.     SetCaption __UI_NewID, "."
  300.     Control(__UI_NewID).Stretch = False
  301.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  302.     Control(__UI_NewID).BackStyle = __UI_Transparent
  303.     Control(__UI_NewID).Align = __UI_Center
  304.     Control(__UI_NewID).VAlign = __UI_Middle
  305.  
  306.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB30", 34, 38, 343, 20, 0)
  307.     SetCaption __UI_NewID, "."
  308.     Control(__UI_NewID).Stretch = False
  309.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  310.     Control(__UI_NewID).BackStyle = __UI_Transparent
  311.     Control(__UI_NewID).Align = __UI_Center
  312.     Control(__UI_NewID).VAlign = __UI_Middle
  313.  
  314.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB31", 34, 38, 291, 34, 0)
  315.     SetCaption __UI_NewID, "."
  316.     Control(__UI_NewID).Stretch = False
  317.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  318.     Control(__UI_NewID).BackStyle = __UI_Transparent
  319.     Control(__UI_NewID).Align = __UI_Center
  320.     Control(__UI_NewID).VAlign = __UI_Middle
  321.  
  322.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB32", 34, 38, 324, 34, 0)
  323.     SetCaption __UI_NewID, "."
  324.     Control(__UI_NewID).Stretch = False
  325.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  326.     Control(__UI_NewID).BackStyle = __UI_Transparent
  327.     Control(__UI_NewID).Align = __UI_Center
  328.     Control(__UI_NewID).VAlign = __UI_Middle
  329.  
  330.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB33", 34, 38, 382, 29, 0)
  331.     SetCaption __UI_NewID, "."
  332.     Control(__UI_NewID).Stretch = False
  333.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  334.     Control(__UI_NewID).BackStyle = __UI_Transparent
  335.     Control(__UI_NewID).Align = __UI_Center
  336.     Control(__UI_NewID).VAlign = __UI_Middle
  337.  
  338.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB34", 34, 38, 397, 12, 0)
  339.     SetCaption __UI_NewID, "."
  340.     Control(__UI_NewID).Stretch = False
  341.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  342.     Control(__UI_NewID).BackStyle = __UI_Transparent
  343.     Control(__UI_NewID).Align = __UI_Center
  344.     Control(__UI_NewID).VAlign = __UI_Middle
  345.  
  346.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB35", 34, 38, 352, 41, 0)
  347.     SetCaption __UI_NewID, "."
  348.     Control(__UI_NewID).Stretch = False
  349.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  350.     Control(__UI_NewID).BackStyle = __UI_Transparent
  351.     Control(__UI_NewID).Align = __UI_Center
  352.     Control(__UI_NewID).VAlign = __UI_Middle
  353.  
  354.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB36", 34, 38, 430, 43, 0)
  355.     SetCaption __UI_NewID, "."
  356.     Control(__UI_NewID).Stretch = False
  357.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  358.     Control(__UI_NewID).BackStyle = __UI_Transparent
  359.     Control(__UI_NewID).Align = __UI_Center
  360.     Control(__UI_NewID).VAlign = __UI_Middle
  361.  
  362.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB37", 34, 38, 431, 86, 0)
  363.     SetCaption __UI_NewID, "."
  364.     Control(__UI_NewID).Stretch = False
  365.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  366.     Control(__UI_NewID).BackStyle = __UI_Transparent
  367.     Control(__UI_NewID).Align = __UI_Center
  368.     Control(__UI_NewID).VAlign = __UI_Middle
  369.  
  370.     __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB38", 34, 38, 439, 115, 0)
  371.     SetCaption __UI_NewID, "."
  372.     Control(__UI_NewID).Stretch = False
  373.     Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
  374.     Control(__UI_NewID).BackStyle = __UI_Transparent
  375.     Control(__UI_NewID).Align = __UI_Center
  376.     Control(__UI_NewID).VAlign = __UI_Middle
  377.  
  378.     __UI_NewID = __UI_NewControl(__UI_Type_ToggleSwitch, "ToggleSwitch2", 40, 17, 185, 96, 0)
  379.     Control(__UI_NewID).Stretch = False
  380.     Control(__UI_NewID).SelectedForeColor = _RGB32(0, 0, 0)
  381.     Control(__UI_NewID).SelectedBackColor = _RGB32(220, 239, 216)
  382.     Control(__UI_NewID).Value = -1
  383.     Control(__UI_NewID).CanHaveFocus = True
  384.  
  385.     __UI_NewID = __UI_NewControl(__UI_Type_ToggleSwitch, "ToggleSwitch4", 40, 17, 139, 96, 0)
  386.     Control(__UI_NewID).Stretch = False
  387.     Control(__UI_NewID).SelectedForeColor = _RGB32(0, 0, 0)
  388.     Control(__UI_NewID).SelectedBackColor = _RGB32(220, 239, 216)
  389.     Control(__UI_NewID).Value = -1
  390.     Control(__UI_NewID).CanHaveFocus = True
  391.  
  393.  
  394. SUB __UI_AssignIDs
  395.     Frog = __UI_GetID("Frog")
  396.     PictureBox5 = __UI_GetID("PictureBox5")
  397.     PictureBox6 = __UI_GetID("PictureBox6")
  398.     PictureBox9 = __UI_GetID("PictureBox9")
  399.     PictureBox7 = __UI_GetID("PictureBox7")
  400.     PictureBox2 = __UI_GetID("PictureBox2")
  401.     PictureBox1 = __UI_GetID("PictureBox1")
  402.     ProgressBar1 = __UI_GetID("ProgressBar1")
  403.     PictureBox3 = __UI_GetID("PictureBox3")
  404.     PictureBox4 = __UI_GetID("PictureBox4")
  405.     PictureBox8 = __UI_GetID("PictureBox8")
  406.     LB = __UI_GetID("LB")
  407.     LB2 = __UI_GetID("LB2")
  408.     LB3 = __UI_GetID("LB3")
  409.     LB4 = __UI_GetID("LB4")
  410.     LB5 = __UI_GetID("LB5")
  411.     LB6 = __UI_GetID("LB6")
  412.     LB7 = __UI_GetID("LB7")
  413.     LB8 = __UI_GetID("LB8")
  414.     LB9 = __UI_GetID("LB9")
  415.     LB10 = __UI_GetID("LB10")
  416.     LB11 = __UI_GetID("LB11")
  417.     LB12 = __UI_GetID("LB12")
  418.     LB13 = __UI_GetID("LB13")
  419.     LB14 = __UI_GetID("LB14")
  420.     LB15 = __UI_GetID("LB15")
  421.     LB16 = __UI_GetID("LB16")
  422.     LB17 = __UI_GetID("LB17")
  423.     LB18 = __UI_GetID("LB18")
  424.     LB19 = __UI_GetID("LB19")
  425.     LB20 = __UI_GetID("LB20")
  426.     LB21 = __UI_GetID("LB21")
  427.     LB22 = __UI_GetID("LB22")
  428.     LB23 = __UI_GetID("LB23")
  429.     LB24 = __UI_GetID("LB24")
  430.     LB25 = __UI_GetID("LB25")
  431.     LB26 = __UI_GetID("LB26")
  432.     LB27 = __UI_GetID("LB27")
  433.     LB28 = __UI_GetID("LB28")
  434.     LB29 = __UI_GetID("LB29")
  435.     LB30 = __UI_GetID("LB30")
  436.     LB31 = __UI_GetID("LB31")
  437.     LB32 = __UI_GetID("LB32")
  438.     LB33 = __UI_GetID("LB33")
  439.     LB34 = __UI_GetID("LB34")
  440.     LB35 = __UI_GetID("LB35")
  441.     LB36 = __UI_GetID("LB36")
  442.     LB37 = __UI_GetID("LB37")
  443.     LB38 = __UI_GetID("LB38")
  444.     ToggleSwitch2 = __UI_GetID("ToggleSwitch2")
  445.     ToggleSwitch4 = __UI_GetID("ToggleSwitch4")
  447.  
« Last Edit: June 11, 2018, 12:58:57 am by FellippeHeitor »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Just for fun: An example of what InForm is *NOT* for
« Reply #1 on: June 11, 2018, 10:15:51 am »
Uh... what is the fun part of this? :)
Logged

FellippeHeitor

  • Guest
Re: Just for fun: An example of what InForm is *NOT* for
« Reply #2 on: June 11, 2018, 10:36:44 am »
Loading it.
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Just for fun: An example of what InForm is *NOT* for
« Reply #3 on: June 11, 2018, 10:41:40 am »
Quote from: FellippeHeitor on June 11, 2018, 10:36:44 am
Loading it.

? Mine loaded normally (I copy / pasted in your code) and then IDE proceeded to red line the first line in first event sub.
Logged

FellippeHeitor

  • Guest
Re: Just for fun: An example of what InForm is *NOT* for
« Reply #4 on: June 11, 2018, 11:07:11 am »
Loading into InForm, bplus. It was supposed to be a joke, but then one explains it...
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Just for fun: An example of what InForm is *NOT* for
« Reply #5 on: June 11, 2018, 12:26:13 pm »
Ha well the joke's on me!

I knew something funny was up posting in this board and the "Just for fun:" in title.
You know me, I hate to miss out on any fun when it comes to coding...

It was the frog that made me actually try it. Yeah, I blame the frog!


Oh wait... load it into the UiEditor, ah now I see... I think I will move the progress bar a bit and give it a text box or label.
« Last Edit: June 11, 2018, 12:43:01 pm by bplus »
Logged

FellippeHeitor

  • Guest
Re: Just for fun: An example of what InForm is *NOT* for
« Reply #6 on: June 11, 2018, 12:39:21 pm »
If you save with InForm and then compile the resulting .bas, you can make the frog look left and right since his eyes are ToggleSwitch controls.
Logged
Marked as best answer by on October 25, 2024, 09:03:39 am

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Just for fun: An example of what InForm is *NOT* for
« Reply #7 on: June 11, 2018, 01:47:52 pm »
  • Undo Best Answer
    • "Action"
    Code: QB64: [Select]
    1. 'frog.bas add action to Fellippe's .frm
    2. ': This program uses
    3. ': InForm - GUI library for QB64 - Beta version 7
    4. ': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
    5. ': https://github.com/FellippeHeitor/InForm
    6. '-----------------------------------------------------------
    7.  
    8. ': Controls' IDs: ------------------------------------------------------------------
    10. DIM SHARED PictureBox5 AS LONG
    11. DIM SHARED PictureBox6 AS LONG
    12. DIM SHARED PictureBox9 AS LONG
    13. DIM SHARED PictureBox7 AS LONG
    14. DIM SHARED PictureBox2 AS LONG
    15. DIM SHARED PictureBox1 AS LONG
    16. DIM SHARED ProgressBar1 AS LONG
    17. DIM SHARED PictureBox3 AS LONG
    18. DIM SHARED PictureBox4 AS LONG
    19. DIM SHARED PictureBox8 AS LONG
    58. DIM SHARED ToggleSwitch2 AS LONG
    59. DIM SHARED ToggleSwitch4 AS LONG
    60. DIM SHARED lpCnt
    61. ': External modules: ---------------------------------------------------------------
    62. '$INCLUDE:'InForm\InForm.ui'
    63. '$INCLUDE:'InForm\xp.uitheme'
    64. '$INCLUDE:'Frog.frm'
    65.  
    66. ': Event procedures: ---------------------------------------------------------------
    67. SUB __UI_BeforeInit
    68.  
    70.  
    71. SUB __UI_OnLoad
    72.  
    74.  
    75. SUB __UI_BeforeUpdateDisplay
    76.     'This event occurs at approximately 30 frames per second.
    77.     'You can change the update frequency by calling SetFrameRate DesiredRate%
    78.     lpCnt = lpCnt + 1
    79.     r = INT(RND * 38) + 1
    80.     SELECT CASE r
    81.         CASE 1: IF Caption(LB) = "ribbit" THEN Caption(LB) = "." ELSE Caption(LB) = "ribbit"
    82.         CASE 2: IF Caption(LB2) = "ribbit" THEN Caption(LB2) = "." ELSE Caption(LB2) = "ribbit"
    83.         CASE 3: IF Caption(LB3) = "ribbit" THEN Caption(LB3) = "." ELSE Caption(LB3) = "ribbit"
    84.         CASE 4: IF Caption(LB4) = "ribbit" THEN Caption(LB4) = "." ELSE Caption(LB4) = "ribbit"
    85.         CASE 5: IF Caption(LB5) = "ribbit" THEN Caption(LB5) = "." ELSE Caption(LB5) = "ribbit"
    86.         CASE 6: IF Caption(LB6) = "ribbit" THEN Caption(LB6) = "." ELSE Caption(LB6) = "ribbit"
    87.         CASE 7: IF Caption(LB7) = "ribbit" THEN Caption(LB7) = "." ELSE Caption(LB7) = "ribbit"
    88.         CASE 8: IF Caption(LB8) = "ribbit" THEN Caption(LB8) = "." ELSE Caption(LB8) = "ribbit"
    89.         CASE 9: IF Caption(LB9) = "ribbit" THEN Caption(LB9) = "." ELSE Caption(LB9) = "ribbit"
    90.         CASE 10: IF Caption(LB10) = "ribbit" THEN Caption(LB10) = "." ELSE Caption(LB10) = "ribbit"
    91.         CASE 11: IF Caption(LB11) = "ribbit" THEN Caption(LB11) = "." ELSE Caption(LB11) = "ribbit"
    92.         CASE 12: IF Caption(LB12) = "ribbit" THEN Caption(LB12) = "." ELSE Caption(LB12) = "ribbit"
    93.         CASE 13: IF Caption(LB13) = "ribbit" THEN Caption(LB13) = "." ELSE Caption(LB13) = "ribbit"
    94.         CASE 14: IF Caption(LB14) = "ribbit" THEN Caption(LB14) = "." ELSE Caption(LB14) = "ribbit"
    95.         CASE 15: IF Caption(LB15) = "ribbit" THEN Caption(LB15) = "." ELSE Caption(LB15) = "ribbit"
    96.         CASE 16: IF Caption(LB16) = "ribbit" THEN Caption(LB16) = "." ELSE Caption(LB16) = "ribbit"
    97.         CASE 17: IF Caption(LB17) = "ribbit" THEN Caption(LB17) = "." ELSE Caption(LB17) = "ribbit"
    98.         CASE 18: IF Caption(LB18) = "ribbit" THEN Caption(LB18) = "." ELSE Caption(LB18) = "ribbit"
    99.         CASE 19: IF Caption(LB19) = "ribbit" THEN Caption(LB19) = "." ELSE Caption(LB19) = "ribbit"
    100.         CASE 20: IF Caption(LB20) = "ribbit" THEN Caption(LB20) = "." ELSE Caption(LB20) = "ribbit"
    101.         CASE 21: IF Caption(LB21) = "ribbit" THEN Caption(LB21) = "." ELSE Caption(LB21) = "ribbit"
    102.         CASE 22: IF Caption(LB22) = "ribbit" THEN Caption(LB22) = "." ELSE Caption(LB22) = "ribbit"
    103.         CASE 23: IF Caption(LB23) = "ribbit" THEN Caption(LB23) = "." ELSE Caption(LB23) = "ribbit"
    104.         CASE 24: IF Caption(LB24) = "ribbit" THEN Caption(LB24) = "." ELSE Caption(LB24) = "ribbit"
    105.         CASE 25: IF Caption(LB25) = "ribbit" THEN Caption(LB25) = "." ELSE Caption(LB25) = "ribbit"
    106.         CASE 26: IF Caption(LB26) = "ribbit" THEN Caption(LB26) = "." ELSE Caption(LB26) = "ribbit"
    107.         CASE 27: IF Caption(LB27) = "ribbit" THEN Caption(LB27) = "." ELSE Caption(LB27) = "ribbit"
    108.         CASE 28: IF Caption(LB28) = "ribbit" THEN Caption(LB28) = "." ELSE Caption(LB28) = "ribbit"
    109.         CASE 29: IF Caption(LB29) = "ribbit" THEN Caption(LB29) = "." ELSE Caption(LB29) = "ribbit"
    110.         CASE 30: IF Caption(LB30) = "ribbit" THEN Caption(LB30) = "." ELSE Caption(LB30) = "ribbit"
    111.         CASE 31: IF Caption(LB31) = "ribbit" THEN Caption(LB31) = "." ELSE Caption(LB31) = "ribbit"
    112.         CASE 32: IF Caption(LB32) = "ribbit" THEN Caption(LB32) = "." ELSE Caption(LB32) = "ribbit"
    113.         CASE 33: IF Caption(LB33) = "ribbit" THEN Caption(LB33) = "." ELSE Caption(LB33) = "ribbit"
    114.         CASE 34: IF Caption(LB34) = "ribbit" THEN Caption(LB34) = "." ELSE Caption(LB34) = "ribbit"
    115.         CASE 35: IF Caption(LB35) = "ribbit" THEN Caption(LB35) = "." ELSE Caption(LB35) = "ribbit"
    116.         CASE 36: IF Caption(LB36) = "ribbit" THEN Caption(LB36) = "." ELSE Caption(LB36) = "ribbit"
    117.         CASE 37: IF Caption(LB37) = "ribbit" THEN Caption(LB37) = "." ELSE Caption(LB37) = "ribbit"
    118.         CASE 38: IF Caption(LB38) = "ribbit" THEN Caption(LB38) = "." ELSE Caption(LB38) = "ribbit"
    119.     END SELECT
    120.     IF lpCnt MOD 8 = 0 THEN Control(ProgressBar1).Value = RND * 100
    121.     IF lpCnt MOD 30 = 1 THEN Control(ToggleSwitch2).Value = INT(RND * 2) * -1
    122.     IF lpCnt MOD 30 = 25 THEN Control(ToggleSwitch4).Value = INT(RND * 2) * -1
    123.  
    125.  
    126. SUB __UI_BeforeUnload
    127.     'If you set __UI_UnloadSignal = False here you can
    128.     'cancel the user's request to close.
    129.  
    130.  
    132.  
    133. SUB __UI_Click (id AS LONG)
    134.     SELECT CASE id
    135.         CASE Frog
    136.  
    137.         CASE PictureBox5
    138.  
    139.         CASE PictureBox6
    140.  
    141.         CASE PictureBox9
    142.  
    143.         CASE PictureBox7
    144.  
    145.         CASE PictureBox2
    146.  
    147.         CASE PictureBox1
    148.  
    149.         CASE ProgressBar1
    150.  
    151.         CASE PictureBox3
    152.  
    153.         CASE PictureBox4
    154.  
    155.         CASE PictureBox8
    156.  
    157.         CASE LB
    158.  
    159.         CASE LB2
    160.  
    161.         CASE LB3
    162.  
    163.         CASE LB4
    164.  
    165.         CASE LB5
    166.  
    167.         CASE LB6
    168.  
    169.         CASE LB7
    170.  
    171.         CASE LB8
    172.  
    173.         CASE LB9
    174.  
    175.         CASE LB10
    176.  
    177.         CASE LB11
    178.  
    179.         CASE LB12
    180.  
    181.         CASE LB13
    182.  
    183.         CASE LB14
    184.  
    185.         CASE LB15
    186.  
    187.         CASE LB16
    188.  
    189.         CASE LB17
    190.  
    191.         CASE LB18
    192.  
    193.         CASE LB19
    194.  
    195.         CASE LB20
    196.  
    197.         CASE LB21
    198.  
    199.         CASE LB22
    200.  
    201.         CASE LB23
    202.  
    203.         CASE LB24
    204.  
    205.         CASE LB25
    206.  
    207.         CASE LB26
    208.  
    209.         CASE LB27
    210.  
    211.         CASE LB28
    212.  
    213.         CASE LB29
    214.  
    215.         CASE LB30
    216.  
    217.         CASE LB31
    218.  
    219.         CASE LB32
    220.  
    221.         CASE LB33
    222.  
    223.         CASE LB34
    224.  
    225.         CASE LB35
    226.  
    227.         CASE LB36
    228.  
    229.         CASE LB37
    230.  
    231.         CASE LB38
    232.  
    233.         CASE ToggleSwitch2
    234.  
    235.         CASE ToggleSwitch4
    236.  
    237.     END SELECT
    239.  
    240. SUB __UI_MouseEnter (id AS LONG)
    241.     SELECT CASE id
    242.         CASE Frog
    243.  
    244.         CASE PictureBox5
    245.  
    246.         CASE PictureBox6
    247.  
    248.         CASE PictureBox9
    249.  
    250.         CASE PictureBox7
    251.  
    252.         CASE PictureBox2
    253.  
    254.         CASE PictureBox1
    255.  
    256.         CASE ProgressBar1
    257.  
    258.         CASE PictureBox3
    259.  
    260.         CASE PictureBox4
    261.  
    262.         CASE PictureBox8
    263.  
    264.         CASE LB
    265.  
    266.         CASE LB2
    267.  
    268.         CASE LB3
    269.  
    270.         CASE LB4
    271.  
    272.         CASE LB5
    273.  
    274.         CASE LB6
    275.  
    276.         CASE LB7
    277.  
    278.         CASE LB8
    279.  
    280.         CASE LB9
    281.  
    282.         CASE LB10
    283.  
    284.         CASE LB11
    285.  
    286.         CASE LB12
    287.  
    288.         CASE LB13
    289.  
    290.         CASE LB14
    291.  
    292.         CASE LB15
    293.  
    294.         CASE LB16
    295.  
    296.         CASE LB17
    297.  
    298.         CASE LB18
    299.  
    300.         CASE LB19
    301.  
    302.         CASE LB20
    303.  
    304.         CASE LB21
    305.  
    306.         CASE LB22
    307.  
    308.         CASE LB23
    309.  
    310.         CASE LB24
    311.  
    312.         CASE LB25
    313.  
    314.         CASE LB26
    315.  
    316.         CASE LB27
    317.  
    318.         CASE LB28
    319.  
    320.         CASE LB29
    321.  
    322.         CASE LB30
    323.  
    324.         CASE LB31
    325.  
    326.         CASE LB32
    327.  
    328.         CASE LB33
    329.  
    330.         CASE LB34
    331.  
    332.         CASE LB35
    333.  
    334.         CASE LB36
    335.  
    336.         CASE LB37
    337.  
    338.         CASE LB38
    339.  
    340.         CASE ToggleSwitch2
    341.  
    342.         CASE ToggleSwitch4
    343.  
    344.     END SELECT
    346.  
    347. SUB __UI_MouseLeave (id AS LONG)
    348.     SELECT CASE id
    349.         CASE Frog
    350.  
    351.         CASE PictureBox5
    352.  
    353.         CASE PictureBox6
    354.  
    355.         CASE PictureBox9
    356.  
    357.         CASE PictureBox7
    358.  
    359.         CASE PictureBox2
    360.  
    361.         CASE PictureBox1
    362.  
    363.         CASE ProgressBar1
    364.  
    365.         CASE PictureBox3
    366.  
    367.         CASE PictureBox4
    368.  
    369.         CASE PictureBox8
    370.  
    371.         CASE LB
    372.  
    373.         CASE LB2
    374.  
    375.         CASE LB3
    376.  
    377.         CASE LB4
    378.  
    379.         CASE LB5
    380.  
    381.         CASE LB6
    382.  
    383.         CASE LB7
    384.  
    385.         CASE LB8
    386.  
    387.         CASE LB9
    388.  
    389.         CASE LB10
    390.  
    391.         CASE LB11
    392.  
    393.         CASE LB12
    394.  
    395.         CASE LB13
    396.  
    397.         CASE LB14
    398.  
    399.         CASE LB15
    400.  
    401.         CASE LB16
    402.  
    403.         CASE LB17
    404.  
    405.         CASE LB18
    406.  
    407.         CASE LB19
    408.  
    409.         CASE LB20
    410.  
    411.         CASE LB21
    412.  
    413.         CASE LB22
    414.  
    415.         CASE LB23
    416.  
    417.         CASE LB24
    418.  
    419.         CASE LB25
    420.  
    421.         CASE LB26
    422.  
    423.         CASE LB27
    424.  
    425.         CASE LB28
    426.  
    427.         CASE LB29
    428.  
    429.         CASE LB30
    430.  
    431.         CASE LB31
    432.  
    433.         CASE LB32
    434.  
    435.         CASE LB33
    436.  
    437.         CASE LB34
    438.  
    439.         CASE LB35
    440.  
    441.         CASE LB36
    442.  
    443.         CASE LB37
    444.  
    445.         CASE LB38
    446.  
    447.         CASE ToggleSwitch2
    448.  
    449.         CASE ToggleSwitch4
    450.  
    451.     END SELECT
    453.  
    454. SUB __UI_FocusIn (id AS LONG)
    455.     SELECT CASE id
    456.         CASE ToggleSwitch2
    457.  
    458.         CASE ToggleSwitch4
    459.  
    460.     END SELECT
    462.  
    463. SUB __UI_FocusOut (id AS LONG)
    464.     'This event occurs right before a control loses focus.
    465.     'To prevent a control from losing focus, set __UI_KeepFocus = True below.
    466.     SELECT CASE id
    467.         CASE ToggleSwitch2
    468.  
    469.         CASE ToggleSwitch4
    470.  
    471.     END SELECT
    473.  
    474. SUB __UI_MouseDown (id AS LONG)
    475.     SELECT CASE id
    476.         CASE Frog
    477.  
    478.         CASE PictureBox5
    479.  
    480.         CASE PictureBox6
    481.  
    482.         CASE PictureBox9
    483.  
    484.         CASE PictureBox7
    485.  
    486.         CASE PictureBox2
    487.  
    488.         CASE PictureBox1
    489.  
    490.         CASE ProgressBar1
    491.  
    492.         CASE PictureBox3
    493.  
    494.         CASE PictureBox4
    495.  
    496.         CASE PictureBox8
    497.  
    498.         CASE LB
    499.  
    500.         CASE LB2
    501.  
    502.         CASE LB3
    503.  
    504.         CASE LB4
    505.  
    506.         CASE LB5
    507.  
    508.         CASE LB6
    509.  
    510.         CASE LB7
    511.  
    512.         CASE LB8
    513.  
    514.         CASE LB9
    515.  
    516.         CASE LB10
    517.  
    518.         CASE LB11
    519.  
    520.         CASE LB12
    521.  
    522.         CASE LB13
    523.  
    524.         CASE LB14
    525.  
    526.         CASE LB15
    527.  
    528.         CASE LB16
    529.  
    530.         CASE LB17
    531.  
    532.         CASE LB18
    533.  
    534.         CASE LB19
    535.  
    536.         CASE LB20
    537.  
    538.         CASE LB21
    539.  
    540.         CASE LB22
    541.  
    542.         CASE LB23
    543.  
    544.         CASE LB24
    545.  
    546.         CASE LB25
    547.  
    548.         CASE LB26
    549.  
    550.         CASE LB27
    551.  
    552.         CASE LB28
    553.  
    554.         CASE LB29
    555.  
    556.         CASE LB30
    557.  
    558.         CASE LB31
    559.  
    560.         CASE LB32
    561.  
    562.         CASE LB33
    563.  
    564.         CASE LB34
    565.  
    566.         CASE LB35
    567.  
    568.         CASE LB36
    569.  
    570.         CASE LB37
    571.  
    572.         CASE LB38
    573.  
    574.         CASE ToggleSwitch2
    575.  
    576.         CASE ToggleSwitch4
    577.  
    578.     END SELECT
    580.  
    581. SUB __UI_MouseUp (id AS LONG)
    582.     SELECT CASE id
    583.         CASE Frog
    584.  
    585.         CASE PictureBox5
    586.  
    587.         CASE PictureBox6
    588.  
    589.         CASE PictureBox9
    590.  
    591.         CASE PictureBox7
    592.  
    593.         CASE PictureBox2
    594.  
    595.         CASE PictureBox1
    596.  
    597.         CASE ProgressBar1
    598.  
    599.         CASE PictureBox3
    600.  
    601.         CASE PictureBox4
    602.  
    603.         CASE PictureBox8
    604.  
    605.         CASE LB
    606.  
    607.         CASE LB2
    608.  
    609.         CASE LB3
    610.  
    611.         CASE LB4
    612.  
    613.         CASE LB5
    614.  
    615.         CASE LB6
    616.  
    617.         CASE LB7
    618.  
    619.         CASE LB8
    620.  
    621.         CASE LB9
    622.  
    623.         CASE LB10
    624.  
    625.         CASE LB11
    626.  
    627.         CASE LB12
    628.  
    629.         CASE LB13
    630.  
    631.         CASE LB14
    632.  
    633.         CASE LB15
    634.  
    635.         CASE LB16
    636.  
    637.         CASE LB17
    638.  
    639.         CASE LB18
    640.  
    641.         CASE LB19
    642.  
    643.         CASE LB20
    644.  
    645.         CASE LB21
    646.  
    647.         CASE LB22
    648.  
    649.         CASE LB23
    650.  
    651.         CASE LB24
    652.  
    653.         CASE LB25
    654.  
    655.         CASE LB26
    656.  
    657.         CASE LB27
    658.  
    659.         CASE LB28
    660.  
    661.         CASE LB29
    662.  
    663.         CASE LB30
    664.  
    665.         CASE LB31
    666.  
    667.         CASE LB32
    668.  
    669.         CASE LB33
    670.  
    671.         CASE LB34
    672.  
    673.         CASE LB35
    674.  
    675.         CASE LB36
    676.  
    677.         CASE LB37
    678.  
    679.         CASE LB38
    680.  
    681.         CASE ToggleSwitch2
    682.  
    683.         CASE ToggleSwitch4
    684.  
    685.     END SELECT
    687.  
    688. SUB __UI_KeyPress (id AS LONG)
    689.     'When this event is fired, __UI_KeyHit will contain the code of the key hit.
    690.     'You can change it and even cancel it by making it = 0
    691.     SELECT CASE id
    692.         CASE ToggleSwitch2
    693.  
    694.         CASE ToggleSwitch4
    695.  
    696.     END SELECT
    698.  
    699. SUB __UI_TextChanged (id AS LONG)
    700.     SELECT CASE id
    701.     END SELECT
    703.  
    704. SUB __UI_ValueChanged (id AS LONG)
    705.     SELECT CASE id
    706.         CASE ToggleSwitch2
    707.  
    708.         CASE ToggleSwitch4
    709.  
    710.     END SELECT
    712.  
    713. SUB __UI_FormResized
    714.  
    716.  
    717.  
    « Last Edit: June 11, 2018, 01:55:56 pm by bplus »
    Logged

    FellippeHeitor

    • Guest
    Re: Just for fun: An example of what InForm is *NOT* for
    « Reply #8 on: June 11, 2018, 02:27:50 pm »
    Oooooh, that's adorable!

    For even more cuteness, try replacing the last two lines in the BeforeUpdateDisplay event to:

    Code: QB64: [Select]
    1.     IF lpCnt MOD 30 = 1 THEN Control(ToggleSwitch2).Value = INT(RND * 2) * -1: Control(ToggleSwitch2).LastChange = TIMER
    2.     IF lpCnt MOD 30 = 25 THEN Control(ToggleSwitch4).Value = INT(RND * 2) * -1: Control(ToggleSwitch4).LastChange = TIMER
    Logged

    Offline bplus

    • Global Moderator
    • Forum Resident
    • Posts: 8053
    • b = b + ...
      • View Profile
    Re: Just for fun: An example of what InForm is *NOT* for
    « Reply #9 on: June 11, 2018, 02:33:55 pm »
    Yeah :)
    Logged

    Offline Ashish

    • Forum Resident
    • Posts: 630
    • Never Give Up!
      • View Profile
    Re: Just for fun: An example of what InForm is *NOT* for
    « Reply #10 on: June 11, 2018, 11:57:58 pm »
    This is nice & funny piece of code with InForm.
    Logged
    if (Me.success) {Me.improve()} else {Me.tryAgain()}


    My Projects - https://github.com/AshishKingdom?tab=repositories
    OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

    Offline bplus

    • Global Moderator
    • Forum Resident
    • Posts: 8053
    • b = b + ...
      • View Profile
    Re: Just for fun: An example of what InForm is *NOT* for
    « Reply #11 on: June 12, 2018, 10:45:52 am »
    Hey Ashish, maybe you have an idea to add something?

    BTW, I was impressed I could build this on my desktop instead of a dedicated project folder. There was no InForm subFolder or other supplemental files in site of the Desktop, so I guess .bas ,frm projects could be built anywhere (that Windows let's you work). I now have my system recognizing .frm files and calling up the UiEditor.exe with just a click of the file. Time to switch .bas to QB64.exe for same convenience.
    « Last Edit: June 12, 2018, 10:52:03 am by bplus »
    Logged

    Offline Ashish

    • Forum Resident
    • Posts: 630
    • Never Give Up!
      • View Profile
    Re: Just for fun: An example of what InForm is *NOT* for
    « Reply #12 on: June 12, 2018, 11:46:23 am »
    Quote from: bplus on June 12, 2018, 10:45:52 am
    Hey Ashish, maybe you have an idea to add something?
    Currently, I've no idea in my mind to add in this. Its already looking cool!
    Logged
    if (Me.success) {Me.improve()} else {Me.tryAgain()}


    My Projects - https://github.com/AshishKingdom?tab=repositories
    OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

    FellippeHeitor

    • Guest
    Re: Just for fun: An example of what InForm is *NOT* for
    « Reply #13 on: June 12, 2018, 12:16:54 pm »
    Provided you unpacked the InForm package as instructed in www.qb64.org/inform/download, that is, in the same folder as qb64.exe, then you're good to go, as QB64 starts looking for included files in its root folder. I too have .frm files associated with UiEditor.exe so that I can just double-click them to edit.
    Logged
    Pages: [1]   Go Up
    « previous next »