VB中combobox的list里怎么关联文件啊?
比如我在我的img文件夹中有1.jpg2.jpg3.jpg三张图片。combobox的list下拉列表中的1,2,3怎么关联到这3张图片?使我在点列表的1,2,3时可以换...
比如我在我的img文件夹中有1.jpg 2.jpg 3.jpg 三张图片。combobox的list下拉列表中的1,2,3怎么关联到这3张图片?使我在点列表的1,2,3时可以换窗体中的图片? 我是把图片设为窗体的背景 就是想点列表时可以变换背景图案
这位大哥。我用了你写的代码。 可是提示 错误啊。 文件1.jpg未找到啊。
还有我看你写的这段代码为什么没有定位 图片所在位置呢? 展开
这位大哥。我用了你写的代码。 可是提示 错误啊。 文件1.jpg未找到啊。
还有我看你写的这段代码为什么没有定位 图片所在位置呢? 展开
展开全部
Private Sub Combo1_Click()
Me.Picture = LoadPicture(Combo1.List(Combo1.ListIndex) & ".jpg")
End Sub
Private Sub Form_Load()
Combo1.AddItem 1, 0
Combo1.AddItem 2, 1
Combo1.AddItem 3, 2
End Sub
我不知道你具体的图片文件的路径,
img文件夹若和你的vbp文件在同一目录下:
这样改:
Private Sub Combo1_Click()
Me.Picture = LoadPicture(app.path & "\img\" & Combo1.List(Combo1.ListIndex) & ".jpg")
End Sub
Me.Picture = LoadPicture(Combo1.List(Combo1.ListIndex) & ".jpg")
End Sub
Private Sub Form_Load()
Combo1.AddItem 1, 0
Combo1.AddItem 2, 1
Combo1.AddItem 3, 2
End Sub
我不知道你具体的图片文件的路径,
img文件夹若和你的vbp文件在同一目录下:
这样改:
Private Sub Combo1_Click()
Me.Picture = LoadPicture(app.path & "\img\" & Combo1.List(Combo1.ListIndex) & ".jpg")
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询