VB6 Code - Menjalankan Aplikasi Pada Start Up

Di bawah ini merupakan cara yang mudah untuk menjalankan aplikasi pada saat startup menggunakan kode VB6. Pada dasarnya fungsi startup, hanyalah fungsi baca dan tulis ke dalam registy. Kodenya pendek, karena ia meminjam ActiveX Windows Script Host Object Model atau yang lebih dikenal dengan nama WSHOM.OCX.

Option Explicit

Dim oWSHShell As New WshShell

Private Function RegWrite(sKey As String, sFilepath As String)
    oWSHShell.RegWrite sKey, sFilepath
End Function

Private Function RegDelete(sKey As String)
    oWSHShell.RegDelete sKey
End Function

Contoh penggunaan fungsi di atas yang digunakan untuk menulis ke dalam registry

Private Sub Command1_Click()
    RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & _
    App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub

Contoh penggunaan fungsi di atas yang digunakan untuk menghapus entry yang terdapat dalam registry

Private Sub Command2_Click()
    RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName
End Sub

READ MORE - VB6 Code - Menjalankan Aplikasi Pada Start Up

VB6 Code - Animasi Ketikan Tanpa Flicker

Fungsi VB6 di bawah ini digunakan untuk animasi yang menyerupai text yang sedang di ketik. Animasinya sangat halus nyaris tanpa kedipan.

Option Explicit

Dim sAnimation As String

Private Sub Form_Load()
    sAnimation = "Asep Hibban : http://4basic-vb.blogspot.com"
End Sub

Private Sub Timer1_Timer()
    Dim sToAnimate As String
    Static iAnimation As Integer
    Dim c As Integer
    iAnimation = iAnimation + 1
    
    sToAnimate = Mid(sAnimation, 1, iAnimation)
    With Picture1
        .Cls
        .CurrentX = 25
        .CurrentY = 100
        Picture1.Print sToAnimate
    End With
    If iAnimation >= Len(sAnimation) Then
      iAnimation = 0
    End If
End Sub

READ MORE - VB6 Code - Animasi Ketikan Tanpa Flicker

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