Text Change Case (Uppercase/Lowercase/Propercase)

Fungsi dari ketiga ini (Uppercase/Lowercase/Propercase) ialah untuk merubah huruf besar/kecil dalam sebuah Text yang di Blok.

Uppercase = Huruf Kapital
Lowercase = Huruf Kecil Semua
Propercase = Huruf Awal Kapital



Langkah-langkahnya ialah :

1. Tambahkan 3 CommandButton
2. Tambahkan 1 RichTextBox dengan pengaturan AutoVerbMenu =True

Masukan kode berikut :

    Private Sub Command1_Click()
    Clipboard.SetText Me.RichTextBox1.SelText
    Me.RichTextBox1.SelText = LCase(Clipboard.GetText)
    Clipboard.Clear
    End Sub

    Private Sub Command2_Click()
    Clipboard.SetText Me.RichTextBox1.SelText
    Me.RichTextBox1.SelText = StrConv(Clipboard.GetText, vbProperCase)
    Clipboard.Clear
    End Sub

    Private Sub Command3_Click()
    Clipboard.SetText Me.RichTextBox1.SelText
    Me.RichTextBox1.SelText = UCase(Clipboard.GetText)
    Clipboard.Clear
    End Sub

 Cara Kerjanya, blok bagian text yang akan dirubah kemudian klik Commanbutton1,2,3 dan lihat hasilnya.