frmrgbhex.frm

一个完整的HTML编辑器

BlueCol.Caption = "81"
ElseIf BlueVal.Value = 130 Then
BlueCol.Caption = "82"
ElseIf BlueVal.Value = 131 Then
BlueCol.Caption = "83"
ElseIf BlueVal.Value = 132 Then
BlueCol.Caption = "84"
ElseIf BlueVal.Value = 133 Then
BlueCol.Caption = "85"
ElseIf BlueVal.Value = 134 Then
BlueCol.Caption = "86"
ElseIf BlueVal.Value = 135 Then
BlueCol.Caption = "87"
ElseIf BlueVal.Value = 136 Then
BlueCol.Caption = "88"
ElseIf BlueVal.Value = 137 Then
BlueCol.Caption = "89"
ElseIf BlueVal.Value = 138 Then
BlueCol.Caption = "8A"
ElseIf BlueVal.Value = 139 Then
BlueCol.Caption = "8B"
ElseIf BlueVal.Value = 140 Then
BlueCol.Caption = "8C"
ElseIf BlueVal.Value = 141 Then
BlueCol.Caption = "8D"
ElseIf BlueVal.Value = 142 Then
BlueCol.Caption = "8E"
ElseIf BlueVal.Value = 143 Then
BlueCol.Caption = "8F"
ElseIf BlueVal.Value = 144 Then
BlueCol.Caption = "90"
ElseIf BlueVal.Value = 145 Then
BlueCol.Caption = "91"
ElseIf BlueVal.Value = 146 Then
BlueCol.Caption = "92"
ElseIf BlueVal.Value = 147 Then
BlueCol.Caption = "93"
ElseIf BlueVal.Value = 148 Then
BlueCol.Caption = "94"
ElseIf BlueVal.Value = 149 Then
BlueCol.Caption = "95"
ElseIf BlueVal.Value = 150 Then
BlueCol.Caption = "96"
ElseIf BlueVal.Value = 151 Then
BlueCol.Caption = "97"
ElseIf BlueVal.Value = 152 Then
BlueCol.Caption = "98"
ElseIf BlueVal.Value = 153 Then
BlueCol.Caption = "99"
ElseIf BlueVal.Value = 154 Then
BlueCol.Caption = "9A"
ElseIf BlueVal.Value = 155 Then
BlueCol.Caption = "9B"
ElseIf BlueVal.Value = 156 Then
BlueCol.Caption = "9C"
ElseIf BlueVal.Value = 157 Then
BlueCol.Caption = "9D"
ElseIf BlueVal.Value = 158 Then
BlueCol.Caption = "9E"
ElseIf BlueVal.Value = 159 Then
BlueCol.Caption = "9F"
ElseIf BlueVal.Value = 160 Then
BlueCol.Caption = "A0"
ElseIf BlueVal.Value = 161 Then
BlueCol.Caption = "A1"
ElseIf BlueVal.Value = 162 Then
BlueCol.Caption = "A2"
ElseIf BlueVal.Value = 163 Then
BlueCol.Caption = "A3"
ElseIf BlueVal.Value = 164 Then
BlueCol.Caption = "A4"
ElseIf BlueVal.Value = 165 Then
BlueCol.Caption = "A5"
ElseIf BlueVal.Value = 166 Then
BlueCol.Caption = "A6"
ElseIf BlueVal.Value = 167 Then
BlueCol.Caption = "A7"
ElseIf BlueVal.Value = 168 Then
BlueCol.Caption = "A8"
ElseIf BlueVal.Value = 169 Then
BlueCol.Caption = "A9"
ElseIf BlueVal.Value = 170 Then
BlueCol.Caption = "AA"
ElseIf BlueVal.Value = 171 Then
BlueCol.Caption = "AB"
ElseIf BlueVal.Value = 172 Then
BlueCol.Caption = "AC"
ElseIf BlueVal.Value = 173 Then
BlueCol.Caption = "AD"
ElseIf BlueVal.Value = 174 Then
BlueCol.Caption = "AE"
ElseIf BlueVal.Value = 175 Then
BlueCol.Caption = "AF"
ElseIf BlueVal.Value = 176 Then
BlueCol.Caption = "B0"
ElseIf BlueVal.Value = 177 Then
BlueCol.Caption = "B1"
ElseIf BlueVal.Value = 178 Then
BlueCol.Caption = "B2"
ElseIf BlueVal.Value = 179 Then
BlueCol.Caption = "B3"
ElseIf BlueVal.Value = 180 Then
BlueCol.Caption = "B4"
ElseIf BlueVal.Value = 181 Then
BlueCol.Caption = "B5"
ElseIf BlueVal.Value = 182 Then
BlueCol.Caption = "B6"
ElseIf BlueVal.Value = 183 Then
BlueCol.Caption = "B7"
ElseIf BlueVal.Value = 184 Then
BlueCol.Caption = "B8"
ElseIf BlueVal.Value = 185 Then
BlueCol.Caption = "B9"
ElseIf BlueVal.Value = 186 Then
BlueCol.Caption = "BA"
ElseIf BlueVal.Value = 187 Then
BlueCol.Caption = "BB"
ElseIf BlueVal.Value = 188 Then
BlueCol.Caption = "BC"
ElseIf BlueVal.Value = 189 Then
BlueCol.Caption = "BD"
ElseIf BlueVal.Value = 190 Then
BlueCol.Caption = "BE"
ElseIf BlueVal.Value = 191 Then
BlueCol.Caption = "BF"
ElseIf BlueVal.Value = 192 Then
BlueCol.Caption = "C0"
ElseIf BlueVal.Value = 193 Then
BlueCol.Caption = "C1"
ElseIf BlueVal.Value = 194 Then
BlueCol.Caption = "C2"
ElseIf BlueVal.Value = 195 Then
BlueCol.Caption = "C3"
ElseIf BlueVal.Value = 196 Then
BlueCol.Caption = "C4"
ElseIf BlueVal.Value = 197 Then
BlueCol.Caption = "C5"
ElseIf BlueVal.Value = 198 Then
BlueCol.Caption = "C6"
ElseIf BlueVal.Value = 199 Then
BlueCol.Caption = "C7"
ElseIf BlueVal.Value = 200 Then
BlueCol.Caption = "C8"
ElseIf BlueVal.Value = 201 Then
BlueCol.Caption = "C9"
ElseIf BlueVal.Value = 202 Then
BlueCol.Caption = "CA"
ElseIf BlueVal.Value = 203 Then
BlueCol.Caption = "CB"
ElseIf BlueVal.Value = 204 Then
BlueCol.Caption = "CC"
ElseIf BlueVal.Value = 205 Then
BlueCol.Caption = "CD"
ElseIf BlueVal.Value = 206 Then
BlueCol.Caption = "CE"
ElseIf BlueVal.Value = 207 Then
BlueCol.Caption = "CF"
ElseIf BlueVal.Value = 208 Then
BlueCol.Caption = "D0"
ElseIf BlueVal.Value = 209 Then
BlueCol.Caption = "D1"
ElseIf BlueVal.Value = 210 Then
BlueCol.Caption = "D2"
ElseIf BlueVal.Value = 211 Then
BlueCol.Caption = "D3"
ElseIf BlueVal.Value = 212 Then
BlueCol.Caption = "D4"
ElseIf BlueVal.Value = 213 Then
BlueCol.Caption = "D5"
ElseIf BlueVal.Value = 214 Then
BlueCol.Caption = "D6"
ElseIf BlueVal.Value = 215 Then
BlueCol.Caption = "D7"
ElseIf BlueVal.Value = 216 Then
BlueCol.Caption = "D8"
ElseIf BlueVal.Value = 217 Then
BlueCol.Caption = "D9"
ElseIf BlueVal.Value = 218 Then
BlueCol.Caption = "DA"
ElseIf BlueVal.Value = 219 Then
BlueCol.Caption = "DB"
ElseIf BlueVal.Value = 220 Then
BlueCol.Caption = "DC"
ElseIf BlueVal.Value = 221 Then
BlueCol.Caption = "DD"
ElseIf BlueVal.Value = 222 Then
BlueCol.Caption = "DE"
ElseIf BlueVal.Value = 223 Then
BlueCol.Caption = "DF"
ElseIf BlueVal.Value = 224 Then
BlueCol.Caption = "E0"
ElseIf BlueVal.Value = 225 Then
BlueCol.Caption = "E1"
ElseIf BlueVal.Value = 226 Then
BlueCol.Caption = "E2"
ElseIf BlueVal.Value = 227 Then
BlueCol.Caption = "E3"
ElseIf BlueVal.Value = 228 Then
BlueCol.Caption = "E4"
ElseIf BlueVal.Value = 229 Then
BlueCol.Caption = "E5"
ElseIf BlueVal.Value = 230 Then
BlueCol.Caption = "E6"
ElseIf BlueVal.Value = 231 Then
BlueCol.Caption = "E7"
ElseIf BlueVal.Value = 232 Then
BlueCol.Caption = "E8"
ElseIf BlueVal.Value = 233 Then
BlueCol.Caption = "E9"
ElseIf BlueVal.Value = 234 Then
BlueCol.Caption = "EA"
ElseIf BlueVal.Value = 235 Then
BlueCol.Caption = "EB"
ElseIf BlueVal.Value = 236 Then
BlueCol.Caption = "EC"
ElseIf BlueVal.Value = 237 Then
BlueCol.Caption = "ED"
ElseIf BlueVal.Value = 238 Then
BlueCol.Caption = "EE"
ElseIf BlueVal.Value = 239 Then
BlueCol.Caption = "EF"
ElseIf BlueVal.Value = 240 Then
BlueCol.Caption = "F0"
ElseIf BlueVal.Value = 241 Then
BlueCol.Caption = "F1"
ElseIf BlueVal.Value = 242 Then
BlueCol.Caption = "F2"
ElseIf BlueVal.Value = 243 Then
BlueCol.Caption = "F3"
ElseIf BlueVal.Value = 244 Then
BlueCol.Caption = "F4"
ElseIf BlueVal.Value = 245 Then
BlueCol.Caption = "F5"
ElseIf BlueVal.Value = 246 Then
BlueCol.Caption = "F6"
ElseIf BlueVal.Value = 247 Then
BlueCol.Caption = "F7"
ElseIf BlueVal.Value = 248 Then
BlueCol.Caption = "F8"
ElseIf BlueVal.Value = 249 Then
BlueCol.Caption = "F9"
ElseIf BlueVal.Value = 250 Then
BlueCol.Caption = "FA"
ElseIf BlueVal.Value = 251 Then
BlueCol.Caption = "FB"
ElseIf BlueVal.Value = 252 Then
BlueCol.Caption = "FC"
ElseIf BlueVal.Value = 253 Then
BlueCol.Caption = "FD"
ElseIf BlueVal.Value = 254 Then
BlueCol.Caption = "FE"
ElseIf BlueVal.Value = 255 Then
BlueCol.Caption = "FF"
End If


