vb中如何表示屏幕上一点

发布网友 发布时间：2024-10-03 06:34

我来回答

共5个回答

热心网友 时间：2024-10-17 23:46

Private Sub Form_Load()
Form1.ForeColor = vbRed
Form1.DrawWidth = 8
Form1.PSet (Form1.Width / 2, Form1.Height / 2)
End Sub

热心网友 时间：2024-10-17 23:46

VB可以这样
screen.point.x = x
screen.point.y = y
取窗体某点颜色值：
Dim Color As Long
Color = Form1.Point(333, 444)'取(333,444)的颜色

热心网友 时间：2024-10-17 23:47

如果你要的是在自己的Form或者Picturebox上表示（X，Y）坐标：用 .CurrentX 和 .CurrentY属性就行。可以赋值，可以取值。颜色用 .FroreColor设置。一般将.ScaleMode设置为vbTwips。
画线用 .Line (x1,y1)-(x2,y2),vbRed。
如果是要对Windows屏幕操作，我不知道。

热心网友 时间：2024-10-17 23:47

form1.point x,y
颜色不记得了。。。

热心网友 时间：2024-10-17 23:48

你是要得到屏幕上一点的颜色吗
你看看这个
MsgBox GetPixel(GetDC(0), x,y)
API要声明啊

热心网友 时间：2024-10-17 23:46

Private Sub Form_Load()
Form1.ForeColor = vbRed
Form1.DrawWidth = 8
Form1.PSet (Form1.Width / 2, Form1.Height / 2)
End Sub

热心网友 时间：2024-10-17 23:47

VB可以这样
screen.point.x = x
screen.point.y = y
取窗体某点颜色值：
Dim Color As Long
Color = Form1.Point(333, 444)'取(333,444)的颜色

热心网友 时间：2024-10-17 23:47

如果你要的是在自己的Form或者Picturebox上表示（X，Y）坐标：用 .CurrentX 和 .CurrentY属性就行。可以赋值，可以取值。颜色用 .FroreColor设置。一般将.ScaleMode设置为vbTwips。
画线用 .Line (x1,y1)-(x2,y2),vbRed。
如果是要对Windows屏幕操作，我不知道。

热心网友 时间：2024-10-17 23:48

form1.point x,y
颜色不记得了。。。

热心网友 时间：2024-10-17 23:48

你是要得到屏幕上一点的颜色吗
你看看这个
MsgBox GetPixel(GetDC(0), x,y)
API要声明啊