VB求助指点。万分感谢！ combox 返回值

Question

一个窗体 两个控件 combox1 和 Image1 
通过返回combox的值 判断 并显示正确的 imagel 图片IF combox1.text = "1"
set Image1.Picture = LoadPicture ("D:\1.bmp")  图片控件显示的为空  请高手指点 万分感谢 。

Answer 1

imagelist控件。先加好，后调用。

Answer 2

把combo1的事件选择为Click然后输入代码：
IF combo1.text = "1" 
set Image1.Picture = LoadPicture ("D:\1.bmp")

Answer 3

养成使用相对路径的习惯 不要使用绝对路径下面代码是举例:
在你的程序本地路径下有6张图片,名称为Pintu1.gif Pintu2.gif....Pintu6.gif
Option Explicit
Dim i&, AppDisk$
Private Sub Form_Load()
   AppDisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
   For i = 1 To 6
      Combo1.AddItem CStr(i)
   Next i
End SubPrivate Sub Combo1_Click()
   Image1.Picture = LoadPicture(AppDisk & "Pintu" & Combo1.Text & ".gif")
End Sub

Answer 4

要在click事件中做这件事，而不要在change事件里做这件事就好了。
Private Sub Combo1_Click()
    If Combo1.Text = "1" Then
    Set Image1.Picture = LoadPicture("D:\1.bmp")
    End IfEnd Sub

Answer 5

Image1.Picture = LoadPicture("D:\1.bmp") 
不需要"set"吧