Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » RichTetbox ve Özelliği
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Fare işaretçilerinin kullanımı

Yazar: B00MER

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 11044
Yayın Tar:23.02.2009
Yazar : LoneLy
Hit :1460

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et


Richtextbox'da Yazı Rengini değiştirme ;

CommonDialog1.flags = cdlCCRGBInit
CommonDialog1.ShowColor
RichTextBox1.SelColor = CommonDialog1.Color


Richtextbox'da Yazı Tipini değiştirme ;

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

Richtextbox'da Kes İşlemi ;

On Error GoTo hata:
Clipboard.SetText Screen.ActiveControl.SelText
Screen.ActiveControl.SelText = ""
hata:

Richtextbox'da Kopyala İşlemi ;

On Error GoTo hata:
Clipboard.SetText Screen.ActiveControl.SelText
hata:

Richtextbox'da Yapıştır İşlemi ;

On Error GoTo hata:
Screen.ActiveControl.SelText = Clipboard.GetText()
hata:

Richtextbox'da Ara İşlemi ;

Dim ara, nerede
ara = InputBox("Lütfen Aranacak Metni Giriniz:", "EndocamSX - Metin Arama (Rapor)")
nerede = InStr(RichTextBox1.Text, ara)
If nerede Then
RichTextBox1.SelStart = nerede - 1
RichTextBox1.SelLength = Len(ara) '
Else
uyari = MsgBox("Metnini İçeren Hiçbir Sözcük Bulunamadı!", vbInformation + vbOKOnly, "Bilgilendirme Servisi!")
End If

Richtextbox'a Resim Ekleme ;

Dim sFile As String

Command1.Enabled = False
Clipboard.Clear
Image1.Picture = Nothing
With CommonDialog1
.DialogTitle = "Open Picture"
.CancelError = False
'ToDo: set the flags and attributes of the common dialog control
.Filter = "Resim Dosyaları (*.bmp;*.jpg;*.jpeg;*.gif;*.wmf;*.emf)|*.bmp;*.jpg;*.jpeg;*.gif;*.wmf;*.emf"
.FilterIndex = 0
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName

End With


Image1.Picture = LoadPicture(sFile)
Clipboard.SetData Image1.Picture

SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0
Clipboard.Clear
Image1.Picture = Nothing

Command1.Enabled = True

Richtextbox içeriğini Word Open Office aktarma

Open "c:\test.odt" For Output As #1
Print #1, RichTextBox1.TextRTF
Close 1

Open "c:\test.doc" For Output As #1
Print #1, RichTextBox1.TextRTF
Close 1


saygılarla..




Yorumlar, eklemeler ve düşünceler
        paylasımın için teşekkürler

   enderlion, 24.02.2009 08:12
   teşekkürler

   beyazgolge, 03.06.2011 14:06
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin