Vb Kod Yazı Tipi Değiştirme Butonu

MnyTirith: Admin; Doğum tarihi: 20/06/90

Post n°1

Vb Kod Yazı Tipi Değiştirme Butonu

Mesaj tarafından MnyTirith Bir Cuma Mart 12, 2010 10:49 am

Arkadaşlar eğer oluşturduğunuz textboxlarda font seçimi yapmak istiyorsanız aşağıdakileri yapmak yeterlidir.
Öncelikle Formunuza componentslerden (Ctrl+T) Microsoft Common dialog Control 6.0 ekleyin.Daha sonra Bir tane textbox ve bir de buton ekleyin.

Form Kodları
**********************

Private Sub Command1_Click()

CommonDialog1.CancelError = True

On Error GoTo hata

CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects

CommonDialog1.ShowFont

Text1.Font.Name = CommonDialog1.FontName

Text1.Font.Size = CommonDialog1.FontSize

Text1.Font.Bold = CommonDialog1.FontBold

Text1.Font.Italic = CommonDialog1.FontItalic

Text1.Font.Underline = CommonDialog1.FontUnderline

Text1.FontStrikethru = CommonDialog1.FontStrikethru

Text1.ForeColor = CommonDialog1.Color

hata:

End Sub