Beberapa Fungsi pada Textbox

Pada bagian ini kita akan membuat beberapa fungsi yang ada pada textbox.
1.    Regular Expressions
    Kita akan menampilkan bagaimana caranya mendapatkan sebuah kata setelah kata lainnya di dalam textbox. Sebagai contoh kita mempunyai kalimat: “I Love Programming in VB2010”. Kemudian kita akan menampilkan kata setelah kata “Programming”, dan kata yang akan muncul yaitu: “in”. Tambahkan 2 textbox dan 1 button ke dalam form, dan ketikkan code berikut:

Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim text As String = TextBox1.Text

        Dim word As String = "\b" & TextBox2.Text & "\b\s+(\w+)"

        For Each a As Match In Regex.Matches(text, word, RegexOptions.IgnoreCase)

            MsgBox(a.Groups(1).Value, MsgBoxStyle.SystemModal, "Hasil")
        Next
    End Sub
End Class

User akan memasukkan kalimat ke dalam textbox yang besar, dan memasukkan kata yang di cari ke dalam textbox yang kecil kemudian klik tombol Hasil, makan hasilnya:

2.    Control
Fungsi control yang akan kita buat yaitu fungsi control untuk menghapus semua textbox yang sudah ada inputannya. Masih dalam contoh di atas,  tambahkan 1 button lagi, dan masukkan code berikut:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a As Control
        For Each a In Me.Controls
            If TypeOf a Is TextBox Then
                a.Text = Nothing
            End If
        Next

    End Sub

Hasilnya:

Untuk mendapatkan file pdf-nya klik download