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

ali suparman Thu, 09 Mar 2006 23:38:36 -0800

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

Yahoo! Mail
Bring photos to life! New PhotoMail makes sharing a breeze.

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.

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

Kirim email ke