ImageList – İmaj Listesi
Başka nesneler tarafından kullanılan resimleri saklar.
ImageList - Özellikler
BackColor
ImageHeight
ImageWidth
Index
ListImages
MaskColor
Name
Object
Parent
Tag
UseMaskColor
Add : Resim ekleme
Overlay : İki resmi üst üste birleştirme
ImageList - Olaylar
AfterLabelEdit
BeforeLabelEdit
Click
ColumnClick
DblClick
DragDrop
DragOver
GotFocus
ItemCheck
ItemClick
KeyDown
KeyPress
KeyUp
LostFocus
MouseDown
MouseMove
MouseUp
OleCompleteDrag
OleDragDrop
OleDragOver
OleGiveFeedBack
OleSetData
OleStartDrag
Validate
ImageListe’e Kod ile Resim Eklemek
Private Sub Form_Click()
CommonDialog1.ShowOpen
ImageList1.ListImages.Add , "open", LoadPicture(CommonDialog1.FileName)
End Sub
ImageList’teki İki Resmi Birleştirmek
Private Sub Form_Click()
Set Picture3.Picture = ImageList1.Overlay (index1, index2)
‘ Set Picture3.Picture = ImageList1.Overlay ("key1", "key2")
End Sub
Başka nesneler tarafından kullanılan resimleri saklar.
ImageList - Özellikler
BackColor
ImageHeight
ImageWidth
Index
ListImages
MaskColor
Name
Object
Parent
Tag
UseMaskColor
Add : Resim ekleme
Overlay : İki resmi üst üste birleştirme
ImageList - Olaylar
AfterLabelEdit
BeforeLabelEdit
Click
ColumnClick
DblClick
DragDrop
DragOver
GotFocus
ItemCheck
ItemClick
KeyDown
KeyPress
KeyUp
LostFocus
MouseDown
MouseMove
MouseUp
OleCompleteDrag
OleDragDrop
OleDragOver
OleGiveFeedBack
OleSetData
OleStartDrag
Validate
ImageListe’e Kod ile Resim Eklemek
Private Sub Form_Click()
CommonDialog1.ShowOpen
ImageList1.ListImages.Add , "open", LoadPicture(CommonDialog1.FileName)
End Sub
ImageList’teki İki Resmi Birleştirmek
Private Sub Form_Click()
Set Picture3.Picture = ImageList1.Overlay (index1, index2)
‘ Set Picture3.Picture = ImageList1.Overlay ("key1", "key2")
End Sub
