作者kenny719 (Chia-Jen Lo在2A)
看板Visual_Basic
標題[VB6 ] 急！ 會的人幫我看一下
時間Thu Jun 18 23:21:59 2009
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
1F：噓 j401f2:不知道你在問什麼 06/18 23:36
2F：→ kenny719:上面的程式碼有用了哪些東西 變數之類的 06/18 23:37
※ 編輯: kenny719 來自: 218.160.114.71 (06/18 23:38)
3F：推 chinoyan:功課,至少也先自己硑究一下咩,再問不懂的部份全丟上來... 06/19 01:50
4F：推 j401f2:抱歉沒回水球 但我覺得你買本書查查看會比較快 06/19 05:31
5F：噓 Steven0422:不是這樣一股腦丟上來問的 06/19 09:34
6F：噓 MOONRAKER:有使用26個英文字母及10個數字及其他特殊符號 06/19 09:35
7F：噓 jackyboss:太瞎了~~ 06/20 15:55