I. IMAGELIST
c thuộ tính ủa đối tượng ComboItem
Lấy giá trị phần tửđang được chọn
Dim icItem as ComboItem Set icItem = ImageCombo1
List: Tham chiếu đến đối tương ImageList trong ImageCombo
Danh sách hình cho
của ImageCombo (Bấm phím phải rồi chọn properties)
Locked: (True, False) Thuộc tính qui định các giá trị xu
đọc
2. Cá
Thuộc tính Ý nghĩa
Text Chuỗi ký tự giá trị xuất hiện trong ImageCombo Index
tử trong danh sách SelImage h (index) tương ứng trong danh sách hình (Imagelist)
Image h hình
d geCombo
Indentation qui định khoảng canh lề của đối tượng so với lề trái của Chỉ số của phần tử trong mảng ComboItems
Key Chuỗi ký tự duy nhất xác định phần ComboItems
Chỉ số của hìn
liên kết với ImageCombo khi phần tửđược chọn Chỉ số của hình (index) tương ứng trong danh sác
Selecte (True/False): Cho biết phần tử có được chọn trong Ima hay không
Số nguyên ImageCombo
3. Các phươ
Add [Index][, key][, Text][, Image][, SelImage][, Indentation] danh sách ComboItems của ImageCombo
ng thức
Thêm một phần tử vào Trong đó:
Index Chỉ số của phần tử trong mảng ComboItems
Key Chuỗi ký tự duy nhất xác định phần tử trong danh sách ComboItems
bo e
SelImage h (index) tương ứng trong danh sách hình (Imagelist)
tion lề trái của
Text Chuỗi ký tự giá trị xuất hiện trong ImageCom
Imag Chỉ số của hình (index) tương ứng trong danh sách hình Chỉ số của hìn
liên kết với ImageCombo khi phần tửđược chọn
Indenta Số nguyên qui định khoảng canh lề của đối tượng so với ImageCombo Ví dụ: Private Sub F ImageCombo1.ComboItems dItem = ImageCombo1.ComboItems(1) ble ImageCombo ndex ại vị trí Index
ần tử trong danh sách ComboItems.
ổ dĩa (và nhãn dĩa) vào ImageCombo. Sử dụng Add để khởi động ImageCombo trong sự kiện Form_Load.
orm_Load() With .Add , , "Brazil", 1, , 1 .Add , , "Italia", 2, , 2 .Add , , "Spain", 3, , 3 .Add , , "Usa", 4, , 4 End With Set ImageCombo1.Selecte End Sub GetFirstVisi
Hàm cho giá trị là tham chiếu đến đối tượng đầu tiên xuất hiện trong
Remove I
Xoá một phần tử t
Clear
Xoá tất cả các ph
Sub LoadDrivesIntoImageCombo(ImgCombo As ImageCombo)
r"
mage = "FloppyDrive" ge = "CDDrive"
y Then
rLabel = drLabel & "[" & _ e & "]"
, dr.DriveLetter, drLabel, drImage, , 2
gCombo.SelectedItem = ImgCombo.ComboItems(Left$(CurDir$, 1)) Dim fso As New Scripting.FileSystemObject, dr As Scripting.Drive
Dim drLabel As String, drImage As String
' ImageCombo phải được liên kết với một danh sách hình đã ' có sẵn biểu tượng các loại ổ dĩa
ImgCombo.ComboItems.Add , , "My Computer", "MyCompute For Each dr In fso.Drives
Select Case dr.DriveType Case Removable: drI Case CDRom: drIma
Case Else: drImage = "HardDrive" End Select
drLabel = dr.DriveLetter & ": " If dr.IsRead If Len(dr.VolumeName) Then d dr.VolumeNam End If ImgCombo.ComboItems.Add Next
' Chọn ổ dĩa hiện tại. Set Im
End Sub