UC知道imagebox和combobox
来源：百度知道 编辑：UC知道 时间：2024/07/07 03:52:33
我设计了如下一个程序
在combo里list是1,2,3,4,5....
选1在image里显示1.bmp
2 2.bmp
类推~
求高手帮忙
我的
Private Sub Combo1_Change()
If Combo1.Text = 1 Then
Image1.Picture = LoadPicture("1.BMP")
End If
End Sub
选择之后依然没反映,谢谢~
我的文件在程序目录下
楼下高手说的那个是在combo里输入1之后调用1.bmp
然而在list下选择1后依然没变
在combo里list是1,2,3,4,5....
选1在image里显示1.bmp
2 2.bmp
类推~
求高手帮忙
我的
Private Sub Combo1_Change()
If Combo1.Text = 1 Then
Image1.Picture = LoadPicture("1.BMP")
End If
End Sub
选择之后依然没反映,谢谢~
我的文件在程序目录下
楼下高手说的那个是在combo里输入1之后调用1.bmp
然而在list下选择1后依然没变
有两个问题：
1.Combo的触发事件应该改成Combo1_Click，虽然它默认是Combo1_Change,Combo1_Change事件是在手动修改其显示文本时才触发的，使用鼠标选择的话应该是Combo1_Click
2.LoadPicture（）里面的路径应该是从盘符开始到文件名称的完整路径，即使是在程序路径下也要加App.path才找得到文件。
LoadPicture (App.Path & "\1.bmp")，注意那个反斜杠，有的系统能取到，有的系统取不到要自己加上。
Private Sub Combo1_click()
dim sPath as string '应该有一个图片文件的路径 不如程序目录下等等的
Image1.Picture = LoadPicture(spath & Combo1.Text & ".BMP")
End Sub