CommonDialogBox (farklı kaydet,renk kutusu, fontlar, yazıcı)

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
mayhemious
Kilobyte4
Kilobyte4
Mesajlar: 711
Kayıt: 17 Kas 2007, 13:14
cinsiyet: Erkek

CommonDialogBox (farklı kaydet,renk kutusu, fontlar, yazıcı)

Mesaj gönderen mayhemious » 22 Nis 2008, 15:40

İlk önce formumuza commondialog kontrolü ekliyoruz

Resim

Resim

FARKLI KAYDET (richtextbox örnegi)

Resim

‘Formunuza componentslerden Rich textbox

‘kontrolünü ,commondiologbox kontrolünü

‘ve 1 adet buton ekleyin



‘Asagıdaki kodları formunuza kopyalayın



Private Sub Command1_Click()

CommonDialog1.DialogTitle = "Kaydet"

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

CommonDialog1.FileName = "adsız"

CommonDialog1.ShowSave

RichTextBox1.SaveFile CommonDialog1.FileName

End Sub



Kullanıcı avatarı
mayhemious
Kilobyte4
Kilobyte4
Mesajlar: 711
Kayıt: 17 Kas 2007, 13:14
cinsiyet: Erkek

Mesaj gönderen mayhemious » 22 Nis 2008, 15:41

YAZI RENGİ (richtext devam)

Resim

‘ve 1 adet buton ekleyin



‘Asagıdaki kodları formunuza kopyalayın



Private Sub Command1_Click()

CommonDialog1.Flags = cdlCCRGBInit

CommonDialog1.ShowColor

RichTextBox1.SelColor = CommonDialog1.Color 'mause ile seçilen yazı rengi degisir

End Sub

Kullanıcı avatarı
mayhemious
Kilobyte4
Kilobyte4
Mesajlar: 711
Kayıt: 17 Kas 2007, 13:14
cinsiyet: Erkek

Mesaj gönderen mayhemious » 22 Nis 2008, 15:41

FONT (rtbox deavm)

Resim

‘ve 1 adet buton ekleyin



‘Asagıdaki kodları formunuza kopyalayın



Private Sub Command1_Click()

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

Kullanıcı avatarı
mayhemious
Kilobyte4
Kilobyte4
Mesajlar: 711
Kayıt: 17 Kas 2007, 13:14
cinsiyet: Erkek

Mesaj gönderen mayhemious » 22 Nis 2008, 15:41

YAZDIR(rtbox devam)
Resim
‘ve 1 adet buton ekleyin



‘Asagıdaki kodları formunuza kopyalayın



Private Sub Command1_Click()

CommonDialog1.CancelError = True

On Error GoTo hata

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

hata:

Exit Sub

End Sub

Kullanıcı avatarı
mayhemious
Kilobyte4
Kilobyte4
Mesajlar: 711
Kayıt: 17 Kas 2007, 13:14
cinsiyet: Erkek

Mesaj gönderen mayhemious » 22 Nis 2008, 15:42

DOSYA AÇ (RTBox devam)

Resim

‘Asagıdaki kodları formunuza kopyalayın



Private Sub Command1_Click()

CommonDialog1.DialogTitle = "RTF Dosya Aç"

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

CommonDialog1.FileName = ""

CommonDialog1.ShowOpen

RichTextBox1.LoadFile CommonDialog1.FileName

End Sub

Kullanıcı avatarı
mayhemious
Kilobyte4
Kilobyte4
Mesajlar: 711
Kayıt: 17 Kas 2007, 13:14
cinsiyet: Erkek

Mesaj gönderen mayhemious » 22 Nis 2008, 15:42

HELP Dosyası açma

Resim

‘Asagıdaki kodları formunuza kopyalayın



Private Sub Command1_Click()

CommonDialog1.HelpCommand = cdlHelpForceFile

'Asagıdaki kısma help dosyanızın yolunu yazın

CommonDialog1.HelpFile = "c:\Windows\NotePad.hlp"

CommonDialog1.ShowHelp


End Sub

Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28753
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Mesaj gönderen velociraptor » 22 Nis 2008, 17:56

eline saglik myhem
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free

Cevapla