home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_2_94 / vbwin / vbx / paradlg.frm < prev   
Text File  |  1995-02-27  |  3KB  |  110 lines
  1. VERSION 2.00
  2. Begin Form ParaDlg 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Parameter"
  5.    ClientHeight    =   3030
  6.    ClientLeft      =   4065
  7.    ClientTop       =   4320
  8.    ClientWidth     =   4200
  9.    Height          =   3465
  10.    Left            =   3990
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3030
  13.    ScaleWidth      =   4200
  14.    Top             =   3960
  15.    Width           =   4350
  16.    Begin stormBkColor BkColor 
  17.       Height          =   420
  18.       Left            =   3240
  19.       Top             =   720
  20.       Width           =   420
  21.    End
  22.    Begin OptionButton Black 
  23.       Caption         =   "Schwarz"
  24.       ForeColor       =   &H00C0C0C0&
  25.       Height          =   255
  26.       Left            =   480
  27.       TabIndex        =   4
  28.       Top             =   1560
  29.       Width           =   2295
  30.    End
  31.    Begin OptionButton Blue 
  32.       Caption         =   "Blau"
  33.       ForeColor       =   &H00C0C0C0&
  34.       Height          =   255
  35.       Left            =   480
  36.       TabIndex        =   3
  37.       Top             =   1200
  38.       Width           =   2175
  39.    End
  40.    Begin OptionButton Green 
  41.       Caption         =   "Grⁿn"
  42.       ForeColor       =   &H00C0C0C0&
  43.       Height          =   255
  44.       Left            =   480
  45.       TabIndex        =   2
  46.       Top             =   840
  47.       Width           =   2175
  48.    End
  49.    Begin OptionButton Red 
  50.       Caption         =   "Rot"
  51.       ForeColor       =   &H00C0C0C0&
  52.       Height          =   255
  53.       Left            =   480
  54.       TabIndex        =   1
  55.       Top             =   480
  56.       Width           =   2055
  57.    End
  58.    Begin CommandButton BtnOk 
  59.       Caption         =   "Ok"
  60.       Height          =   495
  61.       Left            =   1440
  62.       TabIndex        =   0
  63.       Top             =   2280
  64.       Width           =   1455
  65.    End
  66. End
  67. Option Explicit
  68.  
  69. Sub Black_Click ()
  70.     BkColor.ColorBackground = RGB(0, 0, 0)
  71. End Sub
  72.  
  73. Sub Blue_Click ()
  74.     BkColor.ColorBackground = RGB(0, 0, 255)
  75. End Sub
  76.  
  77. Sub BtnOk_Click ()
  78.     Unload ParaDlg
  79. End Sub
  80.  
  81. Sub Form_Load ()
  82.     Dim rgbColor As Long
  83.  
  84.     rgbColor = BkColor.ColorBackground
  85.     If rgbColor = RGB(0, 0, 0) Then
  86.         Black.Value = True
  87.       Else
  88.         If rgbColor = RGB(255, 0, 0) Then
  89.             Red.Value = True
  90.           Else
  91.             If rgbColor = RGB(0, 255, 0) Then
  92.                 Green.Value = True
  93.               Else
  94.                 If rgbColor = RGB(0, 0, 255) Then
  95.                     Blue.Value = True
  96.                     End If
  97.                 End If
  98.             End If
  99.         End If
  100. End Sub
  101.  
  102. Sub Green_Click ()
  103.     BkColor.ColorBackground = RGB(0, 255, 0)
  104. End Sub
  105.  
  106. Sub Red_Click ()
  107.     BkColor.ColorBackground = RGB(255, 0, 0)
  108. End Sub
  109.  
  110.