Not Defteri Yapımı

    Not defteri yapılırken kullanacağımız Toollar;

Open File Dialog
Save File Dialog
Font Dialog
Color Dialog
Folderbrowser Dialog

Open File Dialog

OFD,bildiğimiz AÇ (Open) penceresidir. OFD 'da dosya yükleme işlemleri yapılır.


Save File Dialog
SFD, Kaydet dialog penceresidir. Dosyayı kaydetme işlemi yapılır.


                                                   Not Defteri Yapımı

New (Yeni Dosya Açma İşlemi)

Yeni dosya açmak aslında olan dosyayı temizlemek anlamına da gelir. Bunu düşünerek TextBox1'i temizleyerek Yeni Dosya açmış oluruz.

TextBox1.Text=""

Open(Aç)

OpenFileDialog1.Title = "Aç" 'Açılan dialog penceresinin başlığını değiştirdik.
        OpenFileDialog1.Filter = "Metin Dosyaları(*.txt)|*.txt|Resim Dosyaları(*.jpg)|*.jpg|Tüm Dosyalar(*.*)|*.*" 'Dialog penceresinde txt,jpg,tüm dosyalar diye uzantılar oluşturduk.
        OpenFileDialog1.ShowDialog()' Dialog penceresini açtık.
        OpenFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop ' Ofd penceresini açtığımız zaman ilk olarak Desktop karşımıza gelmesini sağlıyoruz.
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 'Eğer Ofd'dan dönen gerek OK' ise 
            TextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName) 'Açılan dosyayı TextBox1'e yazmasını sağladık 
        End If

Save File Dialog(Kaydet)
Save File Dialog,Open File Dialog'un özelliklerini taşımaktadır.

SaveFileDialog1.Title = "Kaydet"
        SaveFileDialog1.Filter = "Metin Dosyaları(*.txt)|*.txt|Resim Dosyaları(*.jpg)|*.jpg|Tüm Dosyalar(*.*)|*.*"
        SaveFileDialog1.ShowDialog()
        SaveFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False)' Svf'den dönen değer OK' ise  TextBox1'de yazılan veriyi kaydeder. 
        End If

Exit
Çıkış için ;
End yazmak yeterlidir.

Edit Menüsü


Undo(Geri Al)
TextBox1.Undo()

Redo(İleri Al)
TextBox1.ClearUndo()

Cut(Kes)
TextBox1.Cut()

Copy(Kopyala)
TextBox1.Copy()

Paste(Paste)
TextBox1.Paste()

Select All(Tümünü Seç)
TextBox1.SelectAll()

Özel Olarak 
Seçileni Sil
TextBox1.SelectedText=""

Sözcük Kaydır
If TextBox1.WordWarp=True
    TextBox1.WordWrap=false
Else
    If TextBox1.WordWrap=True

Not defterinde yazı rengini değiştiremiyoruz fakat biz yaparsak olur :)


Yazı Tipi
 If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Font = FontDialog1.Font
            TextBox1.ForeColor = FontDialog1.Color
        End If

Yazı Rengi
  If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.ForeColor = ColorDialog1.Color
        End If

Not defterimizi daha sonra tekrar geliştirmek üzere buluşmak dileğiyle =)