pcworld online logo

VB 4.0 ve RTF metin kutusu kontrolünün kullanımı

resim resim Eski Visual Basic’ler de bulunan metin kutusunun aksine VB 4.0 yetenekli bir kontrol olan Rich Text Box ile birlikte gelmiştir. Rich Text Box Windows’un salt metin formatını tanımasının yanında içinde renk, yazıtipi, büyüklük, kalınlık yada incelik bulunduran "Zengin Metin Formatı"nı da tanıyabilir. Bu format Windows altında çalışan hemen hemen tüm metin editörleri tarafından tanınabilmektedir. Format, bu zengin özelliklerinin aksine kaydedildiğinde "ikili" dosya biçimine girmez. İşte size VB 4.0’ın bu kontrolünü kullanan örnek bir program. Ama bu sefer kontrol kutusundan "Metin kutusu" değil "Zengin metin kutusu" kontrolünü seçin. Programınız RTF formatındaki dosyaları açabilir ve sizin yazdığınız RTF formatındaki dosyaları kaydedebilir. Kodların kısalığını görünce hayrete düşeceksiniz. 
Private Sub Command1_Click()	'kalın
    RichTextBox1.SelBold = True
End Sub

Private Sub Command2_Click()	'italik
    RichTextBox1.SelItalic = True
End Sub

Private Sub Command3_Click()	'renk
    CommonDialog1.Action = 3
    RichTextBox1.SelColor = CommonDialog1.Color
End Sub

Private Sub Command4_Click()	'kaydet
    CommonDialog1.ShowSave
    RichTextBox1.SaveFile (CommonDialog1.filename)
End Sub

Private Sub Command5_Click()	' aç
    CommonDialog1.Filter = "Rich Text Format Dosyaları|*.rtf"
    CommonDialog1.ShowOpen
    RichTextBox1.LoadFile CommonDialog1.filename, rtfRTF
End Sub

Private Sub Command6_Click()	'çıkış
End
End Sub