frmrgbhex.frm

一个完整的HTML编辑器

GreenCol.Caption = "42"
ElseIf GreenVal.Value = 67 Then
GreenCol.Caption = "43"
ElseIf GreenVal.Value = 68 Then
GreenCol.Caption = "44"
ElseIf GreenVal.Value = 69 Then
GreenCol.Caption = "45"
ElseIf GreenVal.Value = 70 Then
GreenCol.Caption = "46"
ElseIf GreenVal.Value = 71 Then
GreenCol.Caption = "47"
ElseIf GreenVal.Value = 72 Then
GreenCol.Caption = "48"
ElseIf GreenVal.Value = 73 Then
GreenCol.Caption = "49"
ElseIf GreenVal.Value = 74 Then
GreenCol.Caption = "4A"
ElseIf GreenVal.Value = 75 Then
GreenCol.Caption = "4B"
ElseIf GreenVal.Value = 76 Then
GreenCol.Caption = "4C"
ElseIf GreenVal.Value = 77 Then
GreenCol.Caption = "4D"
ElseIf GreenVal.Value = 78 Then
GreenCol.Caption = "4E"
ElseIf GreenVal.Value = 79 Then
GreenCol.Caption = "4F"
ElseIf GreenVal.Value = 80 Then
GreenCol.Caption = "50"
ElseIf GreenVal.Value = 81 Then
GreenCol.Caption = "51"
ElseIf GreenVal.Value = 82 Then
GreenCol.Caption = "52"
ElseIf GreenVal.Value = 83 Then
GreenCol.Caption = "53"
ElseIf GreenVal.Value = 84 Then
GreenCol.Caption = "54"
ElseIf GreenVal.Value = 85 Then
GreenCol.Caption = "55"
ElseIf GreenVal.Value = 86 Then
GreenCol.Caption = "56"
ElseIf GreenVal.Value = 87 Then
GreenCol.Caption = "57"
ElseIf GreenVal.Value = 88 Then
GreenCol.Caption = "58"
ElseIf GreenVal.Value = 89 Then
GreenCol.Caption = "59"
ElseIf GreenVal.Value = 90 Then
GreenCol.Caption = "5A"
ElseIf GreenVal.Value = 91 Then
GreenCol.Caption = "5B"
ElseIf GreenVal.Value = 92 Then
GreenCol.Caption = "5C"
ElseIf GreenVal.Value = 93 Then
GreenCol.Caption = "5D"
ElseIf GreenVal.Value = 94 Then
GreenCol.Caption = "5E"
ElseIf GreenVal.Value = 95 Then
GreenCol.Caption = "5F"
ElseIf GreenVal.Value = 96 Then
GreenCol.Caption = "60"
ElseIf GreenVal.Value = 97 Then
GreenCol.Caption = "61"
ElseIf GreenVal.Value = 98 Then
GreenCol.Caption = "62"
ElseIf GreenVal.Value = 99 Then
GreenCol.Caption = "63"
ElseIf GreenVal.Value = 100 Then
GreenCol.Caption = "64"
ElseIf GreenVal.Value = 101 Then
GreenCol.Caption = "65"
ElseIf GreenVal.Value = 102 Then
GreenCol.Caption = "66"
ElseIf GreenVal.Value = 103 Then
GreenCol.Caption = "67"
ElseIf GreenVal.Value = 104 Then
GreenCol.Caption = "68"
ElseIf GreenVal.Value = 105 Then
GreenCol.Caption = "69"
ElseIf GreenVal.Value = 106 Then
GreenCol.Caption = "6A"
ElseIf GreenVal.Value = 107 Then
GreenCol.Caption = "6B"
ElseIf GreenVal.Value = 108 Then
GreenCol.Caption = "6C"
ElseIf GreenVal.Value = 109 Then
GreenCol.Caption = "6D"
ElseIf GreenVal.Value = 110 Then
GreenCol.Caption = "6E"
ElseIf GreenVal.Value = 111 Then
GreenCol.Caption = "6F"
ElseIf GreenVal.Value = 112 Then
GreenCol.Caption = "70"
ElseIf GreenVal.Value = 113 Then
GreenCol.Caption = "71"
ElseIf GreenVal.Value = 114 Then
GreenCol.Caption = "72"
ElseIf GreenVal.Value = 115 Then
GreenCol.Caption = "73"
ElseIf GreenVal.Value = 116 Then
GreenCol.Caption = "74"
ElseIf GreenVal.Value = 117 Then
GreenCol.Caption = "75"
ElseIf GreenVal.Value = 118 Then
GreenCol.Caption = "76"
ElseIf GreenVal.Value = 119 Then
GreenCol.Caption = "77"
ElseIf GreenVal.Value = 120 Then
GreenCol.Caption = "78"
ElseIf GreenVal.Value = 121 Then
GreenCol.Caption = "79"
ElseIf GreenVal.Value = 122 Then
GreenCol.Caption = "7A"
ElseIf GreenVal.Value = 123 Then
GreenCol.Caption = "7B"
ElseIf GreenVal.Value = 124 Then
GreenCol.Caption = "7C"
ElseIf GreenVal.Value = 125 Then
GreenCol.Caption = "7D"
ElseIf GreenVal.Value = 126 Then
GreenCol.Caption = "7E"
ElseIf GreenVal.Value = 127 Then
GreenCol.Caption = "7F"
ElseIf GreenVal.Value = 128 Then
GreenCol.Caption = "80"
ElseIf GreenVal.Value = 129 Then
GreenCol.Caption = "81"
ElseIf GreenVal.Value = 130 Then
GreenCol.Caption = "82"
ElseIf GreenVal.Value = 131 Then
GreenCol.Caption = "83"
ElseIf GreenVal.Value = 132 Then
GreenCol.Caption = "84"
ElseIf GreenVal.Value = 133 Then
GreenCol.Caption = "85"
ElseIf GreenVal.Value = 134 Then
GreenCol.Caption = "86"
ElseIf GreenVal.Value = 135 Then
GreenCol.Caption = "87"
ElseIf GreenVal.Value = 136 Then
GreenCol.Caption = "88"
ElseIf GreenVal.Value = 137 Then
GreenCol.Caption = "89"
ElseIf GreenVal.Value = 138 Then
GreenCol.Caption = "8A"
ElseIf GreenVal.Value = 139 Then
GreenCol.Caption = "8B"
ElseIf GreenVal.Value = 140 Then
GreenCol.Caption = "8C"
ElseIf GreenVal.Value = 141 Then
GreenCol.Caption = "8D"
ElseIf GreenVal.Value = 142 Then
GreenCol.Caption = "8E"
ElseIf GreenVal.Value = 143 Then
GreenCol.Caption = "8F"
ElseIf GreenVal.Value = 144 Then
GreenCol.Caption = "90"
ElseIf GreenVal.Value = 145 Then
GreenCol.Caption = "91"
ElseIf GreenVal.Value = 146 Then
GreenCol.Caption = "92"
ElseIf GreenVal.Value = 147 Then
GreenCol.Caption = "93"
ElseIf GreenVal.Value = 148 Then
GreenCol.Caption = "94"
ElseIf GreenVal.Value = 149 Then
GreenCol.Caption = "95"
ElseIf GreenVal.Value = 150 Then
GreenCol.Caption = "96"
ElseIf GreenVal.Value = 151 Then
GreenCol.Caption = "97"
ElseIf GreenVal.Value = 152 Then
GreenCol.Caption = "98"
ElseIf GreenVal.Value = 153 Then
GreenCol.Caption = "99"
ElseIf GreenVal.Value = 154 Then
GreenCol.Caption = "9A"
ElseIf GreenVal.Value = 155 Then
GreenCol.Caption = "9B"
ElseIf GreenVal.Value = 156 Then
GreenCol.Caption = "9C"
ElseIf GreenVal.Value = 157 Then
GreenCol.Caption = "9D"
ElseIf GreenVal.Value = 158 Then
GreenCol.Caption = "9E"
ElseIf GreenVal.Value = 159 Then
GreenCol.Caption = "9F"
ElseIf GreenVal.Value = 160 Then
GreenCol.Caption = "A0"
ElseIf GreenVal.Value = 161 Then
GreenCol.Caption = "A1"
ElseIf GreenVal.Value = 162 Then
GreenCol.Caption = "A2"
ElseIf GreenVal.Value = 163 Then
GreenCol.Caption = "A3"
ElseIf GreenVal.Value = 164 Then
GreenCol.Caption = "A4"
ElseIf GreenVal.Value = 165 Then
GreenCol.Caption = "A5"
ElseIf GreenVal.Value = 166 Then
GreenCol.Caption = "A6"
ElseIf GreenVal.Value = 167 Then
GreenCol.Caption = "A7"
ElseIf GreenVal.Value = 168 Then
GreenCol.Caption = "A8"
ElseIf GreenVal.Value = 169 Then
GreenCol.Caption = "A9"
ElseIf GreenVal.Value = 170 Then
GreenCol.Caption = "AA"
ElseIf GreenVal.Value = 171 Then
GreenCol.Caption = "AB"
ElseIf GreenVal.Value = 172 Then
GreenCol.Caption = "AC"
ElseIf GreenVal.Value = 173 Then
GreenCol.Caption = "AD"
ElseIf GreenVal.Value = 174 Then
GreenCol.Caption = "AE"
ElseIf GreenVal.Value = 175 Then
GreenCol.Caption = "AF"
ElseIf GreenVal.Value = 176 Then
GreenCol.Caption = "B0"
ElseIf GreenVal.Value = 177 Then
GreenCol.Caption = "B1"
ElseIf GreenVal.Value = 178 Then
GreenCol.Caption = "B2"
ElseIf GreenVal.Value = 179 Then
GreenCol.Caption = "B3"
ElseIf GreenVal.Value = 180 Then
GreenCol.Caption = "B4"
ElseIf GreenVal.Value = 181 Then
GreenCol.Caption = "B5"
ElseIf GreenVal.Value = 182 Then
GreenCol.Caption = "B6"
ElseIf GreenVal.Value = 183 Then
GreenCol.Caption = "B7"
ElseIf GreenVal.Value = 184 Then
GreenCol.Caption = "B8"
ElseIf GreenVal.Value = 185 Then
GreenCol.Caption = "B9"
ElseIf GreenVal.Value = 186 Then
GreenCol.Caption = "BA"
ElseIf GreenVal.Value = 187 Then
GreenCol.Caption = "BB"
ElseIf GreenVal.Value = 188 Then
GreenCol.Caption = "BC"
ElseIf GreenVal.Value = 189 Then
GreenCol.Caption = "BD"
ElseIf GreenVal.Value = 190 Then
GreenCol.Caption = "BE"
ElseIf GreenVal.Value = 191 Then
GreenCol.Caption = "BF"
ElseIf GreenVal.Value = 192 Then
GreenCol.Caption = "C0"
ElseIf GreenVal.Value = 193 Then
GreenCol.Caption = "C1"
ElseIf GreenVal.Value = 194 Then
GreenCol.Caption = "C2"
ElseIf GreenVal.Value = 195 Then
GreenCol.Caption = "C3"
ElseIf GreenVal.Value = 196 Then
GreenCol.Caption = "C4"
ElseIf GreenVal.Value = 197 Then
GreenCol.Caption = "C5"
ElseIf GreenVal.Value = 198 Then
GreenCol.Caption = "C6"
ElseIf GreenVal.Value = 199 Then
GreenCol.Caption = "C7"
ElseIf GreenVal.Value = 200 Then
GreenCol.Caption = "C8"
ElseIf GreenVal.Value = 201 Then
GreenCol.Caption = "C9"
ElseIf GreenVal.Value = 202 Then
GreenCol.Caption = "CA"
ElseIf GreenVal.Value = 203 Then
GreenCol.Caption = "CB"
ElseIf GreenVal.Value = 204 Then
GreenCol.Caption = "CC"
ElseIf GreenVal.Value = 205 Then
GreenCol.Caption = "CD"
ElseIf GreenVal.Value = 206 Then
GreenCol.Caption = "CE"
ElseIf GreenVal.Value = 207 Then
GreenCol.Caption = "CF"
ElseIf GreenVal.Value = 208 Then
GreenCol.Caption = "D0"
ElseIf GreenVal.Value = 209 Then
GreenCol.Caption = "D1"
ElseIf GreenVal.Value = 210 Then
GreenCol.Caption = "D2"
ElseIf GreenVal.Value = 211 Then
GreenCol.Caption = "D3"
ElseIf GreenVal.Value = 212 Then
GreenCol.Caption = "D4"
ElseIf GreenVal.Value = 213 Then
GreenCol.Caption = "D5"
ElseIf GreenVal.Value = 214 Then
GreenCol.Caption = "D6"
ElseIf GreenVal.Value = 215 Then
GreenCol.Caption = "D7"
ElseIf GreenVal.Value = 216 Then
GreenCol.Caption = "D8"
ElseIf GreenVal.Value = 217 Then
GreenCol.Caption = "D9"
ElseIf GreenVal.Value = 218 Then
GreenCol.Caption = "DA"
ElseIf GreenVal.Value = 219 Then
GreenCol.Caption = "DB"
ElseIf GreenVal.Value = 220 Then
GreenCol.Caption = "DC"
ElseIf GreenVal.Value = 221 Then
GreenCol.Caption = "DD"
ElseIf GreenVal.Value = 222 Then
GreenCol.Caption = "DE"
ElseIf GreenVal.Value = 223 Then
GreenCol.Caption = "DF"
ElseIf GreenVal.Value = 224 Then
GreenCol.Caption = "E0"
ElseIf GreenVal.Value = 225 Then
GreenCol.Caption = "E1"
ElseIf GreenVal.Value = 226 Then
GreenCol.Caption = "E2"
ElseIf GreenVal.Value = 227 Then
GreenCol.Caption = "E3"
ElseIf GreenVal.Value = 228 Then
GreenCol.Caption = "E4"
ElseIf GreenVal.Value = 229 Then
GreenCol.Caption = "E5"
ElseIf GreenVal.Value = 230 Then
GreenCol.Caption = "E6"
ElseIf GreenVal.Value = 231 Then
GreenCol.Caption = "E7"
ElseIf GreenVal.Value = 232 Then
GreenCol.Caption = "E8"
ElseIf GreenVal.Value = 233 Then
GreenCol.Caption = "E9"
ElseIf GreenVal.Value = 234 Then
GreenCol.Caption = "EA"
ElseIf GreenVal.Value = 235 Then
GreenCol.Caption = "EB"
ElseIf GreenVal.Value = 236 Then
GreenCol.Caption = "EC"
ElseIf GreenVal.Value = 237 Then
GreenCol.Caption = "ED"
ElseIf GreenVal.Value = 238 Then
GreenCol.Caption = "EE"
ElseIf GreenVal.Value = 239 Then
GreenCol.Caption = "EF"
ElseIf GreenVal.Value = 240 Then
GreenCol.Caption = "F0"
ElseIf GreenVal.Value = 241 Then
GreenCol.Caption = "F1"
ElseIf GreenVal.Value = 242 Then
GreenCol.Caption = "F2"
ElseIf GreenVal.Value = 243 Then
GreenCol.Caption = "F3"
ElseIf GreenVal.Value = 244 Then
GreenCol.Caption = "F4"
ElseIf GreenVal.Value = 245 Then
GreenCol.Caption = "F5"
ElseIf GreenVal.Value = 246 Then
GreenCol.Caption = "F6"
ElseIf GreenVal.Value = 247 Then
GreenCol.Caption = "F7"
ElseIf GreenVal.Value = 248 Then
GreenCol.Caption = "F8"
ElseIf GreenVal.Value = 249 Then
GreenCol.Caption = "F9"
ElseIf GreenVal.Value = 250 Then
GreenCol.Caption = "FA"
ElseIf GreenVal.Value = 251 Then
GreenCol.Caption = "FB"
ElseIf GreenVal.Value = 252 Then
GreenCol.Caption = "FC"
ElseIf GreenVal.Value = 253 Then
GreenCol.Caption = "FD"
ElseIf GreenVal.Value = 254 Then
GreenCol.Caption = "FE"
ElseIf GreenVal.Value = 255 Then
GreenCol.Caption = "FF"
End If


