VB中点击COMMAND要求一幅图出现的代码是什么？

很简单的问题，刚刚入门

2025-03-18 21:04:07

推荐回答（5个）

回答1：

先生成1-3之间的随机值，然后根据值打开不同的图，代码如下：
randomize
select case int(rnd * 3)
case 0
'打开第一张图
case 1
'打开第二张图
case 2
'打开第三张图
end select

回答2：

首先在Picture控件上面加载个图,然后Visible属性设置为False..在Command上写上代码
Private Sub Command1_Click()
Me.Picture = True
End Sub
那么就会出现一幅图画了..

回答3：

Private Sub Command1_Click()
Picture1.picture = LoadPicture("图片路径")
End Sub

回答4：

Private Sub Command1_Click()
Me.Picture = LoadPicture("图片路径（c:\…………）")
End Sub

回答5：

Private Sub Command1_Click()
Me.Picture = LoadPicture("C:/baidu.gif")
End Sub