vb6.0中怎么设置任意路径打开所需要的东西???我是个新手!

答案:2 悬赏:30 手机版

解决时间 2021-02-03 08:27

提问者网友：爱了却不能说
2021-02-02 19:20

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
I1.Picture = LoadPicture(" & App.Path & " \ 新建文件夹 \ 班子阳.jpg) '这行是我自己弄的,但不行
Case 1
I1.Picture = LoadPicture("C:\Users\niukunpeng\Desktop\新建文件夹\第一组\陈家尚.jpg")
Case 2
I1.Picture = LoadPicture("C:\Users\niukunpeng\Desktop\新建文件夹\第一组\丛水欣.jpg")
Case 3
I1.Picture = LoadPicture("C:\Users\niukunpeng\Desktop\新建文件夹\第一组\董文正.jpg")
Case 4
I1.Picture = LoadPicture("C:\Users\niukunpeng\Desktop\新建文件夹\第一组\杜帅.jpg")
End Select
End Sub

最佳答案

五星知识达人网友：雪起风沙痕
2021-02-02 19:57

public imgPath as string
Private Sub Form_Load()
imgPath="C:\Users\niukunpeng\Desktop\新建文件夹\第一组"
End Sub
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
  Case 0
  I1.Picture = LoadPicture(App.Path & "\新建文件夹\班子阳.jpg")
  Case 1
  I1.Picture = LoadPicture(imgPath & "\陈家尚.jpg")
  Case 2
  I1.Picture = LoadPicture(imgPath & "\丛水欣.jpg")
  Case 3
  I1.Picture = LoadPicture(imgPath & "\董文正.jpg")
  Case 4
  I1.Picture = LoadPicture(imgPath & "\杜帅.jpg")
End Select
End Sub

全部回答

1楼网友：由着我着迷
2021-02-02 20:23

企业版vb安装路径：c:\program files\microsoft visual studio\vb98\vb6.exe，注意在安装时路径是可以改的

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！