Question

在窗体中，我点击图片时，怎么样让其它窗体背景图片发生更改，希望有代码

Answer 1

说明:楼上的写法不完整(如果图片不是加载在Picture控件里呢?)，本例详细介绍了使用Image控件二种方式和Picture控件的全部代码，希望对楼主有帮助。

'本程序已在VB6.0中测试：

首先,添加窗体Form1、Form2

然后，在Form1代码是：
Option Explicit
'说明：
'1.在窗体上直接创建一个Image1控件、一个Picture1控件；创建一个Frame1控件，然后在上面创建建Image2控件。
'2.说明：因为 Image 控件使用较少的系统资源，所以重画起来比 PictureBox 控件要快，所以好多人喜欢它多于Picture
'控件。但是Image 控件，只是控件而已，并不能作为容器，把它放在窗体上时，窗体就是它的容器，单Image1控件并不
'能激发Image1_Click()事件，而是由Form_Click()来响应。这样窗体上有多个Image控件时，单击它们中的任何一个，
'所以窗体并不知道到底单击了哪个控件。为了响应固定的Image控件的单击事件，而不想由窗体来响应，本例采用了给
'Image控件加容器的办法，比如：Image2。
'3.Picture1本身就是容器，所以它能响应自身的单击事件，如本例的：Picture1。

'响应Image1的单击事件
Private Sub Form_Click()
    MsgBox "单击了窗体！"
End Sub

'Form1窗体加载：
Private Sub Form_Load()
    '设置Image1的Stretch：
    Image1.Stretch = True
    Image2.Stretch = True '缩放图形来适应控件大小
    'Image1加载图片
    Image1.Picture = LoadPicture(App.Path & "\Pic\Desk2.jpg")
    'Image2加载图片
    Image2.Picture = LoadPicture(App.Path & "\Pic\Desk.jpg")
    'Picture1加载图片
    Picture1.Picture = LoadPicture(App.Path & "\Pic\Desk2.jpg")
End Sub

'单击Image1控件，本事例并不响应，而由窗体单击事件响应：
Private Sub Image1_Click()
    MsgBox "单击了Image1控件"

End Sub

'响应Image2的单击事件
Private Sub Frame1_Click()
    Form2.Show
    Form2.SetFocus
    Form2.Picture = LoadPicture(App.Path & "\Pic\Desk.jpg")
End Sub
'单击Picture1控件
Private Sub Picture1_Click()
    Form2.Show
    Form2.SetFocus
    Form2.Picture = LoadPicture(App.Path & "\Pic\Desk2.jpg")
End Sub
'附件1:Image2控件中的图片

'附件2:Image1控件与Picture1控件中的图片

'附件3:单击了Image1控件后

'附件4:单击了Image2控件后

'附件5:单击了Picture1控件后

Answer 2

private sub picture1_click()
form2.picture1.picture=loadpictrue("c:\123.jpg")
end sub

Answer 3

private sub picture1_click()
form2.picture=loadpictrue("c:\123.jpg")
end sub