Question

vb imagelist控件怎么用代码加载图片?

Answer 1

添加一个CommandButton控件一个Image控件一个ImageList控件
Private Sub Form_Load()
Image1.Stretch = True
ImageList1.ListImages.Add , , LoadPicture("C:\WINDOWS\Web\Wallpaper\bliss.bmp")
ImageList1.ListImages.Add , , LoadPicture("C:\WINDOWS\Web\Wallpaper\img00.jpg")
End Sub
Private Sub Command1_Click()
Static flag As Boolean
flag = Not flag
Dim i As Integer
If flag Then
i = 1
Else
i = 2
End If
Image1.Picture = ImageList1.ListImages(i).Picture
End Sub