DispColor

End Sub


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



RedText.Text = RedVal.Value

If RedVal.Value = 0 Then
RedCol.Caption = "00"
ElseIf RedVal.Value = 1 Then
RedCol.Caption = "01"
ElseIf RedVal.Value = 2 Then
RedCol.Caption = "02"
ElseIf RedVal.Value = 3 Then
RedCol.Caption = "03"
ElseIf RedVal.Value = 4 Then
RedCol.Caption = "04"
ElseIf RedVal.Value = 5 Then
RedCol.Caption = "05"
ElseIf RedVal.Value = 6 Then
RedCol.Caption = "06"
ElseIf RedVal.Value = 7 Then
RedCol.Caption = "07"
ElseIf RedVal.Value = 8 Then
RedCol.Caption = "08"
ElseIf RedVal.Value = 9 Then
RedCol.Caption = "09"
ElseIf RedVal.Value = 10 Then
RedCol.Caption = "0A"
ElseIf RedVal.Value = 11 Then
RedCol.Caption = "0B"
ElseIf RedVal.Value = 12 Then
RedCol.Caption = "0C"
ElseIf RedVal.Value = 13 Then
RedCol.Caption = "0D"
ElseIf RedVal.Value = 14 Then
RedCol.Caption = "0E"
ElseIf RedVal.Value = 15 Then
RedCol.Caption = "0F"
ElseIf RedVal.Value = 16 Then
RedCol.Caption = "10"
ElseIf RedVal.Value = 17 Then
RedCol.Caption = "11"
ElseIf RedVal.Value = 18 Then
RedCol.Caption = "12"
ElseIf RedVal.Value = 19 Then
RedCol.Caption = "13"
ElseIf RedVal.Value = 20 Then
RedCol.Caption = "14"
ElseIf RedVal.Value = 21 Then
RedCol.Caption = "15"
ElseIf RedVal.Value = 22 Then
RedCol.Caption = "16"
ElseIf RedVal.Value = 23 Then
RedCol.Caption = "17"
ElseIf RedVal.Value = 24 Then
RedCol.Caption = "18"
ElseIf RedVal.Value = 25 Then
RedCol.Caption = "19"
ElseIf RedVal.Value = 26 Then
RedCol.Caption = "1A"
ElseIf RedVal.Value = 27 Then
RedCol.Caption = "1B"
ElseIf RedVal.Value = 28 Then
RedCol.Caption = "1C"
ElseIf RedVal.Value = 29 Then
RedCol.Caption = "1D"
ElseIf RedVal.Value = 30 Then
RedCol.Caption = "1E"
ElseIf RedVal.Value = 31 Then