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

Question

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

Answer 1

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

追问

我的这些图片不是固定在"C:\Users\niukunpeng\Desktop\新建文件夹\第一组"的,我想在它们不管移动到哪个盘都能打开的那种,VB能做到吗?
还有随便问一下,你装的哪个版本的VB,电脑系统和它的兼容怎么解决的?

追答

图片文件夹放在程序所在目录，App.Path & "\新建文件夹\班子阳.jpg" ：这句表示程序所在目录下的“新建文件夹” 目录中的“班子阳.jpg” 文件。

这样只要程序文件夹中的文件或文件夹不变，整个程序文件夹放到哪里都可以读取。