Question

求vb大神，下面的题应该怎么做，给个过程和代码，谢谢

对窗体的三个事件过程（Load、Click、DblClick）编程，三个事件中装入不同的图片，运行时观察效果。

Answer 1

代码示例如下：

Private Sub Form_Click()
    Image1.Picture = LoadPicture("d:\image2.jpg")
End Sub

Private Sub Form_DblClick()
    Image1.Picture = LoadPicture("d:\image3.jpg")
End Sub

Private Sub Form_Load()
    Image1.Picture = LoadPicture("d:\image1.jpg")
End Sub

追问

直接插入图片就可以了吗

追答

步骤：

建立工程，添加 Image 和 Label 组件。

设置 Image 组件的 Stretch 属性为 True ，并适当调整 Label 的字体等。

完成后如下图：

编写代码：

Private Sub Form_Click()
    Image1.Picture = LoadPicture("e:\img1.jpg")
    Label1.Caption = "鼠标单击载入图片"
End Sub
 
Private Sub Form_DblClick()
    Image1.Picture = LoadPicture("e:\img2.jpg")
    Label1.Caption = "鼠标双击载入图片"
End Sub
 
Private Sub Form_Load()
    Image1.Picture = LoadPicture("e:\img0.jpg")
    Label1.Caption = "窗体载入图片"
End Sub

运行截图：