作者ClubT (Debug能不能用殺蟲濟啊)
看板Visual_Basic
標題Re: [VB6 ] 急！ 會的人幫我看一下
時間Fri Jun 19 14:09:54 2009
※ 引述《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)
1F：推 Peruheru:好陰險 06/19 16:26
2F：推 jwjeng: ...... 06/21 01:09