作者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