home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / MorphRange205133332007.psc / Form1.frm < prev    next >
Text File  |  2007-01-04  |  15KB  |  446 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "MorphRangeRoamer Demo - Matthew R. Usner"
  4.    ClientHeight    =   4740
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   8760
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4740
  10.    ScaleWidth      =   8760
  11.    StartUpPosition =   2  'CenterScreen
  12.    Begin VB.Frame Frame3 
  13.       Caption         =   "Color Schemes"
  14.       Height          =   2775
  15.       Left            =   1680
  16.       TabIndex        =   13
  17.       Top             =   120
  18.       Width           =   3015
  19.       Begin VB.CheckBox Check2 
  20.          Caption         =   "RW_GenerateEvent"
  21.          Height          =   255
  22.          Left            =   360
  23.          TabIndex        =   29
  24.          Top             =   2280
  25.          Width           =   1815
  26.       End
  27.       Begin VB.OptionButton Option8 
  28.          Caption         =   "Purple People Eater"
  29.          Height          =   255
  30.          Left            =   1080
  31.          TabIndex        =   22
  32.          Top             =   1920
  33.          Width           =   1815
  34.       End
  35.       Begin VB.OptionButton Option7 
  36.          Caption         =   "Blue Moon"
  37.          Height          =   255
  38.          Left            =   1080
  39.          TabIndex        =   21
  40.          Top             =   1680
  41.          Width           =   1575
  42.       End
  43.       Begin VB.OptionButton Option6 
  44.          Caption         =   "Cyan Eyed"
  45.          Height          =   255
  46.          Left            =   1080
  47.          TabIndex        =   20
  48.          Top             =   1440
  49.          Width           =   1575
  50.       End
  51.       Begin VB.OptionButton Option5 
  52.          Caption         =   "Penny Wise"
  53.          Height          =   255
  54.          Left            =   1080
  55.          TabIndex        =   19
  56.          Top             =   1200
  57.          Width           =   1575
  58.       End
  59.       Begin VB.OptionButton Option4 
  60.          Caption         =   "Red Rum"
  61.          Height          =   255
  62.          Left            =   1080
  63.          TabIndex        =   18
  64.          Top             =   960
  65.          Width           =   1575
  66.       End
  67.       Begin VB.OptionButton Option3 
  68.          Caption         =   "Golden Goose"
  69.          Height          =   255
  70.          Left            =   1080
  71.          TabIndex        =   17
  72.          Top             =   720
  73.          Width           =   1575
  74.       End
  75.       Begin VB.OptionButton Option2 
  76.          Caption         =   "Green With Envy"
  77.          Height          =   255
  78.          Left            =   1080
  79.          TabIndex        =   16
  80.          Top             =   480
  81.          Width           =   1575
  82.       End
  83.       Begin VB.OptionButton Option1 
  84.          Caption         =   "Gunmetal Grey"
  85.          Height          =   255
  86.          Left            =   1080
  87.          TabIndex        =   15
  88.          Top             =   240
  89.          Value           =   -1  'True
  90.          Width           =   1575
  91.       End
  92.       Begin prjRangeRoamer.MorphRangeRoamer MorphRangeRoamer1 
  93.          Height          =   1080
  94.          Left            =   240
  95.          TabIndex        =   14
  96.          Top             =   600
  97.          Width           =   615
  98.          _ExtentX        =   1085
  99.          _ExtentY        =   1905
  100.          RW_GenerateEvent=   0   'False
  101.          UD_IncrementInterval=   100
  102.          Value           =   1
  103.          ValueMax        =   762342
  104.       End
  105.       Begin VB.Label Label1 
  106.          Appearance      =   0  'Flat
  107.          BackColor       =   &H80000005&
  108.          BorderStyle     =   1  'Fixed Single
  109.          ForeColor       =   &H80000008&
  110.          Height          =   255
  111.          Left            =   120
  112.          TabIndex        =   25
  113.          Top             =   1800
  114.          Width           =   855
  115.       End
  116.    End
  117.    Begin VB.Frame Frame2 
  118.       Caption         =   "RW_GenerateEvent"
  119.       Height          =   4575
  120.       Left            =   4800
  121.       TabIndex        =   3
  122.       Top             =   120
  123.       Width           =   3855
  124.       Begin VB.PictureBox Picture1 
  125.          Appearance      =   0  'Flat
  126.          BackColor       =   &H80000005&
  127.          ForeColor       =   &H80000008&
  128.          Height          =   1695
  129.          Left            =   120
  130.          ScaleHeight     =   1665
  131.          ScaleWidth      =   1095
  132.          TabIndex        =   4
  133.          Top             =   240
  134.          Width           =   1125
  135.          Begin VB.PictureBox picRed 
  136.             Appearance      =   0  'Flat
  137.             BackColor       =   &H00000000&
  138.             ForeColor       =   &H80000008&
  139.             Height          =   375
  140.             Left            =   0
  141.             ScaleHeight     =   345
  142.             ScaleWidth      =   345
  143.             TabIndex        =   8
  144.             Top             =   0
  145.             Width           =   375
  146.          End
  147.          Begin VB.PictureBox picGreen 
  148.             Appearance      =   0  'Flat
  149.             BackColor       =   &H00000000&
  150.             ForeColor       =   &H80000008&
  151.             Height          =   375
  152.             Left            =   360
  153.             ScaleHeight     =   345
  154.             ScaleWidth      =   345
  155.             TabIndex        =   7
  156.             Top             =   0
  157.             Width           =   375
  158.          End
  159.          Begin VB.PictureBox picBlue 
  160.             Appearance      =   0  'Flat
  161.             BackColor       =   &H00000000&
  162.             ForeColor       =   &H80000008&
  163.             Height          =   375
  164.             Left            =   720
  165.             ScaleHeight     =   345
  166.             ScaleWidth      =   345
  167.             TabIndex        =   6
  168.             Top             =   0
  169.             Width           =   375
  170.          End
  171.          Begin VB.PictureBox picRGB 
  172.             Appearance      =   0  'Flat
  173.             BackColor       =   &H00000000&
  174.             ForeColor       =   &H80000008&
  175.             Height          =   375
  176.             Left            =   0
  177.             ScaleHeight     =   345
  178.             ScaleWidth      =   1065
  179.             TabIndex        =   5
  180.             Top             =   1080
  181.             Width           =   1095
  182.          End
  183.          Begin prjRangeRoamer.MorphRangeRoamer mrrBlue 
  184.             Height          =   720
  185.             Left            =   720
  186.             TabIndex        =   9
  187.             Top             =   360
  188.             Width           =   375
  189.             _ExtentX        =   661
  190.             _ExtentY        =   1270
  191.             RW_BackColor1   =   4194304
  192.             RW_BackColor2   =   12582912
  193.             RW_BorderColor1 =   4194304
  194.             RW_BorderColor2 =   16744576
  195.             RW_LED_BurnInColor=   8388608
  196.             RW_LED_DigitColor=   16744576
  197.             RW_PBarColor1   =   4194304
  198.             RW_PBarColor2   =   16744576
  199.             Theme           =   3
  200.             UD_ArrowColor   =   16761024
  201.             UD_BorderColor1 =   8388608
  202.             UD_BorderColor2 =   16744576
  203.             UD_BorderWidth  =   4
  204.             UD_ButtonColor1 =   4194304
  205.             UD_ButtonColor2 =   16744576
  206.             UD_FocusBorderColor1=   4194304
  207.             UD_FocusBorderColor2=   16711680
  208.             UD_IncrementInterval=   100
  209.             ValueMax        =   255
  210.             ValueMin        =   0
  211.             Wrap            =   -1  'True
  212.          End
  213.          Begin prjRangeRoamer.MorphRangeRoamer mrrGreen 
  214.             Height          =   720
  215.             Left            =   360
  216.             TabIndex        =   10
  217.             Top             =   360
  218.             Width           =   375
  219.             _ExtentX        =   661
  220.             _ExtentY        =   1270
  221.             RW_BackColor1   =   16384
  222.             RW_BackColor2   =   40960
  223.             RW_BorderColor1 =   16384
  224.             RW_BorderColor2 =   8454016
  225.             RW_LED_BurnInColor=   32768
  226.             RW_LED_DigitColor=   8454016
  227.             RW_PBarColor1   =   16384
  228.             RW_PBarColor2   =   8454016
  229.             Theme           =   5
  230.             UD_ArrowColor   =   12648384
  231.             UD_BorderColor1 =   16384
  232.             UD_BorderColor2 =   8454016
  233.             UD_BorderWidth  =   4
  234.             UD_ButtonColor1 =   16384
  235.             UD_ButtonColor2 =   65280
  236.             UD_FocusBorderColor1=   16384
  237.             UD_FocusBorderColor2=   49152
  238.             UD_IncrementInterval=   100
  239.             ValueMax        =   255
  240.             ValueMin        =   0
  241.          End
  242.          Begin prjRangeRoamer.MorphRangeRoamer mrrRed 
  243.             Height          =   720
  244.             Left            =   0
  245.             TabIndex        =   11
  246.             Top             =   360
  247.             Width           =   375
  248.             _ExtentX        =   661
  249.             _ExtentY        =   1270
  250.             RW_BackColor1   =   64
  251.             RW_BackColor2   =   192
  252.             RW_BorderColor1 =   64
  253.             RW_BorderColor2 =   8421631
  254.             RW_LED_BurnInColor=   128
  255.             RW_LED_DigitColor=   8421631
  256.             RW_PBarColor1   =   64
  257.             RW_PBarColor2   =   8421631
  258.             Theme           =   4
  259.             UD_ArrowColor   =   12632319
  260.             UD_BorderColor1 =   64
  261.             UD_BorderColor2 =   8421631
  262.             UD_BorderWidth  =   4
  263.             UD_ButtonColor1 =   64
  264.             UD_ButtonColor2 =   8421631
  265.             UD_FocusBorderColor1=   64
  266.             UD_FocusBorderColor2=   4210943
  267.             UD_IncrementInterval=   100
  268.             ValueMax        =   255
  269.             ValueMin        =   0
  270.          End
  271.          Begin VB.Label lblHex 
  272.             Alignment       =   2  'Center
  273.             Appearance      =   0  'Flat
  274.             BackColor       =   &H80000005&
  275.             Caption         =   "H0"
  276.             ForeColor       =   &H80000008&
  277.             Height          =   255
  278.             Left            =   0
  279.             TabIndex        =   12
  280.             Top             =   1440
  281.             Width           =   1095
  282.          End
  283.       End
  284.       Begin VB.Label Label3 
  285.          Caption         =   $"Form1.frx":0000
  286.          Height          =   2415
  287.          Left            =   120
  288.          TabIndex        =   24
  289.          Top             =   1995
  290.          Width           =   3615
  291.       End
  292.       Begin VB.Label Label2 
  293.          Caption         =   $"Form1.frx":0227
  294.          Height          =   1815
  295.          Left            =   1440
  296.          TabIndex        =   23
  297.          Top             =   240
  298.          Width           =   2295
  299.       End
  300.    End
  301.    Begin VB.Frame Frame1 
  302.       Caption         =   "Enabled Demo"
  303.       Height          =   2775
  304.       Left            =   120
  305.       TabIndex        =   0
  306.       Top             =   120
  307.       Width           =   1455
  308.       Begin prjRangeRoamer.MorphRangeRoamer MorphRangeRoamer3 
  309.          Height          =   855
  310.          Left            =   480
  311.          TabIndex        =   27
  312.          Top             =   960
  313.          Width           =   495
  314.          _ExtentX        =   873
  315.          _ExtentY        =   1508
  316.          UD_BorderWidth  =   6
  317.          ValueMax        =   10000
  318.          ValueMin        =   -10000
  319.       End
  320.       Begin VB.CheckBox Check1 
  321.          Caption         =   "Enabled"
  322.          Height          =   255
  323.          Left            =   120
  324.          TabIndex        =   2
  325.          Top             =   720
  326.          Value           =   1  'Checked
  327.          Width           =   975
  328.       End
  329.       Begin prjRangeRoamer.MorphRangeRoamer MorphRangeRoamer2 
  330.          Height          =   495
  331.          Left            =   240
  332.          TabIndex        =   1
  333.          Top             =   240
  334.          Width           =   930
  335.          _ExtentX        =   1640
  336.          _ExtentY        =   873
  337.          UD_BorderWidth  =   6
  338.          UD_ButtonDownAngle=   180
  339.          UD_ButtonUpAngle=   180
  340.          UD_Orientation  =   1
  341.          ValueIncrCtrl   =   1
  342.          ValueIncrShift  =   5
  343.          ValueIncrShiftCtrl=   10
  344.          ValueMax        =   3
  345.          Wrap            =   -1  'True
  346.       End
  347.       Begin VB.Label Label5 
  348.          Caption         =   "Both Horizontal and Vertical UpDown layouts are supported."
  349.          Height          =   870
  350.          Left            =   120
  351.          TabIndex        =   28
  352.          Top             =   1800
  353.          Width           =   1215
  354.       End
  355.    End
  356.    Begin VB.Label Label4 
  357.       Caption         =   $"Form1.frx":031F
  358.       Height          =   1455
  359.       Left            =   120
  360.       TabIndex        =   26
  361.       Top             =   3120
  362.       Width           =   4695
  363.    End
  364. End
  365. Attribute VB_Name = "Form1"
  366. Attribute VB_GlobalNameSpace = False
  367. Attribute VB_Creatable = False
  368. Attribute VB_PredeclaredId = True
  369. Attribute VB_Exposed = False
  370. Private Sub Check1_Click()
  371.    If Check1.Value = vbChecked Then
  372.       MorphRangeRoamer2.Enabled = True
  373.       MorphRangeRoamer3.Enabled = True
  374.    Else
  375.       MorphRangeRoamer2.Enabled = False
  376.       MorphRangeRoamer3.Enabled = False
  377.    End If
  378. End Sub
  379.  
  380. Private Sub Check2_Click()
  381.    If Check2.Value = vbChecked Then
  382.       MorphRangeRoamer1.RW_GenerateEvent = True
  383.    Else
  384.       MorphRangeRoamer1.RW_GenerateEvent = False
  385.    End If
  386. End Sub
  387.  
  388. Private Sub Form_Load()
  389.    Form2.Show
  390. End Sub
  391.  
  392. Private Sub MorphRangeRoamer1_Change()
  393.    Label1.Caption = MorphRangeRoamer1.Value
  394. End Sub
  395.  
  396. ' color picker code
  397. Private Sub mrrRed_Change()
  398.    picRed.BackColor = mrrRed.Value
  399.    picRGB.BackColor = RGB(mrrRed.Value, mrrGreen.Value, mrrBlue.Value)
  400.    lblHex.Caption = "H" & Hex(picRGB.BackColor)
  401. End Sub
  402. Private Sub mrrGreen_Change()
  403.    picGreen.BackColor = 256 * mrrGreen.Value
  404.    picRGB.BackColor = RGB(mrrRed.Value, mrrGreen.Value, mrrBlue.Value)
  405.    lblHex.Caption = "H" & Hex(picRGB.BackColor)
  406. End Sub
  407. Private Sub mrrBlue_Change()
  408.    picBlue.BackColor = 65536 * mrrBlue.Value
  409.    picRGB.BackColor = RGB(mrrRed.Value, mrrGreen.Value, mrrBlue.Value)
  410.    lblHex.Caption = "H" & Hex(picRGB.BackColor)
  411. End Sub
  412.  
  413. ' themes
  414. Private Sub Option1_Click()
  415.    MorphRangeRoamer1.Theme = [Gunmetal Grey]
  416. End Sub
  417.  
  418. Private Sub Option2_Click()
  419.    MorphRangeRoamer1.Theme = [Green With Envy]
  420. End Sub
  421.  
  422. Private Sub Option3_Click()
  423.    MorphRangeRoamer1.Theme = [Golden Goose]
  424. End Sub
  425.  
  426. Private Sub Option4_Click()
  427.    MorphRangeRoamer1.Theme = [Red Rum]
  428. End Sub
  429.  
  430. Private Sub Option5_Click()
  431.    MorphRangeRoamer1.Theme = [Penny Wise]
  432.  
  433. End Sub
  434.  
  435. Private Sub Option6_Click()
  436.    MorphRangeRoamer1.Theme = [Cyan Eyed]
  437. End Sub
  438.  
  439. Private Sub Option7_Click()
  440.    MorphRangeRoamer1.Theme = [Blue Moon]
  441. End Sub
  442.  
  443. Private Sub Option8_Click()
  444.    MorphRangeRoamer1.Theme = [Purple People Eater]
  445. End Sub
  446.