我增加了图片框中图像的大小,但现在我想把它恢复到原来的大小

时间:2011-06-15 02:23:25

标签: vb.net

我正在使用vb.net并希望在光标位于该图像上时增加图像的大小,但是当光标离开该图像区域时,图像应该恢复到原始大小。

我使用以下代码来增加图像的大小:

Private Sub PictureBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseHover
    PictureBox1.Size = New Size(300, 250)
End Sub

我使用了默认的尺寸类,但它提供了一些不同的尺寸。

请引导我使用将图像声明为原始大小的代码,并将其声明为图片框属性。

2 个答案:

答案 0 :(得分:2)

您可能应该加入MouseEnterMouseLeave事件。 MSDN参考链接

答案 1 :(得分:2)

以下是将PictureBox调整为图像尺寸的代码:

PictureBox1.Size = PictureBox1.Image.Size

假设PictureBox的原始大小是图像大小,那么它就可以正常工作。

正如kaveman所说,MouseEnter和MouseLeave将是更好的事件来放置代码; - )

为了恢复你设置的自定义大小,你需要一些像这样的代码:(确保它不会超出范围的某个地方,比如表格之外的方法)< / p>

您需要一个变量来存储原始大小:

Dim OriginalSize as Size

然后,在用户将鼠标移到图像上方之前更改大小之前,将大小存储在变量中:(将其放在MouseEnter事件中)

OriginalSize = PictureBox1.Size
PictureBox1.Size = New Size(300, 250)

恢复该大小是将该变量放回图片框大小的简单问题:(这属于MouseLeave事件)

PictureBox1.Size = OriginalSize

=)