Re: [Programmer-VB] menghitung jumlah baris pada textbox

[gunartha.nyoman]

Selamat siang...   Terima kasih atas tanggapannya Dari kedua kode yang ada baik dari Pak Adi, Pak Pur keduanya hasilnya sama. Kalau boleh saya tanya lebih jauh gimana ya caranya agar msgbox yang tapil disamping jumlah baris juga per baris dari nomor 1 sampai data akhir ( rencana nya data ini akan disimpan dalam tabel )       Dim sTxt As String, Pos As Integer, sStart As Integer, nBaris As Integer         sTxt = Text1.Text        'control text1.text adalah multiline     Pos = 1     sStart = 1     nBaris = 1     Do Until Pos = 0         Pos = InStr(sStart, sTxt, vbCrLf)         If Pos > 0 Then               MsgBox "Data ke " & nBaris & "adalah : " '// kira2 kode apa yg mesti ditambah untuk menampilkan data 1 : 10*75*80-2 dan seterusnya sampai terakhir               nBaris = nBaris + 1             sStart = Pos + 1          End If     Loop     MsgBox nBaris  'jumlah baris yang ada     ----- Original Message ----- From: ali suparman To: Programmer-VB@yahoogroups.com Sent: Friday, March 10, 2006 3:37 PM Subject: Re: [Programmer-VB] menghitung jumlah baris pada textbox Saya mencoba dengan kode program ini: Private Sub Command1_Click()     Dim sTxt As String, Pos As Integer, sStart As Integer, nBaris As Integer         sTxt = Text1.Text        'control text1.text adalah multiline     Pos = 1     sStart = 1     nBaris = 1     Do Until Pos = 0         Pos = InStr(sStart, sTxt, vbCrLf)         If Pos > 0 Then             nBaris = nBaris + 1             sStart = Pos + 1         End If     Loop     MsgBox nBaris  'jumlah baris yang ada End Sub Mungkin ada via property-nya, saya belum coba... "gunartha.nyoman" <[EMAIL PROTECTED]> wrote: Selamat siang rekan-rekan....   Mohon bantuannya, Kalau saya ketik data pada texbox multiline seperti di bawah : 10*75*80-2 11*75*80-3 10*80*80-1   Bagaimana cara kita menghitung jumlah baris yang ada. Misalnya pada data ini = 3 baris   Terima kasih   Regards Nyoman Gunartha Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut:     http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke:     [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini:     Yahoo! Messenger: wahanaprogrammer SPONSORED LINKS Programmer Indonesia Basic programming language Computer programming languages Programming languages Java programming language YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.