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

看板Visual_Basic作者kenny719 (Chia-Jen Lo在2A)時間15年前 (2009/06/18 23:23)推噓-2(2推 4噓 1→)

留言7則, 6人參與討論串1/2 (看更多)

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

06/18 23:36, , 1^F

06/18 23:36, 1^F

→

kenny719

06/18 23:37, , 2^F

06/18 23:37, 2^F

※ 編輯: kenny719 來自: 218.160.114.71 (06/18 23:38)

推

chinoyan

06/19 01:50, , 3^F