Fungsi Mengubah Object LeftToRigth Menjadi RightToLeft

Di bawah ini merupakan fungsi 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 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 - Fungsi Mengubah Object LeftToRigth Menjadi RightToLeft

Mencari Aplikasi Asosiasi Sebuah File

Di bawah ini merupakan fungsi 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 - Mencari Aplikasi Asosiasi Sebuah File

Apakah Aplikasi Masih Dalam IDE Visual Basic 6.0

Ini merupakan tricky way (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 di atas:

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

READ MORE - Apakah Aplikasi Masih Dalam IDE Visual Basic 6.0

Download File Menggunakan IE

Di bawah ini merupakan procedure 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 di atas:

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

READ MORE - Download File Menggunakan IE