frmrgbhex.frm

一个完整的HTML编辑器

VERSION 5.00
Begin VB.Form frmRGBHex 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Color Editor ..."
   ClientHeight    =   3765
   ClientLeft      =   1845
   ClientTop       =   1650
   ClientWidth     =   5640
   Icon            =   "frmRGBHex.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   3765
   ScaleWidth      =   5640
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command5 
      Caption         =   "Cancel"
      Height          =   375
      Left            =   3960
      TabIndex        =   18
      Top             =   3240
      Width           =   1455
   End
   Begin VB.CommandButton Command4 
      Caption         =   "OK"
      Height          =   375
      Left            =   3960
      TabIndex        =   14
      Top             =   2640
      Width           =   1455
   End
   Begin VB.PictureBox Picture1 
      Height          =   2175
      Left            =   3960
      ScaleHeight     =   2115
      ScaleWidth      =   1395
      TabIndex        =   12
      Top             =   360
      Width           =   1455
   End
   Begin VB.Frame Frame3 
      Caption         =   "Blue"
      Height          =   1095
      Left            =   120
      TabIndex        =   5
      Top             =   2520
      Width           =   3735
      Begin VB.TextBox BlueText 
         Height          =   285
         Left            =   120
         TabIndex        =   11
         Top             =   600
         Width           =   495
      End
      Begin VB.CommandButton Command3 
         Caption         =   "Change &Blue Value"
         Height          =   375
         Left            =   720
         TabIndex        =   10
         Top             =   600
         Width           =   1695
      End
      Begin VB.HScrollBar BlueVal 
         Height          =   255
         Left            =   120
         Max             =   255
         TabIndex        =   7
         Top             =   240
         Width           =   3495
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Green"
      Height          =   1095
      Left            =   120
      TabIndex        =   3
      Top             =   1320
      Width           =   3735
      Begin VB.CommandButton Command2 
         Caption         =   "Change &Green Value"
         Height          =   375
         Left            =   720
         TabIndex        =   9
         Top             =   600
         Width           =   1695
      End
      Begin VB.TextBox GreenText 
         Height          =   285
         Left            =   120
         TabIndex        =   8
         Top             =   600
         Width           =   495
      End
      Begin VB.HScrollBar GreenVal 
         Height          =   255
         Left            =   120
         Max             =   255
         TabIndex        =   6
         Top             =   240
         Width           =   3495
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Red"
      Height          =   1095
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3735
      Begin VB.CommandButton Command1 
         Caption         =   "Change &Red Value"
         Height          =   375
         Left            =   720
         TabIndex        =   4
         Top             =   600
         Width           =   1575
      End
      Begin VB.TextBox RedText 
         Height          =   285
         Left            =   120
         TabIndex        =   2
         Top             =   600
         Width           =   495
      End
      Begin VB.HScrollBar RedVal 
         Height          =   255
         Left            =   120
         Max             =   255
         TabIndex        =   1
         Top             =   240
         Width           =   3495
      End
   End
   Begin VB.Label GreenCol 
      Caption         =   "00"
      Height          =   255
      Left            =   1440
      TabIndex        =   17
      Top             =   4080
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.Label BlueCol 
      Caption         =   "00"
      Height          =   255
      Left            =   120
      TabIndex        =   16
      Top             =   4320
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.Label RedCol 
      Caption         =   "00"
      Height          =   255
      Left            =   120
      TabIndex        =   15
      Top             =   4080
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.Label Label1 
      Caption         =   "Colour:"
      Height          =   255
      Left            =   3960
      TabIndex        =   13
      Top             =   120
      Width           =   615
   End
End
Attribute VB_Name = "frmRGBHex"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Error()
' Made by Sliv007
' You may use this code for any use, provided
' that give credit to Sliv007
MsgBox "Value must be between 0 and 255"
End Sub

Private Sub DispColor()
' Made by Sliv007
' You may use this code for any use, provided
' that give credit to Sliv007

Picture1.BackColor = RGB(RedVal.Value, GreenVal.Value, BlueVal.Value)

End Sub


Private Sub BlueVal_Change()
' Made by Sliv007
' You may use this code for any use, provided
' that give credit to Sliv007

BlueText.Text = BlueVal.Value

