Sonuçlar 1 to 2 of 2

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

  1. #1

    Default 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












  2. #2

Similar Threads

  1. CEvaplar: 1
    Son Mesaj: 24-07-08, 13:49
  2. ListBox – Liste Kutusu-V.Basic-(kaynak1)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 24-07-08, 11:14
  3. MsgBox – Mesaj Kutusu-V.Basic-(kaynak1)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 24-07-08, 09:03
  4. TextBox – Metin Kutusu-V.Basic-(kaynak1)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 15-07-08, 10:32
  5. MSFlexGrid – Gelişmiş Grid(v.basic-kaynak1)
    By Elektronik in forum Visual Basic
    CEvaplar: 0
    Son Mesaj: 04-11-07, 14:31

Tags for this Thread

Bookmarks

Gönderme izinleri

  • Yeni Konu açamazsınız
  • Konulara cevap yazamazsınız.
  • Eklenti gönderemezsiniz.
  • Mesajlarınızı düzenleme izniniz yok.
  •