我的EasyRGB_v1.01的VB源代码[1]

'==========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=========