DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Test()
'/// MyColl adında bir koleksiyon tanımlıyoruz.....
Dim MyColl As New Collection
Dim i As Integer
'/// Bu kolleksiyonun elemanlarına değer tayin ediyoruz....
For i = 1 To 5
MyColl.Add "Data - " & i
Next
'/// Koleksiyonun tamamını MsgBox ile görüntülüyoruz....
For i = 1 To MyColl.Count
MyMsg = MyMsg & "Eleman-" & i & ": " & MyColl(i) & vbCrLf
Next
MsgBox MyMsg
'/// Koleksiyonun 2nci elemanını siliyoruz....
MyColl.Remove 2
'/// Koleksiyonun kalanını görüntülüyoruz.....
MyMsg = Empty
For i = 1 To MyColl.Count
MyMsg = MyMsg & "Eleman-" & i & ": " & MyColl(i) & vbCrLf
Next
MsgBox MyMsg
End Sub