Birazdan yeni web sitemize yönlendirileceksiniz...!!
 ----
Eğer yönlendirilmezseniz "Yeni web sitemize gitmek için buraya tıklayın..."


Visual Basic Dersleri

Not Defteri Yapma

   Bu Ders Hakkında Sorularınız Varsa Lütfen Buraya Tıklayarak Forum Sayfamızda Bu Konunun Başlığı Hakkında Sorunlarınızı Yazınız.


Örnek Bir Çalışma:
Not Defteri - VBDersleri.Tr.Gg

Öncelikle boş bir form açalım. Forma 2 adet button  ve 1 adet RichTextBox ekleyelim. Butonları ve RichTextBox'ı istediğiniz gibi dizebilirsiniz. Veyatta isterseniz yukarıdaki gibide dizebilirsiniz. Sonra kendinize göre dizdikten sonra "Button1" e çift tıklayarak form alanını açın, sonra içerisine alttaki kodları yazın.
        Dim Open As New OpenFileDialog()
        Dim myStreamReader As System.IO.StreamReader
        Open.Filter = "Plain Text Files (*.txt)|*.txt|All files (*.*)|*.*"
        Open.CheckFileExists = True
        Open.Title = "Open"
        Open.ShowDialog(Me)
        Try
            Open.OpenFile()
            myStreamReader = System.IO.File.OpenText(Open.FileName)
            RichTextBox1.Text = myStreamReader.ReadToEnd()
        Catch ex As Exception
            ' Do nothing on Exception
        End Try
Sonra "Button1" e çift tıklayarak karşınıza çıkacak kod penceresinede aşağıdaki kodları yazın.
Dim saveDLG As SaveFileDialog = New SaveFileDialog
saveDLG.Filter = _
"Plain Text Files (*.txt)|*.txt|All files (*.*)|*.*"
If saveDLG.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim w As IO.StreamWriter = New IO.StreamWriter(saveDLG.FileName, False)
w.Write(RichTextBox1.Text)
w.Flush()
w.Close()
w = Nothing
End If
saveDLG.Dispose()
Not Defterimiz bitmiştir.
Şimdi "Button1"in adını "Aç" "Button2"nin adını ise "Kaydet" diye yazınız.
Bitmiştir. Şimdi istediğiniz gibi kullanabilirsiniz.




Bu sayfa hakkında yorum ekle:
İsminiz:
E-mail adresiniz:
Siteniz:
Mesajın:

Bugün 25 ziyaretçikişi burdaydı!
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=