VB6 Code - Menghapus Spasi Rangkap

Di bawah ini merupakan fungsi VB6 untuk menghapus/menghilangkan spasi yang tidak diperlukan (spasi rangkap).

Option Explicit

Private Function DelJunkSpace(str As String) As String
    Do While (InStr(str, "  ") > 0)
        str = Replace(str, "  ", " ")
    Loop
    DelJunkSpace = str
End Function

Contoh penggunaan fungsi di atas

Private Sub Form_Load()
    Dim str As String
    str = "Asep         Hibban        http://4basic-vb.blogspot.com"
    'menjadi = "Asep Hibban http://4basic-vb.blogspot.com"
    Text1.Text = str
End Sub

READ MORE - VB6 Code - Menghapus Spasi Rangkap

VB6 Code - Menjadikan Input Textbox Kapital

Di bawah ini merupakan kode VB6 untuk menjadikan text yang terdapat pada textbox menjadi kapital. Kode yang ditrigger pada saat penekanan tombol.

Option Explicit

'This one line code makes the contents of text box in capital. As you keep in typing it. Just copy this code keypress 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

READ MORE - VB6 Code - Menjadikan Input Textbox Kapital

VB6 Code - Memperoleh Jumlah Baris TextBox

Di bawah ini merupakan fungsi VB6 untuk memperoleh/mengetahui jumlah jajaran dalam sebuah textboxt. Fungsi tersebut menggunakan fungsi API SendMessageLong.

Option Explicit

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const EM_GETLINECOUNT = &HBA

Public Function GetLineCount(Txt As TextBox)
    Dim lngLineCount As Long
    On Error Resume Next
    lngLineCount = SendMessageLong(Txt.hwnd, EM_GETLINECOUNT, 0&, 0&)
    GetLineCount = Format$(lngLineCount, "##,###")
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    MsgBox GetLineCount(Text1)
End Sub

READ MORE - VB6 Code - Memperoleh Jumlah Baris TextBox

VB6 Code - Menghapus Isi Textbox Dengan Cepat

Di bawah ini merupakan procedure VB6 untuk menghapus isi/text yang terdapat dalam textbox dengan cepat. Kami buat menjadi procedure agar mudah dalam penggunaan dan memiliki sifat mudah digunakan kembali (reusability)

Option Explicit

Public Sub ClearAllTextBoxes(frmClearMe As Form)
    Dim txt As Control
    For Each txt In frmClearMe
        If TypeOf txt Is TextBox Then txt.Text = ""
    Next
End Sub

Contoh penggunaan/pemanggilan procedure di atas

Private Sub Command1_Click()
    ClearAllTextBoxes Me
End Sub

READ MORE - VB6 Code - Menghapus Isi Textbox Dengan Cepat