怎么让VB的图片显示框显示图片?

我按“春”,左上角就显示图片,我按“夏”,右上角就显示图片······这种东西怎么做?

假定春夏秋冬四个按钮分别是Command1、Command2、Command3、Command4,四个图片框分别是Picture1、Picture2、Picture3、Picture4

Private Sub Command1_Click()
Picture1.Picture = LoadPicture("春的图片路径放在这")
End Sub

Private Sub Command2_Click()
Picture2.Picture = LoadPicture("夏的图片路径放在这")
End Sub

Private Sub Command3_Click()
Picture3.Picture = LoadPicture("秋的图片路径放在这")
End Sub

Private Sub Command4_Click()
Picture4.Picture = LoadPicture("冬的图片路径放在这")
End Sub

 如果按钮和图片框弄成控件数组则程序会更简单(四个图片的文件名要改为1.jpg、2.jpg、3.jpg、4.jpg):

Private Sub Command1_Click(Index As Integer)
Picture1(Index).Picture = LoadPicture(App.Path & "\" & Index + 1 & ".jpg")
End Sub

温馨提示:答案为网友推荐,仅供参考
第1个回答  2018-08-08
pictureBox1.Image=Image.FromFile("图片路径")
相似回答