Mencegah Aplikasi Dijalankan Dua Kali

Di bawah ini merupakan cara termudah untuk mencegah sebuah aplikasi dijalankan dua kali (double instance). Bagaimana implementasinya dalam Visual Basic 6.0? Simaklah kodenya di bawah ini.

Option Explicit  
  
Private Sub ActivatePrevInstance()  
    AppActivate App.Title  
    SendKeys "+", True  
    End  
End Sub  

Contoh penggunaan procedure di atas:

Private Sub Form_Load()  
    If App.PrevInstance Then ActivatePrevInstance  
End Sub  

READ MORE - Mencegah Aplikasi Dijalankan Dua Kali

Merubah Waktu Double Klik Pada Mouse

Di bawah ini merupakan fungsi untuk merubah waktu double klik pada mouse. Bagaimana implementasinya dalam Visual Basic 6.0? Simaklah kodenya di bawah ini.

Option Explicit 
 
Private Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long 
 
Public Function ChangeDBClkTime(Time As Integer) 
    SetDoubleClickTime (Time) 
End Function 

Contoh penggunaan:

Private Sub Command1_Click() 
    Call ChangeDBClkTime(1000) 
End Sub 

READ MORE - Merubah Waktu Double Klik Pada Mouse

Memeriksa Apakah Mouse Terinstall Pada Komputer Anda

Di bawah ini merupakan fungsi untuk memeriksa apakah mouse terinstall pada komputer Anda. Bagaimana implementasinya dalam Visual Basic 6.0? simaklah kodenya di bawah ini.

Option Explicit 
 
Private Const SM_CMOUSEBUTTONS = 43 
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long 
 
Public Function IsMousePresent() As Boolean 
    IsMousePresent = (GetSystemMetrics(SM_CMOUSEBUTTONS) > 0) 
End Function 

Contoh penggunaan:

Private Sub Command1_Click() 
    MsgBox IsMousePresent 
End Sub    

READ MORE - Memeriksa Apakah Mouse Terinstall Pada Komputer Anda

Memindahkan Seluruh File Dalam Satu Directory

Di bawah ini merupakan fungsi untuk memindahkan seluruh file dari satu directory tertentu. Untuk keperluan ini Anda harus mereferensi pada objek Microsoft Scripting Runtime atau scrun.dll.

Option Explicit 
 
Public Function MoveAllFiles() 
    Dim fso As New FileSystemObject 
    Call fso.MoveFolder(Source, Destination) 
    Set fso = Nothing 
End Function 

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click() 
    Call MoveAllFiles("C:\djview", "D:\djview") 
End Sub 

READ MORE - Memindahkan Seluruh File Dalam Satu Directory