قرار دادن فونت های ویندوز در یک 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