Question

vb.net控件位置跟随图片框大小变化

一个标签控件放在图片上的一个点上，当图片大小或位置改变后，标签控件依然在这个点上，该怎么弄！

Answer 1

以下代码测试成功，图片大小和位置改变后，标签控件依然在这个点上。

    Dim px, py, lx, ly As Integer
    Private Sub PictureBox1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.Resize
        If px > 0 And py > 0 Then
            Label1.Location = New Point(PictureBox1.Size.Width / px * lx, PictureBox1.Size.Height / py * ly)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        px = PictureBox1.Size.Width
        py = PictureBox1.Size.Height
        lx = Label1.Location.X
        ly = Label1.Location.Y
    End Sub

追问

我的图片用anchor鼠标绑定到窗体上，当窗体放大后图片也跟着放大，这时需要标签控件跟着图片定在点上

追答

是啊，上面的代码就可以实现你的要求啊，label的位置可以跟随图片的放大缩小，按比例跑的。

追问

失败了啊，标签比图片跑的快

追答

我怎么成功了，看图片，标签在大象鼻子下。

追问

你图片的anchor，sizemode属性是怎么设置的，我直接粘贴你代码过去的 就是不行

追答

PictureBox1属性设置：

Anchor=Top,Left
Dock=Fill
BackgroundImage：选定一幅图
BackgroundImageLayout = Stretch