If BlueVal.Value = 0 Then
BlueCol.Caption = "00"
ElseIf BlueVal.Value = 1 Then
BlueCol.Caption = "01"
ElseIf BlueVal.Value = 2 Then
BlueCol.Caption = "02"
ElseIf BlueVal.Value = 3 Then
BlueCol.Caption = "03"
ElseIf BlueVal.Value = 4 Then
BlueCol.Caption = "04"
ElseIf BlueVal.Value = 5 Then
BlueCol.Caption = "05"
ElseIf BlueVal.Value = 6 Then
BlueCol.Caption = "06"
ElseIf BlueVal.Value = 7 Then
BlueCol.Caption = "07"
ElseIf BlueVal.Value = 8 Then
BlueCol.Caption = "08"
ElseIf BlueVal.Value = 9 Then
BlueCol.Caption = "09"
ElseIf BlueVal.Value = 10 Then
BlueCol.Caption = "0A"
ElseIf BlueVal.Value = 11 Then
BlueCol.Caption = "0B"
ElseIf BlueVal.Value = 12 Then
BlueCol.Caption = "0C"
ElseIf BlueVal.Value = 13 Then
BlueCol.Caption = "0D"
ElseIf BlueVal.Value = 14 Then
BlueCol.Caption = "0E"
ElseIf BlueVal.Value = 15 Then
BlueCol.Caption = "0F"
ElseIf BlueVal.Value = 16 Then
BlueCol.Caption = "10"
ElseIf BlueVal.Value = 17 Then
BlueCol.Caption = "11"
ElseIf BlueVal.Value = 18 Then
BlueCol.Caption = "12"
ElseIf BlueVal.Value = 19 Then
BlueCol.Caption = "13"
ElseIf BlueVal.Value = 20 Then
BlueCol.Caption = "14"
ElseIf BlueVal.Value = 21 Then
BlueCol.Caption = "15"
ElseIf BlueVal.Value = 22 Then
BlueCol.Caption = "16"
ElseIf BlueVal.Value = 23 Then
BlueCol.Caption = "17"
ElseIf BlueVal.Value = 24 Then
BlueCol.Caption = "18"
ElseIf BlueVal.Value = 25 Then
BlueCol.Caption = "19"
ElseIf BlueVal.Value = 26 Then
BlueCol.Caption = "1A"
ElseIf BlueVal.Value = 27 Then
BlueCol.Caption = "1B"
ElseIf BlueVal.Value = 28 Then
BlueCol.Caption = "1C"
ElseIf BlueVal.Value = 29 Then
BlueCol.Caption = "1D"
ElseIf BlueVal.Value = 30 Then
BlueCol.Caption = "1E"
ElseIf BlueVal.Value = 31 Then
BlueCol.Caption = "1F"
ElseIf BlueVal.Value = 32 Then
BlueCol.Caption = "20"
ElseIf BlueVal.Value = 33 Then
BlueCol.Caption = "21"
ElseIf BlueVal.Value = 34 Then
BlueCol.Caption = "22"
ElseIf BlueVal.Value = 35 Then
BlueCol.Caption = "23"
ElseIf BlueVal.Value = 36 Then
BlueCol.Caption = "24"
ElseIf BlueVal.Value = 37 Then
BlueCol.Caption = "25"
ElseIf BlueVal.Value = 38 Then
BlueCol.Caption = "26"
ElseIf BlueVal.Value = 39 Then
BlueCol.Caption = "27"
ElseIf BlueVal.Value = 40 Then
BlueCol.Caption = "28"
ElseIf BlueVal.Value = 41 Then
BlueCol.Caption = "29"
ElseIf BlueVal.Value = 42 Then
BlueCol.Caption = "2A"
ElseIf BlueVal.Value = 43 Then
BlueCol.Caption = "2B"
ElseIf BlueVal.Value = 44 Then
BlueCol.Caption = "2C"
ElseIf BlueVal.Value = 45 Then
BlueCol.Caption = "2D"
ElseIf BlueVal.Value = 46 Then
BlueCol.Caption = "2E"
ElseIf BlueVal.Value = 47 Then
BlueCol.Caption = "2F"
ElseIf BlueVal.Value = 48 Then
BlueCol.Caption = "30"
ElseIf BlueVal.Value = 49 Then
BlueCol.Caption = "31"
ElseIf BlueVal.Value = 50 Then
BlueCol.Caption = "32"
ElseIf BlueVal.Value = 51 Then
BlueCol.Caption = "33"
ElseIf BlueVal.Value = 52 Then
BlueCol.Caption = "34"
ElseIf BlueVal.Value = 53 Then
BlueCol.Caption = "35"
ElseIf BlueVal.Value = 54 Then
BlueCol.Caption = "36"
ElseIf BlueVal.Value = 55 Then
BlueCol.Caption = "37"
ElseIf BlueVal.Value = 56 Then
BlueCol.Caption = "38"
ElseIf BlueVal.Value = 57 Then
BlueCol.Caption = "39"
ElseIf BlueVal.Value = 58 Then
BlueCol.Caption = "3A"
ElseIf BlueVal.Value = 59 Then
BlueCol.Caption = "3B"
ElseIf BlueVal.Value = 60 Then
BlueCol.Caption = "3C"
ElseIf BlueVal.Value = 61 Then
BlueCol.Caption = "3D"
ElseIf BlueVal.Value = 62 Then
BlueCol.Caption = "3E"
ElseIf BlueVal.Value = 63 Then
BlueCol.Caption = "3F"
ElseIf BlueVal.Value = 64 Then
BlueCol.Caption = "40"
ElseIf BlueVal.Value = 65 Then
BlueCol.Caption = "41"
ElseIf BlueVal.Value = 66 Then
BlueCol.Caption = "42"
ElseIf BlueVal.Value = 67 Then
BlueCol.Caption = "43"
ElseIf BlueVal.Value = 68 Then
BlueCol.Caption = "44"
ElseIf BlueVal.Value = 69 Then
BlueCol.Caption = "45"
ElseIf BlueVal.Value = 70 Then
BlueCol.Caption = "46"
ElseIf BlueVal.Value = 71 Then
BlueCol.Caption = "47"
ElseIf BlueVal.Value = 72 Then
BlueCol.Caption = "48"
ElseIf BlueVal.Value = 73 Then
BlueCol.Caption = "49"
ElseIf BlueVal.Value = 74 Then
BlueCol.Caption = "4A"
ElseIf BlueVal.Value = 75 Then
BlueCol.Caption = "4B"
ElseIf BlueVal.Value = 76 Then
BlueCol.Caption = "4C"
ElseIf BlueVal.Value = 77 Then
BlueCol.Caption = "4D"
ElseIf BlueVal.Value = 78 Then
BlueCol.Caption = "4E"
ElseIf BlueVal.Value = 79 Then
BlueCol.Caption = "4F"
ElseIf BlueVal.Value = 80 Then
BlueCol.Caption = "50"
ElseIf BlueVal.Value = 81 Then
BlueCol.Caption = "51"
ElseIf BlueVal.Value = 82 Then
BlueCol.Caption = "52"
ElseIf BlueVal.Value = 83 Then
BlueCol.Caption = "53"
ElseIf BlueVal.Value = 84 Then
BlueCol.Caption = "54"
ElseIf BlueVal.Value = 85 Then
BlueCol.Caption = "55"
ElseIf BlueVal.Value = 86 Then
BlueCol.Caption = "56"
ElseIf BlueVal.Value = 87 Then
BlueCol.Caption = "57"
ElseIf BlueVal.Value = 88 Then
BlueCol.Caption = "58"
ElseIf BlueVal.Value = 89 Then
BlueCol.Caption = "59"
ElseIf BlueVal.Value = 90 Then
BlueCol.Caption = "5A"
ElseIf BlueVal.Value = 91 Then
BlueCol.Caption = "5B"
ElseIf BlueVal.Value = 92 Then
BlueCol.Caption = "5C"
ElseIf BlueVal.Value = 93 Then
BlueCol.Caption = "5D"
ElseIf BlueVal.Value = 94 Then
BlueCol.Caption = "5E"
ElseIf BlueVal.Value = 95 Then
BlueCol.Caption = "5F"
ElseIf BlueVal.Value = 96 Then
BlueCol.Caption = "60"
ElseIf BlueVal.Value = 97 Then
BlueCol.Caption = "61"
ElseIf BlueVal.Value = 98 Then
BlueCol.Caption = "62"
ElseIf BlueVal.Value = 99 Then
BlueCol.Caption = "63"
ElseIf BlueVal.Value = 100 Then
BlueCol.Caption = "64"
ElseIf BlueVal.Value = 101 Then
BlueCol.Caption = "65"
ElseIf BlueVal.Value = 102 Then
BlueCol.Caption = "66"
ElseIf BlueVal.Value = 103 Then
BlueCol.Caption = "67"
ElseIf BlueVal.Value = 104 Then
BlueCol.Caption = "68"
ElseIf BlueVal.Value = 105 Then
BlueCol.Caption = "69"
ElseIf BlueVal.Value = 106 Then
BlueCol.Caption = "6A"
ElseIf BlueVal.Value = 107 Then
BlueCol.Caption = "6B"
ElseIf BlueVal.Value = 108 Then
BlueCol.Caption = "6C"
ElseIf BlueVal.Value = 109 Then
BlueCol.Caption = "6D"
ElseIf BlueVal.Value = 110 Then
BlueCol.Caption = "6E"
ElseIf BlueVal.Value = 111 Then
BlueCol.Caption = "6F"
ElseIf BlueVal.Value = 112 Then
BlueCol.Caption = "70"
ElseIf BlueVal.Value = 113 Then
BlueCol.Caption = "71"
ElseIf BlueVal.Value = 114 Then
BlueCol.Caption = "72"
ElseIf BlueVal.Value = 115 Then
BlueCol.Caption = "73"
ElseIf BlueVal.Value = 116 Then
BlueCol.Caption = "74"
ElseIf BlueVal.Value = 117 Then
BlueCol.Caption = "75"
ElseIf BlueVal.Value = 118 Then
BlueCol.Caption = "76"
ElseIf BlueVal.Value = 119 Then
BlueCol.Caption = "77"
ElseIf BlueVal.Value = 120 Then
BlueCol.Caption = "78"
ElseIf BlueVal.Value = 121 Then
BlueCol.Caption = "79"
ElseIf BlueVal.Value = 122 Then
BlueCol.Caption = "7A"
ElseIf BlueVal.Value = 123 Then
BlueCol.Caption = "7B"
ElseIf BlueVal.Value = 124 Then
BlueCol.Caption = "7C"
ElseIf BlueVal.Value = 125 Then
BlueCol.Caption = "7D"
ElseIf BlueVal.Value = 126 Then
BlueCol.Caption = "7E"
ElseIf BlueVal.Value = 127 Then
BlueCol.Caption = "7F"
ElseIf BlueVal.Value = 128 Then
BlueCol.Caption = "80"
ElseIf BlueVal.Value = 129 Then