HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
SaveFileDialog ile dosya kaydetme ve OpenFiledialog ile açma
Bu yazımda SaveFile ve OpenFile dialoglarını Kullanmayı öğreneceğiz. Öncelikle SaveFileDialog ile bir dosya kaydedeceğiz ve sonra bunu OpenFileDialog ile açmayı göreceğiz.
Formumuza bir tane Textbox Koyuyoruz ve altına bir tane button koymamız yeterli. Textboxun multiline özelliğini true yapalım ve genişliğini ve boyutunu biraz buyutelim.
Buttona çift tıklayıp aşağıdaki kodları yazıyoruz.
SaveFileDialog1.Title="SaveFileDialog Öğreniyoruz" Açılacak olan pencerenenin başlığı
SaveFileDialog1.DefaultExt="akt" Kaydedeceğimiz dosyaya otomatik bi uzantı verdik.
SaveFileDialog1.ShowDialog( ) Showdialog metodu ile Bu dialog penceresini goruntuledik
Dim yaz as New StreamWriter(SaveFileDialog1.FileName ) Açılan pencerede Dosya Adına yazdıgımız yerdeki isimle, belirttiğimiz yerde dosyayı oluşturduk.
yaz.Writeline(Textbox1.Text ) Textboxtaki yazılarımızı dosyaya yazıyoruz.
yaz.Close( ) ve dosyamızı kapatıyoruz.
Programı çalıştıralım textboxa yazılar yazalım ve butona tıklayalım. SaveFiledialog penceresi açılacak. Orda dosyayı kaydedeceğimiz yeri belirleyelim ve dosya adını yazıp kaydete basalım. Kaydettiğimiz yere gidip dosyanın varlığına bakalım. Dosyanın uzantısı otomatik .akt olacaktır.
-------------------------------------------------------------------------------------------------------------
Şimdi bu dosyayı açaçak kodları yazalım. Yine bitane textbox ve button koyalım. textboxun multiline özelliğini tru yaptık. He birde OpenFileDialog koycaz : )
Butona çift tıklayalım ve kodları yazalım.
Dim satir as String
OpenFileDialog1.Title="Dosya Açıyoz"
OpenFileDialog1.ShowDialog( )
Dim oku as New StreamReader(OpenFileDialog1.FileName ) Openfilede açmak üzere seçtiğimi dosyayı oku isimli degiskene atadık.
satir=oku.Readline( ) Açtıgımız dosyanını icindekileri okuyup satir isimli degiskene atadık.
Textbox1.Text=satir satir degiskenindekileri textboxa koyduk.
oku.close ve dosyamızı kapattık.
Hadi kolay gelsin
Bu yazımda SaveFile ve OpenFile dialoglarını Kullanmayı öğreneceğiz. Öncelikle SaveFileDialog ile bir dosya kaydedeceğiz ve sonra bunu OpenFileDialog ile açmayı göreceğiz.
Formumuza bir tane Textbox Koyuyoruz ve altına bir tane button koymamız yeterli. Textboxun multiline özelliğini true yapalım ve genişliğini ve boyutunu biraz buyutelim.
Buttona çift tıklayıp aşağıdaki kodları yazıyoruz.
SaveFileDialog1.Title="SaveFileDialog Öğreniyoruz" Açılacak olan pencerenenin başlığı
SaveFileDialog1.DefaultExt="akt" Kaydedeceğimiz dosyaya otomatik bi uzantı verdik.
SaveFileDialog1.ShowDialog( ) Showdialog metodu ile Bu dialog penceresini goruntuledik
Dim yaz as New StreamWriter(SaveFileDialog1.FileName ) Açılan pencerede Dosya Adına yazdıgımız yerdeki isimle, belirttiğimiz yerde dosyayı oluşturduk.
yaz.Writeline(Textbox1.Text ) Textboxtaki yazılarımızı dosyaya yazıyoruz.
yaz.Close( ) ve dosyamızı kapatıyoruz.
Programı çalıştıralım textboxa yazılar yazalım ve butona tıklayalım. SaveFiledialog penceresi açılacak. Orda dosyayı kaydedeceğimiz yeri belirleyelim ve dosya adını yazıp kaydete basalım. Kaydettiğimiz yere gidip dosyanın varlığına bakalım. Dosyanın uzantısı otomatik .akt olacaktır.
-------------------------------------------------------------------------------------------------------------
Şimdi bu dosyayı açaçak kodları yazalım. Yine bitane textbox ve button koyalım. textboxun multiline özelliğini tru yaptık. He birde OpenFileDialog koycaz : )
Butona çift tıklayalım ve kodları yazalım.
Dim satir as String
OpenFileDialog1.Title="Dosya Açıyoz"
OpenFileDialog1.ShowDialog( )
Dim oku as New StreamReader(OpenFileDialog1.FileName ) Openfilede açmak üzere seçtiğimi dosyayı oku isimli degiskene atadık.
satir=oku.Readline( ) Açtıgımız dosyanını icindekileri okuyup satir isimli degiskene atadık.
Textbox1.Text=satir satir degiskenindekileri textboxa koyduk.
oku.close ve dosyamızı kapattık.
Hadi kolay gelsin
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
