home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Screen_Cal2042371132007.psc / frmColor.frm < prev    next >
Text File  |  2007-01-13  |  6KB  |  181 lines
  1. VERSION 5.00
  2. Begin VB.Form frmColor 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   2130
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   1005
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2130
  12.    ScaleWidth      =   1005
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   3  'Windows Default
  15.    Visible         =   0   'False
  16.    Begin VB.Label lblColor 
  17.       Appearance      =   0  'Flat
  18.       BackColor       =   &H00FFFF00&
  19.       BorderStyle     =   1  'Fixed Single
  20.       ForeColor       =   &H80000008&
  21.       Height          =   210
  22.       Index           =   8
  23.       Left            =   420
  24.       TabIndex        =   9
  25.       Top             =   750
  26.       Width           =   210
  27.    End
  28.    Begin VB.Label lblColor 
  29.       Appearance      =   0  'Flat
  30.       BackColor       =   &H00808080&
  31.       BorderStyle     =   1  'Fixed Single
  32.       ForeColor       =   &H80000008&
  33.       Height          =   210
  34.       Index           =   7
  35.       Left            =   705
  36.       TabIndex        =   8
  37.       Top             =   420
  38.       Width           =   210
  39.    End
  40.    Begin VB.Label lblColor 
  41.       Appearance      =   0  'Flat
  42.       BackColor       =   &H00FF00FF&
  43.       BorderStyle     =   1  'Fixed Single
  44.       ForeColor       =   &H80000008&
  45.       Height          =   210
  46.       Index           =   6
  47.       Left            =   705
  48.       TabIndex        =   7
  49.       Top             =   105
  50.       Width           =   210
  51.    End
  52.    Begin VB.Label Label1 
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "Right Mouse click on Right Cals to Show/Hide Zoom."
  55.       Height          =   990
  56.       Left            =   30
  57.       TabIndex        =   6
  58.       Top             =   1125
  59.       Width           =   945
  60.    End
  61.    Begin VB.Shape Shape1 
  62.       Height          =   1080
  63.       Left            =   0
  64.       Top             =   0
  65.       Width           =   1005
  66.    End
  67.    Begin VB.Label lblColor 
  68.       Appearance      =   0  'Flat
  69.       BackColor       =   &H00000000&
  70.       BorderStyle     =   1  'Fixed Single
  71.       ForeColor       =   &H80000008&
  72.       Height          =   210
  73.       Index           =   5
  74.       Left            =   705
  75.       TabIndex        =   5
  76.       Top             =   750
  77.       Width           =   210
  78.    End
  79.    Begin VB.Label lblColor 
  80.       Appearance      =   0  'Flat
  81.       BackColor       =   &H0000FF00&
  82.       BorderStyle     =   1  'Fixed Single
  83.       ForeColor       =   &H80000008&
  84.       Height          =   210
  85.       Index           =   4
  86.       Left            =   420
  87.       TabIndex        =   4
  88.       Top             =   420
  89.       Width           =   210
  90.    End
  91.    Begin VB.Label lblColor 
  92.       Appearance      =   0  'Flat
  93.       BackColor       =   &H0000FFFF&
  94.       BorderStyle     =   1  'Fixed Single
  95.       ForeColor       =   &H80000008&
  96.       Height          =   210
  97.       Index           =   3
  98.       Left            =   420
  99.       TabIndex        =   3
  100.       Top             =   105
  101.       Width           =   210
  102.    End
  103.    Begin VB.Label lblColor 
  104.       Appearance      =   0  'Flat
  105.       BackColor       =   &H00FF0000&
  106.       BorderStyle     =   1  'Fixed Single
  107.       ForeColor       =   &H80000008&
  108.       Height          =   210
  109.       Index           =   2
  110.       Left            =   135
  111.       TabIndex        =   2
  112.       Top             =   750
  113.       Width           =   210
  114.    End
  115.    Begin VB.Label lblColor 
  116.       Appearance      =   0  'Flat
  117.       BackColor       =   &H000000FF&
  118.       BorderStyle     =   1  'Fixed Single
  119.       ForeColor       =   &H80000008&
  120.       Height          =   210
  121.       Index           =   1
  122.       Left            =   135
  123.       TabIndex        =   1
  124.       Top             =   420
  125.       Width           =   210
  126.    End
  127.    Begin VB.Label lblColor 
  128.       Appearance      =   0  'Flat
  129.       BackColor       =   &H80000005&
  130.       BorderStyle     =   1  'Fixed Single
  131.       ForeColor       =   &H80000008&
  132.       Height          =   210
  133.       Index           =   0
  134.       Left            =   135
  135.       TabIndex        =   0
  136.       Top             =   105
  137.       Width           =   210
  138.    End
  139. End
  140. Attribute VB_Name = "frmColor"
  141. Attribute VB_GlobalNameSpace = False
  142. Attribute VB_Creatable = False
  143. Attribute VB_PredeclaredId = True
  144. Attribute VB_Exposed = False
  145. Option Explicit
  146. Dim OldX As Integer
  147. Dim OldY As Integer
  148.  
  149. Private Sub Form_DblClick()
  150.     frmColor.Visible = False
  151. End Sub
  152.  
  153. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  154.     OldX = X
  155.     OldY = Y
  156. End Sub
  157.  
  158. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  159.     If Button = 1 Then
  160.         frmColor.Left = frmColor.Left + (X - OldX)
  161.         frmColor.Top = frmColor.Top + (Y - OldY)
  162.      End If
  163. End Sub
  164.  
  165. Private Sub Label1_Click()
  166.  
  167. End Sub
  168.  
  169. Private Sub lblColor_Click(Index As Integer)
  170.    frmTop.Line1.BorderColor = lblColor(Index).BackColor
  171.    frmTop.Line2.BorderColor = lblColor(Index).BackColor
  172.    frmBot.Line1.BorderColor = lblColor(Index).BackColor
  173.    frmBot.Line2.BorderColor = lblColor(Index).BackColor
  174.    frmLeft.Line1.BorderColor = lblColor(Index).BackColor
  175.    frmLeft.Line2.BorderColor = lblColor(Index).BackColor
  176.    frmRight.Line1.BorderColor = lblColor(Index).BackColor
  177.    frmRight.Line2.BorderColor = lblColor(Index).BackColor
  178.    frmColor.Visible = False
  179. End Sub
  180.  
  181.