修改窗体某个点的颜色？

Question

   就是我想让窗体某个点上有颜色怎么弄锕 . 就比如 top=50 left=50 这个点上的颜色是红色这样怎么弄锕 ?
  还有数组怎么建立锕  我键个pic(i) 这样不对啊 ??!~

Answer 1

在窗体上画点，不难吧！Form1.Picture1.PSet (x(i), y(i)) 

Answer 2

能解释下吗 我不太懂锕 
 我只知道 
Form1.Picture1.PSet (x(i), y(i)) 
窗体.图片控件1.这就不知道了  后面也不知道了.

Answer 3

Option ExplicitPrivate Sub Form_Load()
        Picture1.AutoRedraw = True
        Form1.Picture1.PSet (800, 800), RGB(255, 0, 0)'画一个红色的点
End Sub

Answer 4

按座标点：(x(i), y(i))建立二维数组，并保存到文本文件中即可。
dim LPoint(100,100)
.........
建立100个点，然后画点，也可保存:
(123,45)
(237,89)
....... 

Answer 5

'窗体加上一张背景图片Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixelV Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Dim colorval&, red&, green&, blue&, x1&, y1&, x2&, y2&, i%, j%, color$Private Sub Form_Load()
   Me.AutoRedraw = False
   Me.ScaleMode = 3
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   colorval = GetPixel(Me.hDC, X, Y)
   Me.Caption = CStr(X) & "," & CStr(Y) & Space(5) & CStr(colorval) & Space(5) & GetRGB(colorval)
   If Button <> 0 Then SetPixelV Me.hDC, X, Y, QBColor(Int(Rnd * 16))
End SubPublic Function GetRGB(Cval&) As String
   red = colorval Mod 256
   green = (colorval \ 256) Mod 256
   blue = colorval \ 256 \ 256
   GetRGB = CStr(red) & "," & CStr(green) & "," & CStr(blue)
End Function