Private Sub Combo1_Click()
If Combo1.Text = 1 Then
Image1.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\pic\4-1.bmp")
End If
If Combo1.Text = 2 Then
Image1.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\pic\6-1.bmp")
End If
End Sub
我用的是COMBO1,里面的列值是1和2
[此贴子已经被作者于2006-6-9 20:05:14编辑过]