قرار دادن فونت های ویندوز در یک combobox

[mohamad2007]

چگونه می توان کلیه فونتهای ویندوز را در یک combobox قرار داد؟

[ghafoori]

با این کد دوست عزیز

Dim font_collect As New Drawing.Text.InstalledFontCollection

For Each f As FontFamily In font_collect.Families
Me.ComboBox1.Items.Add(f.Name)
Next

[ساناز]

سلام. می خوام توی textBox ها در vb.net به صورت پیش فرض فارسی تایپ بشه . چی کار کنم؟ لطفا یکی منو دریابد.

[arsalansalar]

این کد را در ابتدای برنامه بنویس


Public Sub Farsi(ByVal cl As String)
Dim lang As System.Windows.Forms.InputLanguage
For Each lang In System.Windows.Forms.InputLanguage.InstalledInputL anguages
If (lang.Culture.TwoLetterISOLanguageName = cl) Then
System.Windows.Forms.Application.CurrentCulture = lang.Culture
System.Windows.Forms.Application.CurrentInputLangu age = lang
End If
Next
End Sub

سپس این کد را اضافه کن:


PrivateSub t7_GotFocus(ByVal sender AsObject, ByVal e As System.EventArgs) Handles t7.GotFocus
Farsi("fa")
Clipboard.Clear()
EndSub