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

[ClubT (Debug能不能用殺蟲濟啊)]

※ 引述《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) '點選 Option1 陣列物件時觸發
 Select Case Index '判斷被點的是哪一個
     Case 0 '如果是第0個被點
         MyColor = RGB(0, 0, 0) '將顏色變數設為黑色
     Case 1 '如果是第1個被點
         MyColor = RGB(255, 255, 255) '將顏色變數設為白色
     Case 2 '如果是第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
: 以上的程式碼使用了什麼？
: 請我翻譯 解釋一下 拜託

        對了...不用謝謝我
        我只是不希望以後厲害的人越來越多而已XD

--
《我的Blog》http://clubtblog.blogspot.com/

你的資料如下 (這是控制碼，每個人都會看到自己的資料)
《ＩＤ暱稱》 ()
《上站次數》次
《文章篇數》篇

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.136.54.135
※ 編輯: ClubT           來自: 220.136.54.135       (06/19 14:12)
推 Peruheru:好陰險
推 jwjeng:  ......