永发信息网

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

答案:2  悬赏:30  手机版
解决时间 2021-02-03 08:27
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
最佳答案
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
全部回答
企业版vb安装路径:c:\program files\microsoft visual studio\vb98\vb6.exe,注意在安装时路径是可以改的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
蓝牙音乐耳机开不了机,是怎么回事
【球管平衡】球管平衡就是说明他的概念
工业大街(东)/金星街(路口)在哪里啊,我有事
剑灵几级门派可以做重置石板
兴国小学(西安高陵县)地址好找么,我有些事要
出租汽车的意思是什么啊?知道的请说下!
只从吃素以后每天排便两次
马家小学(西安高陵县)地址有知道的么?有点事
天水市秦州区鬼步舞哪里有教学的
麦迪在一次比赛中22投14中得28分,除了3个三
维美姿怎么去啊,有知道地址的么
新庄小学(西安蓝田县)地址有知道的么?有点事
散户的意思是什么啊?知道的请说下!
新二小学(西安长安区)怎么去啊,我要去那办事
小魏副食店地址在哪,我要去那里办事
推荐资讯
长安汽车曲靖丰麒4S店在什么地方啊,我要过去
男装品牌大全-
乐富后台显示账户余额什么时候能到银行卡里
旷年的意思是什么啊?知道的请说下!
叺字组词怎么组一
有人概括战后美国经济迅猛发展的原因是“基础
日本les小说打包下载
浙江省常山县球川中学1990年三(2)班毕业同学
直认不讳的意思是什么啊?知道的请说下!
为什么掌阅一直连接不了苹果ID
遵义到北京航线多少公里
忠华五金店地址好找么,我有些事要过去
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?