VB6 Code - Mencari Aplikasi Asosiasi Sebuah File

Di bawah ini merupakan fungsi VB6 untuk mencari aplikasi yang diasosiasikan terhadap sebuah file. Bingung? misalnya kita double klik file berektensi .ini maka aplikasinya notepad.exe, double klik file berektensi .doc maka aplikasinya Microsoft Word, dst.

Option Explicit

Private Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpdirectory As String, ByVal lpResult As String) As Long
Private Const MAX_FILENAME_LEN = 256

Public Function FindExecutable(FileName As String) As String
   Dim iReturn As Integer
   Dim sResults As String
   
   sResults = String(MAX_FILENAME_LEN, 32) & Chr$(0)
   
   iReturn = FindExecutableA(FileName & Chr$(0), vbNullString, sResults)
   
   If iReturn > 32 Then
      FindExecutable = Left$(sResults, InStr(sResults, Chr$(0)) - 1)
   Else
      FindExecutable = ""
   End If
End Function

Contoh penggunaan fungsi untuk mencari assosiasi sebuah file

Private Sub Form_Load()
    MsgBox FindExecutable("c:\boot.ini")
End Sub

READ MORE - VB6 Code - Mencari Aplikasi Asosiasi Sebuah File

VB Code - Mengubah Object LeftToRight Menjadi RighToLeft

Di bawah ini merupakan fungsi VB6 untuk mengubah objek yang tidak memiliki properties LeftToRight agar seolah-olah memiliki properties tersebut. Melalui akal-akalan fungsi API, hal tersebut mungkin untuk dilakukan.

Option Explicit

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 'TreeView1 RightToLeft True

Private Const WS_EX_LAYOUTRTL = 4194304
Private Const GWL_EXSTYLE = -20

Public Sub ctlRightToLeft(ctl As Control)
    SetWindowLong ctl.hWnd, GWL_EXSTYLE, WS_EX_LAYOUTRTL
End Sub

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    ctlRightToLeft TreeView1
    TreeView1.Appearance = cc3D
    TreeView1.BorderStyle = ccFixedSingle
    TreeView1.Refresh
End Sub

Coba Anda ganti objeknya misalnya menggunakan Progress Bar, kemudian lihat apa yang terjadi?

READ MORE - VB Code - Mengubah Object LeftToRight Menjadi RighToLeft

VB6 Code - Download File Menggunakan IE

Di bawah ini merupakan procedure VB6 untuk mendownload sebuah file dengan memanfaatkan file bawaan IE (internet explorer) hdocvw.dll. Bagaimana implementasinya dalam Visual Basic 6.0? bisa Anda simak kodenya di bawah ini:

Option Explicit

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Public Sub DownloadFile(URL As String)
   Dim sDownload As String
   sDownload = StrConv(Text1.Text, vbUnicode)
   Call DoFileDownload(sDownload)
End Sub

Contoh penggunaan procedure VB6 di atas:

Private Sub Command1_Click()
    DownloadFile "http://google.co.id"
End Sub

READ MORE - VB6 Code - Download File Menggunakan IE

VB6 Code - Apakah Aplikasi Masih Dalam IDE VB6

Ini merupakan cara yang cerdik untuk mengetahui apakah sebuah aplikasi masih dalam IDE Visual Basic 6.0 ataukah sudah dicompile. Procedurenya sangat sederhana sekali yakni dengan memanfaatkan handle error.

Public Function IsIDE() As Boolean
On Error GoTo ErrHandler
    Debug.Print 1 / 0
ErrHandler:
    IsIDE = Err
End Function

Contoh penggunaan kode VB6 di atas:

Private Sub Form_Load()
    If IsIDE Then
        MsgBox "Jalankan aplikasi ini dari file .EXE", vbInformation, "Message"
    End If
End Sub

READ MORE - VB6 Code - Apakah Aplikasi Masih Dalam IDE VB6