Kod:
Sub Command2_Click()
msg$ = ""
msg$ = msg$ + "Seçili Öğeler"
For secilen = 0 To List2.ListCount - 1
If List2.Selected(secilen) Then
msg$ = msg$ + Chr$(13) + List2.List(secilen)
End If
Next secilen
MsgBox msg$, 8, "Seçilen"
End Sub
Sub Form_Load()
Dim secilen
'1. Liste Kutusunu ekranda görünen yazı tipleriyle doldur.
For secilen = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(secilen)
Next secilen
End Sub
Ekran Görüntüsü
__________________
Sub Command2_Click()
msg$ = ""
msg$ = msg$ + "Seçili Öğeler"
For secilen = 0 To List2.ListCount - 1
If List2.Selected(secilen) Then
msg$ = msg$ + Chr$(13) + List2.List(secilen)
End If
Next secilen
MsgBox msg$, 8, "Seçilen"
End Sub
Sub Form_Load()
Dim secilen
'1. Liste Kutusunu ekranda görünen yazı tipleriyle doldur.
For secilen = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(secilen)
Next secilen
End Sub
Ekran Görüntüsü
__________________
