Vb.net 图片框的大小只调整了一半?
因此,我正在为学校制作一个项目,我的加载表单如下所示: 当您将鼠标悬停在任意一个图片框上时,它会增大大小(这样您就知道自己在上面了)。 我使用了以下代码:Vb.net 图片框的大小只调整了一半?,vb.net,visual-studio-2010,visual-studio,Vb.net,Visual Studio 2010,Visual Studio,因此,我正在为学校制作一个项目,我的加载表单如下所示: 当您将鼠标悬停在任意一个图片框上时,它会增大大小(这样您就知道自己在上面了)。 我使用了以下代码: 现在,当大小改变时,它似乎只是从右下角开始增加大小。如何使其全部增大?若要使其看起来像是在各个方向上增大的大小,您必须更改图片框的顶部和左侧属性并减小它们。这会将它们移到左上角。如果同时增加大小,则图片框看起来会放大。获取PictureBox的Bounds()属性并使用其充气()方法。将旧边界存储在Tag()中,以便再次恢复。类似于 Pr
现在,当大小改变时,它似乎只是从右下角开始增加大小。如何使其全部增大?若要使其看起来像是在各个方向上增大的大小,您必须更改图片框的
顶部
和左侧
属性并减小它们。这会将它们移到左上角。如果同时增加大小,则图片框看起来会放大。获取PictureBox的Bounds()属性并使用其充气()方法。将旧边界存储在Tag()中,以便再次恢复。类似于
Private Sub PictureBoxClientBack_MouseEnter(sender As Object, e As System.EventArgs) Handles PictureBoxClientBack.MouseEnter
Dim rc As Rectangle = PictureBoxClientBack.Bounds
PictureBoxClientBack.Tag = rc
rc.Inflate(2, 2)
PictureBoxClientBack.Bounds = rc
rc = PictureBoxClientPic.Bounds
PictureBoxClientPic.Tag = rc
rc.Inflate(2, 2)
PictureBoxClientPic.Bounds = rc
End Sub
Private Sub PictureBoxClientBack_MouseLeave(sender As Object, e As System.EventArgs) Handles PictureBoxClientBack.MouseLeave
PictureBoxClientBack.Bounds = PictureBoxClientBack.Tag
PictureBoxClientPic.Bounds = PictureBoxClientPic.Tag
End Sub