VB6 Code - Menjalankan File .mp3

Di bawah ini merupakan contoh menggunakan Microsoft Multimedia Control yang digunakan untuk menjalankan file .mp3 menggunakan VB6.

Option Explicit

Private Sub Command1_Click()
    MMC.FileName = OpenFile
    Me.Caption = MMC.FileName
    MMC.Command = "open"
    MMC.Command = "play"
End Sub

Private Function OpenFile() As String
  With CommonDialog1
        .FileName = ""
        .DialogTitle = "Open Files"
        .InitDir = "C:\My Documents"
        .Filter = "MP3 File (*.MP3)|*.MP3"
        .ShowOpen
        If .FileName = "" Then Exit Function
        MMC.Command = "stop"
        OpenFile = .FileName
    End With
End Function

Private Sub Command2_Click()
    MMC.Command = "stop"
End Sub

READ MORE - VB6 Code - Menjalankan File .mp3

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