[VB6 ] 急！ 會的人幫我看一下

[kenny719 (Chia-Jen Lo在2A)]

Dim MyColor As Long

Private Sub Form_Load()
MsgBox "請在表單內移動滑鼠，按著滑數左鍵可畫出線條"
MyColor = 0&
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
If Button = 1 Then Line -(X, Y), MyColor
Form1.CurrentX = X
Form1.CurrentY = Y
End Sub


Private Sub Option1_Click(Index As Integer)
Select Case Index
    Case 0
        MyColor = RGB(0, 0, 0)
    Case 1
        MyColor = RGB(255, 255, 255)
    Case 2
        MyColor = RGB(128, 128, 128)
    Case 3
        MyColor = RGB(255, 0, 0)
    Case 4
        MyColor = RGB(255, 128, 0)
    Case 5
        MyColor = RGB(255, 255, 0)
    Case 6
        MyColor = RGB(0, 255, 0)
    Case 7
        MyColor = RGB(0, 0, 255)
    Case 8
        MyColor = RGB(128, 0, 255)
    Case 9
        MyColor = RGB(128, 0, 128)
End Select
End Sub


以上的程式碼使用了什麼？
請我翻譯 解釋一下 拜託

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.160.114.71
噓 j401f2:不知道你在問什麼
→ kenny719:上面的程式碼有用了哪些東西  變數之類的
※ 編輯: kenny719        來自: 218.160.114.71       (06/18 23:38)
推 chinoyan:功課,至少也先自己硑究一下咩,再問不懂的部份全丟上來...
推 j401f2:抱歉沒回水球 但我覺得你買本書查查看會比較快
噓 Steven0422:不是這樣一股腦丟上來問的
噓 MOONRAKER:有使用26個英文字母及10個數字及其他特殊符號
噓 jackyboss:太瞎了~~