UC知道在VB中 显示图片
来源：百度知道 编辑：UC知道 时间：2024/05/30 05:34:05
比如说
Case 1 To 5
然后显示该路径图片
Case 6 To 10
再显示出路径图片
Else
显示出该路径图片
应该用什麼显示？
和怎样篇代码？
不好意思..我是小白......那个command控件在哪裏？ picture是picturebox吗？
+我Q吧 249405624
Case 1 To 5
然后显示该路径图片
Case 6 To 10
再显示出路径图片
Else
显示出该路径图片
应该用什麼显示？
和怎样篇代码？
不好意思..我是小白......那个command控件在哪裏？ picture是picturebox吗？
+我Q吧 249405624
'添加一个picture控件，一个command控件
Private Sub Command1_Click()
Dim t As Integer
t = 15 '例如t等于15
Select Case t
Case 1 To 5
Picture1.Picture = LoadPicture("D:\a.jpg")
Case 6 To 10
Picture1.Picture = LoadPicture("D:\b.jpg")
Case Else
Picture1.Picture = LoadPicture("D:\c.jpg")
End Select
End Sub
Picture1.Picture = LoadPicture(文件路径，如：c:\1.jpg)