« previous next »
Pages: [1]   Go Down

Author Topic: Just for fun: An example of what InForm is *NOT* for  (Read 27089 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

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 »
"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
Marked as best answer by on Today at 03:37:33 am

FellippeHeitor

  • Guest
Re: Just for fun: An example of what InForm is *NOT* for
« Reply #8 on: June 11, 2018, 02:27:50 pm »
  • Undo Best Answer
    • 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 »