PDA

View Full Version : لیست فونتها



ice007
جمعه 11 خرداد 1386, 11:16 صبح
سلام
چطور می تونم یک کمبوباکس درست کنم که لیست فونتهای سیستم در اون لود بشه و به richtexbox ها اون فونتها را اختصاص بدم؟

ghafoori
جمعه 11 خرداد 1386, 11:53 صبح
دوست عزیز با این کد


Dim f1 As New Drawing.Text.InstalledFontCollection
Dim f2() As FontFamily
f2 = f1.Families
Dim f3 As FontFamily
For Each f3 In f2
Me.ComboBox1.Items.Add(f3.Name)
Next

eyes_shut_number1
شنبه 12 خرداد 1386, 12:46 عصر
به نظره من بهتره از یه فونت دیالوگ استفاده کنی

Private Sub button1_Click(sender As Object, e As System.EventArgs)
fontDialog1.ShowColor = True
fontDialog1.Font = richtextbox1.Font
fontDialog1.Color = richtextbox1.ForeColor
If fontDialog1.ShowDialog() <> DialogResult.Cancel Then
richtextbox1.Font = fontDialog1.Font
richtextbox1.ForeColor = fontDialog1.Color
End If
End Sub 'button1_Click