2 adet ComboBox ve 1 Adet Text ekleyelim ..

Kodlarımız :
PHP Code:
'COPYRİGHT Harun Ucar (frmtr) 16.08.2009
'ORNEK:ListIndex, Text

Private Sub Combo1_Click()
'Secilen font adını text kutusuna uygula
Text1.FontName = Combo1.Text
End Sub

Private Sub Combo2_Click()
'Secilen font boyunu text kutusuna uygula
Text1.FontSize = Combo2.Text
End Sub

Private Sub Form_Load()
Dim i
'Ekran fontlarını Combo1 icine ekle
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next
Combo1.ListIndex = 0 'ilk elemanı sec
'8-100 arası rakamları Combo2 icine ekle
For i = 8 To 100
Combo2.AddItem i
Next
Combo2.ListIndex = 0 'İlk elemanı sec
End Sub



Kolay gelsin
__________________