Wednesday, 11 November 2015

Cara mendapatkan kata per kata pada Richtextbox vb6

berikut adalah cara mendapatkan atau menampilkan kata per kata pada di richtextbox di vb6.
berikut adalah codingan nya.

Private Sub Command1_Click()
Dim arr() As String
Dim bbs() As String
Dim ck As String

    Dim i As Integer
    Dim n As Integer
    arr = Split(RichTextBox1.Text, vbCrLf)

    For i = 0 To UBound(arr)
        cr = arr(i)
        bbs = Split(cr, " ")
        For n = 0 To UBound(bbs)
        MsgBox bbs(n)
        Next
    Next
End Sub

semoga bisa membantu teman teman untuk memudah pencarian dengan kata specific di richtextbox di vb6
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

No comments:

Post a Comment

 

Network

Pesan

Semoga situs ini bermanfaat