新建一个form1 , 添加一个image1控件和一个Commang1。
再新建一个form2 , 添加一个imagelist1控件。在imagelist里加上图片,索引为1
再新建一个module。
弄好后,在form1里写如下代码:
Private Sub Command1_Click()
Call LoadImage
End Sub
再将以下代码复制粘贴到新建的module里
Sub LoadImage()
'让Form1的image控件显示Form2的ImageList控件中的第一张图片
Form1.Image1.Picture = Form2.ImageList1.ListImages(1)
End Sub
'运行程序后,点Form1的按钮