Jika kalian pernah kesulitan saat akan memisah text yang berada pada satu textbox dan ingin di jadiin beberapa textbox di VB 6 [ Visual Basic 6 ] simak langkah ini :
1. Pertama Buka VB 6 .
2. Selanjutnya klik Standar EXE lalu klick open , ss bisa di lihat :
3. Kemudian buat [ hanya contoh ] :
Textbox : 4 buah
Command Button : 1 buah
4. Selanjutnya klik 2 kali pada command button :
masukkan code
Private Sub Command1_Click()
Dim text() As String
text = Split(Text1.text, "/")
Text2.text = text(0)
Text3.text = text(1)
Text4.text = text(2)
End Sub
Sedikit penjelasan pada : Dim text() as string --> kata text bisa diganti sesuai keinginan
Text = split --> kata text sesuai dengan yang ada pada dim
text = Split(Text1.text, "/") --> charakter "/" bisa di ganti dengan pemisah contoh text = Split(Text1.text, ";") --> maka pemisahnya adalah ; (titik koma)
5. Coba jalankan program bisa pakai F5
Sekian tutorial Dari Saya mohon maaf atas kekuranganya karena saya di sini juga sedang belajar :)
link Fb : http://www.facebook.com/rohmathistianto
0 Komentar