DispColor

End Sub



Private Sub Command1_Click()
On Error Resume Next
RedVal.Value = RedText.Text
If Err Then MsgBox "Error:" & Chr$(10) & Chr$(13) & RedText.Text & " is not a valid number." & Chr$(10) & Chr$(13) & "The number entered must be between 0 and 255."
End Sub


Private Sub Command2_Click()
On Error Resume Next
GreenVal.Value = GreenText.Text
If Err Then MsgBox "Error:" & Chr$(10) & Chr$(13) & GreenText.Text & " is not a valid number." & Chr$(10) & Chr$(13) & "The number entered must be between 0 and 255."
End Sub

Private Sub Command3_Click()
On Error Resume Next
BlueVal.Value = BlueText.Text
If Err Then MsgBox "Error:" & Chr$(10) & Chr$(13) & BlueText.Text & " is not a valid number." & Chr$(10) & Chr$(13) & "The number entered must be between 0 and 255."
End Sub

Private Sub Command4_Click()

' This Code has been Made by Sliv007
' When you use CasperHTML any further, please always give him the credit fot
' this.


frmDocument.rtfText.SelRTF = "#" & RedCol & GreenCol & BlueCol
Unload frmRGBHex
End Sub

Private Sub Command5_Click()
Unload Me
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

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

RedText.Text = RedVal.Value
GreenText.Text = GreenVal.Value
BlueText.Text = BlueVal.Value
DispColor
End Sub

Private Sub HScroll1_Change()
BlueText.Text = BlueVal.Value
End Sub

Private Sub HScroll2_Change()
GreenText.Text = GreenVal.Value
End Sub

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

GreenText.Text = GreenVal.Value

If GreenVal.Value = 0 Then
GreenCol.Caption = "00"
ElseIf GreenVal.Value = 1 Then
GreenCol.Caption = "01"
ElseIf GreenVal.Value = 2 Then
GreenCol.Caption = "02"
ElseIf GreenVal.Value = 3 Then
GreenCol.Caption = "03"
ElseIf GreenVal.Value = 4 Then
GreenCol.Caption = "04"
ElseIf GreenVal.Value = 5 Then
GreenCol.Caption = "05"
ElseIf GreenVal.Value = 6 Then
GreenCol.Caption = "06"
ElseIf GreenVal.Value = 7 Then
GreenCol.Caption = "07"
ElseIf GreenVal.Value = 8 Then
GreenCol.Caption = "08"
ElseIf GreenVal.Value = 9 Then
GreenCol.Caption = "09"
ElseIf GreenVal.Value = 10 Then
GreenCol.Caption = "0A"
ElseIf GreenVal.Value = 11 Then
GreenCol.Caption = "0B"
ElseIf GreenVal.Value = 12 Then
GreenCol.Caption = "0C"
ElseIf GreenVal.Value = 13 Then
GreenCol.Caption = "0D"
ElseIf GreenVal.Value = 14 Then
GreenCol.Caption = "0E"
ElseIf GreenVal.Value = 15 Then
GreenCol.Caption = "0F"
ElseIf GreenVal.Value = 16 Then
GreenCol.Caption = "10"
ElseIf GreenVal.Value = 17 Then
GreenCol.Caption = "11"
ElseIf GreenVal.Value = 18 Then
GreenCol.Caption = "12"
ElseIf GreenVal.Value = 19 Then
GreenCol.Caption = "13"
ElseIf GreenVal.Value = 20 Then
GreenCol.Caption = "14"
ElseIf GreenVal.Value = 21 Then
GreenCol.Caption = "15"
ElseIf GreenVal.Value = 22 Then
GreenCol.Caption = "16"
ElseIf GreenVal.Value = 23 Then
GreenCol.Caption = "17"
ElseIf GreenVal.Value = 24 Then
GreenCol.Caption = "18"
ElseIf GreenVal.Value = 25 Then
GreenCol.Caption = "19"
ElseIf GreenVal.Value = 26 Then
GreenCol.Caption = "1A"
ElseIf GreenVal.Value = 27 Then
GreenCol.Caption = "1B"
ElseIf GreenVal.Value = 28 Then
GreenCol.Caption = "1C"
ElseIf GreenVal.Value = 29 Then
GreenCol.Caption = "1D"
ElseIf GreenVal.Value = 30 Then
GreenCol.Caption = "1E"
ElseIf GreenVal.Value = 31 Then
GreenCol.Caption = "1F"
ElseIf GreenVal.Value = 32 Then
GreenCol.Caption = "20"
ElseIf GreenVal.Value = 33 Then
GreenCol.Caption = "21"
ElseIf GreenVal.Value = 34 Then
GreenCol.Caption = "22"
ElseIf GreenVal.Value = 35 Then
GreenCol.Caption = "23"
ElseIf GreenVal.Value = 36 Then
GreenCol.Caption = "24"
ElseIf GreenVal.Value = 37 Then
GreenCol.Caption = "25"
ElseIf GreenVal.Value = 38 Then
GreenCol.Caption = "26"
ElseIf GreenVal.Value = 39 Then
GreenCol.Caption = "27"
ElseIf GreenVal.Value = 40 Then
GreenCol.Caption = "28"
ElseIf GreenVal.Value = 41 Then
GreenCol.Caption = "29"
ElseIf GreenVal.Value = 42 Then
GreenCol.Caption = "2A"
ElseIf GreenVal.Value = 43 Then
GreenCol.Caption = "2B"
ElseIf GreenVal.Value = 44 Then
GreenCol.Caption = "2C"
ElseIf GreenVal.Value = 45 Then
GreenCol.Caption = "2D"
ElseIf GreenVal.Value = 46 Then
GreenCol.Caption = "2E"
ElseIf GreenVal.Value = 47 Then
GreenCol.Caption = "2F"
ElseIf GreenVal.Value = 48 Then
GreenCol.Caption = "30"
ElseIf GreenVal.Value = 49 Then
GreenCol.Caption = "31"
ElseIf GreenVal.Value = 50 Then
GreenCol.Caption = "32"
ElseIf GreenVal.Value = 51 Then
GreenCol.Caption = "33"
ElseIf GreenVal.Value = 52 Then
GreenCol.Caption = "34"
ElseIf GreenVal.Value = 53 Then
GreenCol.Caption = "35"
ElseIf GreenVal.Value = 54 Then
GreenCol.Caption = "36"
ElseIf GreenVal.Value = 55 Then
GreenCol.Caption = "37"
ElseIf GreenVal.Value = 56 Then
GreenCol.Caption = "38"
ElseIf GreenVal.Value = 57 Then
GreenCol.Caption = "39"
ElseIf GreenVal.Value = 58 Then
GreenCol.Caption = "3A"
ElseIf GreenVal.Value = 59 Then
GreenCol.Caption = "3B"
ElseIf GreenVal.Value = 60 Then
GreenCol.Caption = "3C"
ElseIf GreenVal.Value = 61 Then
GreenCol.Caption = "3D"
ElseIf GreenVal.Value = 62 Then
GreenCol.Caption = "3E"
ElseIf GreenVal.Value = 63 Then
GreenCol.Caption = "3F"
ElseIf GreenVal.Value = 64 Then
GreenCol.Caption = "40"
ElseIf GreenVal.Value = 65 Then
GreenCol.Caption = "41"
ElseIf GreenVal.Value = 66 Then