关于vb的几个问题（建立坐标系&读取颜色）

Question

1、如何在VB中建立一个坐标系（完整的那种，类似于网格状）2、如何读取一个指定点的颜色？只有黑白两色。感激不尽。

Answer 1

sub form_paint()
   dim i as integer
   cls
   scale(0,0)-(8,8)
   for i=1 to 7
      line (0,i)-(8,i)
      line (i,0)-(i,8)
   next i
end sub

Answer 2

[对象].Point(x,y）
对象指form或picturebox

Answer 3

Private Sub Form_Load()
Form1.Show
Form1.Height = Form1.Width
Form1.AutoRedraw = True
Form1.Scale (0, 0)-(12, 12)
Form1.DrawWidth = 2
Line (6, 0)-(6, 12), vbRed
Line (0, 6)-(12, 6), vbRed
For I = 0 To 12
Line (5.9, I)-(6, I), vbRed
If I <> 6 Then
 CurrentY = CurrentY - 0.2
 Else
 CurrentY = CurrentY + 0.2
 End If
 CurrentX = 5.3
 Print (6 - I)
Next
For I = 0 To 12
Line (I, 6)-(I, 6.1), vbRed
 CurrentY = 6.3
  CurrentX = CurrentX - 0.3
  If I <> 6 Then
 Print -1 * (6 - I)
 End If
Next
Form1.DrawWidth = 1
For I = 0 To 12If I <> 6 Then
Line (I, 0)-(I, 12), vbGreen
End IfNext
For I = 0 To 12If I <> 6 Then
Line (0, I)-(12, I), vbGreen
End If
Next
End Sub

Answer 4

作一点改动
Private Sub Form_Load()
Form1.Show
Form1.Height = Form1.Width
Form1.AutoRedraw = True
Form1.Scale (0, 0)-(12, 12)
Form1.DrawWidth = 1
For I = 0 To 12If I <> 6 Then
Line (I, 0)-(I, 12), vbGreen
End IfNext
For I = 0 To 12If I <> 6 Then
Line (0, I)-(12, I), vbGreen
End If
Next
Form1.DrawWidth = 2
Line (6, 0)-(6, 12), vbRed
Line (0, 6)-(12, 6), vbRed
For I = 0 To 12
Line (5.9, I)-(6, I), vbRed
If I <> 6 Then
 CurrentY = CurrentY - 0.2
 Else
 CurrentY = CurrentY + 0.2
 End If
 CurrentX = 5.3
 Print (6 - I)
Next
For I = 0 To 12
Line (I, 6)-(I, 6.1), vbRed
 CurrentY = 6.3
  CurrentX = CurrentX - 0.3
  If I <> 6 Then
 Print -1 * (6 - I)
 End If
NextEnd Sub

Answer 5

'取色
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
c = Point(X, Y)
S = Hex(c)
R = Val("&H" & Mid(S, 1, 2))
G = Val("&H" & Mid(S, 3, 2))
B = Val("&H" & Mid(S, 5, 2))
Text1 = "RGB(" & R & "," & G & "," & B & ")"
End Sub