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
Ö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