Question

vb中如何获得picture控件中点的坐标

picture控件左右间距5760，每隔0.1取一个点，存到一个数组里，本人新手，谢谢
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim k As Long
k = 0
If Option8.Value = True Then（按钮是确定要连线）
Button = 1
begy = Y
b = 1
e = Fix(X * 10)
Picture1.CurrentX = X
begx = Picture1.CurrentX
Picture1.CurrentY = Y
While k < e
byt(k) = 0
k = k + 1
Wend
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Long
Dim b As Integer
Dim g As Double
Dim t As Integer
If Button = 1 And Option8.Value = True Then
Picture1.Line -(X, Y)
g = X - begx
If g > 0.1 * b Then（这个为什么不可以等于，等于好像取不到点）
byt1(e) = (8000 - Fix(Y)) / 20
Picture1.Print byt1(e)
e = e + 1
b = b + 1
End If
End If
End Sub

Answer 1

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
那个x，y就是坐标了
获取点的颜色用point(x,y)

追问

哦，但是我做不到每隔0.1取一个点，要是鼠标移动的快了，我用picture.print即时显示，点之间的间隔很大

追答

0.1是什么单位啊？

追问

就是picture控件的宽是5760，vb里面picture自己的坐标，然后每隔0.1取一个点

追答

5760单位是像素？1像素是最小单位了，你0.1怎么取啊
鼠标手动当然不太好取 你可以用FOR循环啊自动取不就得了
PICTUREBOX的scalemode属性是修改宽高度的单位，里面有像素、缇。你5760应该是默认的缇吧，如果你是要取0.1像素，那注意单位换算一下就行了。哈哈 上班了 先下了啊

追问

哦，
我学的太差了，谢谢啊，工作愉快

追答

老兄1像素=15缇，你每隔0.1像素也就是1.5缇 确实不好办啊 你直接把picturebox的scalemode属性改为pix，然后直接每隔一个像素取就得了
Private Sub Command1_Click()
Dim A() As Long
Dim W As Long, H As Long
Dim I As Long, Y As Long

Picture1.AutoRedraw = True
Picture1.AutoSize = True
'加载图片
Picture1.Picture = LoadPicture("d:\1.jpg")
'获取图片的长宽像素
W = Picture1.ScaleWidth
H = Picture1.ScaleHeight
'初始化数组
ReDim A(W, H)
For I = 1 To W
For J = 1 To H
'提取每个像素的颜色到数组
A(I, J) = Picture1.Point(I, J)
Next J
Next I
End Sub
不知道你为什么要这么做，大概就是这样。如果跟你的想法不一致你可以修改一下，这下我真的下了。

追问

谢谢，麻烦你了，不过我不取颜色，就是取纵坐标大小，我的想法是picture控件设置成宽5760.每隔0.1取一个点，放到一个57600大小的数组里，然后循环发送到单片机里，我做的是一个信号发生器，手动绘制波形