关于我们 共44页[1 2 3 4 5 6 7 >»<... 最后一页]

ImageList控件的使用

Private Sub Form_Load()
Dim i As Integer
For i = 1 To ImageList1.ListImages.Count
List1.AddItem ImageList1.ListImages(i).Index
Next
End Sub

Private Sub List1_Click()
Cls
PaintPicture ImageList1.ListImages(Val(List1.Text)).Picture, 0, 0
End Sub