Question

VB中，如何单击form1中的command，弹出”打开“，选择好图片文件后，在form2中的image1显示刚才选择的图片

单击form1中的command1，弹出“打开”，在”打开“中选择图片文件，进入form2后image1显示刚才选中的图片

Answer 1

在form1里添加CommonDialog和command，在form2里添加image
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Form2.Image1.Picture = LoadPicture(CommonDialog1.FileName)
End If
Form2.Show
End Sub

Private Sub Form_Load()
CommonDialog1.Filter = "图片文件|*.jpg"
End Sub

Answer 2

form1 添加 CommonDialog 控件到窗体，Command 的代码如下
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Form2.Show
End Sub
form2的 Load 事件的代码如下
Private Sub Form_Load()
Me.Picture = LoadPicture(Form1.CommonDialog1.FileName)
End Sub

Answer 3

1、利用公共变量传递文件名。form1中定义公共变量比如：
Public varImageFile as String
保存选择的图片文件名称,在form2适当的地方（比如Form2_Load()）中加
Image1.Picture=LoadPicture(form1.varImageFile)
2、form1中添加Image控件imgLoad，设置visible属性为false，在按钮Click事件中，在选择图片文件的代码后面加入：
imgLoad.picture=LoadPicture(图片文件名）
在form2_Load()中加入代码：
image1.Picture=imgLoad.picture

3、如果打开form2时form1已经摧毁(Unload)，则需要其他方式记录图片文件名称，比如写入一个文本文件，或者数据库。