Başlangıç > Kodlar > Visual Basic 6 ile txt dosyalarını textboxa aktarmak

Visual Basic 6 ile txt dosyalarını textboxa aktarmak


Formde 1 tane buton eklenir.ctrl+t yapılarak açılan menüden CommonDialog1 seçilir. forma 1 tane textbox eklenir. texttin multiline özelliği turu yapılır.forma1 tane CommonDialog1 eklenir.sonra aşağıdaki komutlar aynen butonun içine eklenir.inşallah beyenirsiniz.

commant1.click' eklenecek kod
MsgBox ("LÜTFEN TXT UZANTILI BİR DOSYA SEÇİNİZ")
CommonDialog1.DialogTitle = "Metin Dosyası Seçiniz"
CommonDialog1.Filter = "*.txt"
CommonDialog1.Action = 1
MsgBox CommonDialog1.FileName

Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, SATIR
metin = metin + Chr(10) + Chr(13) + SATIR
Loop
Close #1
Text1.Text = metin
'Text1 = loadfile(CommonDialog1.FileName)


TD Software


Reklamlar
  1. mehmet
    25/06/2011, 04:46

    süpersin kardeşim kodun harika teşekkürler

    Beğen

  2. 05/02/2012, 18:09

    alt alta nasıl yazdıracaz.

    Beğen

  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: