• Forum vBulletin altyapısından Xenforo altyapısına geçirildi, bu sebeple eski şifreleriniz ile foruma giriş yapamayacaksınız, parolamı unuttum adımından mailiniz ile şifre sıfırlayarak giriş yapabilirsiniz.

    Üyeliklerinde geçerli bir mail adresi olmadığı için sıfırlama yapamayacak kullanıcılar forum kullanıcı adlarını ve yeni şifrelerini yazarak info@maxigame.org adresine şifre sıfırlamak istediklerine dair bir mail göndersinler şifrelerini sıfırlayıp mail adreslerini güncelleyeceğiz. Şifreniz sıfırlandıktan sonra foruma giriş yapıp tekrar istediğiniz gibi değiştirebilirsiniz.

Txt Olarak Kaydetme (VB6)

  • Konuyu başlatan Konuyu başlatan Fumetsu
  • Başlangıç tarihi Başlangıç tarihi

Fumetsu

Aileden
Aktiflik
K.Tarihi
11 May 2013
Mesajlar
369
Puanı
126
Bu konumda sizlere textbox’a girilen metni nasıl .txt .bat gibi uzantılar ile kaydetmeyi anlatacağım.
2 Adet yolumuz var.Biri CommonDialog adındaki Component ile diğer yolumuz ile direk Print işlemi ile.

İlk olarak CommonDialog ile textbox’u kaydetmeyi anlatacağım.

1- CommonDialog İle TextBox’u .txt Olarak Kaydetme :

Tertemiz bir form açıyoruz arkadaşlar.
Formumuza 1 Adet Buton ( name özelliği Command1 ) , 1 Adet Textbox ( name özelliği Text1 ) ve CommonDialog ( name özelliği CommonDialog1 ) nesnesi ekliyoruz ekliyoruz.
1.1 CommonDialog Nasıl Eklenir ?
CommonDialog toolbox’ta doğrudan yer almaz ama biz onu ekleyebiliriz.
CTRL + T tuşlarına basarak veya Project > Components bölümüne tıklıyoruz.Resimde işaretlediğim bölümü işaretleyip Tamam’a basıyoruz.

eXqOko.jpg


Daha sonra ise Toolbox ‘tan formumuza ekliyoruz.

Ardından formun boş alanına çift tıklayıp bütün kodları siliyoruz ve vereceğim kodları yapıştırıyoruz.

Private Sub Command1_Click()
CommonDialog1.CancelError = True

On Error GoTo Son ‘ hata olursa Son’a git.
CommonDialog1.DialogTitle = “Kaydet VbasicTürkiye” ‘ commondialog başlığı değişebilir.
CommonDialog1.Filter = “Metin Belgesi(*.txt)|*.txt” ‘ filter ı değişebilir.
CommonDialog1.FileName = “txtisim” ‘dosya adı değişebilir
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Append As #1
Print #1, Text1.Text ‘Text1′deki kodu .txt olarak yazar değişebilir.
Close #1
MsgBox “Kayıt Tamamlanmıştır”, vbInformation, “Olumlu” ‘ kayıt tamamlanınca mesajımız
Son: ‘ hata olursa kod sonuna gider.
End Sub

Klrn1l.jpg

Kodumuz bu şekildedir , uzatmadan 2. yolumuza geçelim.

2 – Print İşlemi İle Textbox’ı .txt Olarak Kaydetme :

Bu bölüm kolaydır sadece 2 nesne ekleyerek textbox’ı tek tuşla kaydedeceğiz.

Formumuza 1 Adet Buton ( name özelliği Command1 ) , 1 Adet Textbox ( name özelliği Text1 ) nesnesi ekliyoruz.

Private Sub Command1_Click()
Open “C:dosyaadı.txt” For Output As #1 ‘dosyaadı değişebilir
Print #1, Text1.Text; ‘Text1′i kaydeder değişebilir.
Close #1
End Sub

2 yolumuzun anlatımının sonuna geldik, yardımcı olabildiysem ne mutlu bana.İyi programlamalar dilerim.


 
Geri
Üst