VisualBasic 6.0 Rehberi

VisualBasic 6.0 Rehberi

zrmseoyarismasi.blogspot.com
--
Daha döngüler:

Döngüler! Bu ne gibi bir şey! Biz döngüler yaratildigini!

Aslında söylemek istediğim bu döngü çünkü bok gibi ben böyle bir şey olduğu için

Hasta Smiley o düştü insanlar

İyi başlangıç!

Yaratıyoruz:

1Commandbutton --

Biz başlayan CommandButton üzerinde 2ble tıklayın hces ve aşağıdaki kodu ekleyin

--
Dim Dizesi bir olarak
A = 1 to 20 'herşeyi yapar ama 20 kere Rioja bu arasında K için, önümüzdeki 20 kere K olduğunu!
MsgBox "Firex x20" öğretici
Sonraki 'kapatın Çıkış bu veya için için
--

Peki seni oraya ulaşmak için MsgBox ve envez hoşlanmışsınızdır K olan birçok insan kanı bu
Bu gibi Luisimlauer jajaj K olmaktır uzman programlama de kimseyi xD değil! Şaka yapıyorum ama iyi adamsın
fakat Malo K sen xD!

PD: Şimdi kodun birkaç satır ile 20 archivos.txt oluşturmak!
İlk Command1_butto çift tıklayın NY aşağıdaki kodu ekleyin

--
Private Sub Command1_Click ()
Dim Uzun bir olarak, Dize olarak C, E olarak Tamsayı, e (1 20) String 'Declare Değişkenler ve Dize's gibi
c = Text1.Text Biz Fiyat C Andalusia text1.text
A = 1 için 20 'için döngü tekrar oluşturulur 20 kere
F şey oluşturabilir K f = FreeFile 'kurtuldu türler
Bir & # F 'Aç hafta. Txt uzantısı ve kaydetmek olarak çıktı. "Txt" için
Yazdır # f, c 'her belgede bu K text1.text yerleştirdiğinde oluşturulur
Kapat # f 'belge BU VB IN ÇOK ÖNEMLİDİR kapanır!
Next'Cerramos Döngü
End Sub

"zrmbilisim katkıları ile 2009 seo yarışması"