'==========frmApp==========
'我的EasyRGB的VB源代码，为了做网页，我写过好几次这个小工具。
'现在终于找到了我认为是最简捷的算法了
'Visual Basic 6.0;Windows 2000/XP
Dim strTemp
Dim strTempLeft, strTempRight As String
Dim strRed, strGreen, strBlue As String
Private Sub cmdAbout_Click()
frmAbout.Show
End Sub
Private Sub cmdClose_Click()
End
End Sub
Private Sub Form_Load()
With picApp
.Top = 0
.Left = 0
.Width = frmApp.Width
End With
picApp.BackColor = RGB(0, 0, 0)
End Sub
Private Sub hscBlue_Change()
txtBlue.Text = hscBlue.Value
picApp.BackColor = RGB(hscRed.Value, hscGreen.Value, hscBlue.Value)
Call OctToHex(hscBlue.Value)
strBlue = strTempLeft + strTempRight
txtHexBlue.Text = strBlue
End Sub
Private Sub hscBlue_Scroll()
Call hscBlue_Change
End Sub
Private Sub hscGreen_Change()
txtGreen.Text = hscGreen.Value
picApp.BackColor = RGB(hscRed.Value, hscGreen.Value, hscBlue.Value)
Call OctToHex(hscGreen.Value)
strGreen = strTempLeft + strTempRight
txtHexGreen.Text = strGreen
End Sub
Private Sub hscGreen_Scroll()
Call hscGreen_Change
End Sub
Private Sub hscRed_Change()
txtRed.Text = hscRed.Value
picApp.BackColor = RGB(hscRed.Value, hscGreen.Value, hscBlue.Value)
Call OctToHex(hscRed.Value)
strRed = strTempLeft + strTempRight
txtHexRed.Text = strRed
End Sub
Private Sub OctToHex(ByVal intOct As Integer)
Dim intHexLeft, intHexRight As Integer
Dim strHexLeft, strHexRight As String
intHexLeft = intOct \ 16
intHexRight = intOct - intHexLeft * 16
Call OctValueToHexString(intHexLeft)
strHexLeft = strTemp
strTempLeft = strHexLeft
Call OctValueToHexString(intHexRight)
strHexRight = strTemp
strTempRight = strHexRight
End Sub
Private Sub OctValueToHexString(ByVal intOctValue As Integer)
Dim strHexString
Select Case intOctValue
Case 0
strHexString = "0"
Case 1
strHexString = "1"
Case 2
strHexString = "2"
Case 3
strHexString = "3"
Case 4
strHexString = "4"
Case 5
strHexString = "5"
Case 6
strHexString = "6"
Case 7
strHexString = "7"
Case 8
strHexString = "8"
Case 9
strHexString = "9"
Case 10
strHexString = "A"
Case 11
strHexString = "B"
Case 12
strHexString = "C"
Case 13
strHexString = "D"
Case 14
strHexString = "E"
Case 15
strHexString = "F"
End Select
strTemp = strHexString
End Sub
Private Sub hscRed_Scroll()
Call hscRed_Change
End Sub
'==========Over=========
运行时截图：