Pindah ke baris berikutnya pake tomb Enter/Return nggak mas ?
Kalo iya mungkin bisa pake rutin ini :
jmlbaris% = 0 'variabel tempat jumlah baris disimpan
jmlkarakter% = Len(text1.Text)
For i% = 1 To jmlkarakter%
karakter$ = Mid(text1.Text, i%, 1)
If karakter$ = Chr$(13) 'Buat mendeteksi tomb Enter
jmlbaris% = jmlbaris% + 1
End If
Next i%
Saya jg masih pemula, so CMIIW ;)
-Ardhi-
VB Beginner
--- In [email protected], "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
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
