immortal.İST
01-10-06, 00:35
richtextbox hakkında bilinen ne warsa lazım...
bi çok site gezdim birçok forum sitesine üye oldum ama visual basicle ilgili bişey bulama dım işallah burda bulrum...
şimdiden herkeze teşekkürler...
İç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