Question

所以我正在为学校制作一个项目，我的加载表格如下所示： http://gyazo.com/90238893fbe27ff1ae0cae070e22b7c5

当您将鼠标悬停在任一图片框上时，它会增加尺寸（因此您知道它在其上）。我使用了以下代码：

http://gyazo.com/97c957806dd9064ca834a0d40d8de944.png

现在当尺寸发生变化时，它似乎只会从右下方增加尺寸。我怎样才能让它全部增加？

Answer 1

为了使其看起来好像在所有方向上都增加了尺寸，您必须更改图片框的Top和Left属性并减少它们。这会将它们移向左上角。如果你同时增加尺寸，它会看起来像是放大了图片框。

Answer 2

获取PictureBox的Bounds（）属性并使用其Inflate（）方法。将旧边界存储在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

图片盒只有一半大小？

2 个答案: