RichTextBox - Gelişmiş Metin Kutusu(kaynak1)(v.basic)

RichTextBox - Gelişmiş Metin Kutusu



İçerisinde rengi, yazıtipi, büyüklüğü yada kalınlığı farklı karakterleri bir arada gösterebilen text kutusu.



Private Sub Command1_Click() ‘ Font

CommonDialog1.Flags = cdlCFScreenFonts

CommonDialog1.ShowFont

RichTextBox1.SelFontName = CommonDialog1.FontName

RichTextBox1.SelBold = CommonDialog1.FontBold

RichTextBox1.SelFontSize = CommonDialog1.FontSize

RichTextBox1.SelItalic = CommonDialog1.FontItalic

RichTextBox1.SelStrikeThru = CommonDialog1.FontStrikethru

RichTextBox1.SelUnderline = CommonDialog1.FontUnderline

End Sub



Private Sub Command4_Click() ‘ Kayıt

CommonDialog1.DialogTitle = "Kaydet"

CommonDialog1.Filter = "Rich Text Format|*.RTF|"

CommonDialog1.FileName = "adsız"

CommonDialog1.ShowSave

RichTextBox1.SaveFile CommonDialog1.FileName

End Sub



Private Sub Command1_Click () ‘ Kayıt

Open "c:\Deneme.rtf" For Output As #1

Print #1, RichTextBox1.TextRTF

Close 1

End Sub



Private Sub Command5_Click() ‘Dosya açmak

CommonDialog1.DialogTitle = "RTF Dosya Aç"

CommonDialog1.Filter = "Rich Text Format|*.RTF|"

CommonDialog1.FileName = ""

CommonDialog1.ShowOpen

RichTextBox1.LoadFile CommonDialog1.FileName

End Sub



Private Sub Command6_Click() ‘ Yazdırmak

CommonDialog1.DialogTitle = "Yazdır"

CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums

If RichTextBox1.SelLength = 0 Then

CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages

Else

CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection

End If

CommonDialog1.Copies = 1

CommonDialog1.ShowPrinter

RichTextBox1.SelPrint CommonDialog1.hDC

End Sub







Private Sub Command1_Click() ‘ Arama

Dim Ara_Yer As Integer

Dim Ara_Satır As Integer

Ara_Yer = RichTextBox1.Find(Text1.Text, , , rtfWholeWord)

If Ara_Yer <> -1 Then

Ara_Satır = RichTextBox1.GetLineFromChar(Ara_Yer)

MsgBox "Bulundu : " & CStr(Ara_Satır)

Else

MsgBox "Bulunamadı"

End If

End Sub


Private Sub Command1_Click() ‘ Resim Ekleme
CommonDialog1.DialogTitle = "Resim Ekle"
CommonDialog1.Filter = "BitMap Picture|*.BMP|"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
Clipboard.Clear
Clipboard.SetData Image1.Picture
RichTextBox1.SetFocus
SendKeys "+{Insert}"

End Sub


Private Sub Command3_Click() ‘ Font Rengi

CommonDialog1.Flags = cdlCCRGBInit

CommonDialog1.ShowColor

RichTextBox1.SelColor = CommonDialog1.Color

End Sub