Visual Basic 6 Convert Pixel to Twips and Twips to Pixel

Pada visual basic 6, default satuan ukuran sebuath object menggunakan twips dikarenakan hampir di semua komputer ukuran twips sama. Namun jika ada beberapa object anda yang menggunakan satuan pixel, maka berikut ini cara untuk mengkonvert from pixel to twips maupun from twips to pixel

Private Function PixelsToTwips(pixels As Integer)
PixelsToTwips = pixels * Screen.TwipsPerPixelX
End Function

Private Function TwipsToPixels(twips As Integer)
TwipsToPixels = twips / Screen.TwipsPerPixelX
End Function

Semoga bermanfaat..

Menggunakan Command Line Argument dalam Visual Basic 6

Ternyata cukup mudah untuk mendapatkan paramater / Command Line Argument pada saat menjalankan program yang dibuat dengan menggunakn visual basic 6, karena paramater yang kita berikan pada saat kita menjalankan program tersebut tersimpan dalam variable Command$. Jadi contoh cara penggunaannya seperti berikut :

Sub Main()
   Dim a_strArgs() As String
   Dim blnDebug As Boolean
   Dim strFilename As String
   
   Dim i As Integer
   
   a_strArgs = Split(Command$, " ")
   For i = LBound(a_strArgs) To UBound(a_strArgs)
      Select Case LCase(a_strArgs(i))
      Case "-d", "/d"
      ' debug mode
         blnDebug = True
      Case "-f", "/f"
      ' filename specified
         If i = UBound(a_strArgs) Then
            MsgBox "Filename not specified."
         Else
            i = i + 1
         End If
         If Left(a_strArgs(i), 1) = "-" Or Left(a_strArgs(i), 1) = "/" Then
            MsgBox "Invalid filename."
         Else
            strFilename = a_strArgs(i)
         End If
      Case Else
         MsgBox "Invalid argument: " & a_strArgs(i)
      End Select
      
   Next i
   MsgBox "Debug mode: " & blnDebug
   MsgBox "Filename: " & strFilename
End Sub

Semoga cukup membantu,
Sumber : http://davidnakoko.com/url/p33v

Visual Basic 6 Check Windows Service Running Or Not

kadangkala dalam program dengan visual basic 6 kita perlu untuk mengecek beberapa service windows, apakah sudah jalan apa tidak. Nah bagi yang membutuhkan kode untuk mengeceknya inilah function nya


Function IsServiceRunning(sServiceName As String) As Boolean
    Dim objInst As Object, objSet As Object
    IsServiceRunning = False
    Set objSet = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Service")
    For Each objInst In objSet
        If (UCase(sServiceName) = UCase(objInst.Name)) And (UCase(objInst.State) = UCase("Running")) Then
            IsServiceRunning = True
        End If
    Next
End Function

contoh project visual basic 6 bisa didownload di http://davidnakoko.com/url/ryv9

Visual Basic Send Mouse Click to some coordinate

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

Private Sub Command1_Click()
    SetCursorPos 20, 755 'start menu coordinate
    mouse_event MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 500, 515, 0, 0
End Sub

Contoh Project Download Di SINI

aplikasi kecil buat LOCK Folder

Aplikasi ini berguna untuk nge LOCK ato mengunci password… sebenarnya tidak benar-benar mengunci cuma membuat folder tidak bisa di buka dengan cara biasa.. yach cukuplah untuk menghalangi tangan2 jail yang membuka folder sembarangan…
Cara Kerjanya:

1. Klik tombol Select Folder, kemudian pilih Folder mana Yang hendak dikunci
2. Klik Tombol LOCK kemudian anda akan ditanyai password yang nanti akan digunakan waktu proses Unlock,
3. Masukkan Password kemudian Akhiri dengan ENTER, jika keluar pesan lock successful maka berhasil

Folder yang terkunci icon nya akan berubah menjadi icon folder terkunci, folder tidak akan bisa dimasuki.
Untuk membuka kunci caranya :

1. Jalankan lagi program folder lock, pilih folder mana yang hendak dibuka kuncinya
2. Klik tombol Unlock, kemudian anda akan ditanyai password yang dibuat waktu proses lock tadi
3. Masukkan Password kemudian Akhiri dengan Enter, jika keluar pesan proses Unlock berhasil maka folder anda sudah normal kembali…

Download file executable windows di
Folder Lock Beta-2.1.exe
Download Source (visual basic 6) di
Folder Lock.zip

Menggunakan Animated Chart di Visual Basic 6

Di Visual Basic 6 memang sudah di sediakan komponen chart yaitu ms chart, namun bila anda merasa bosan dengan tampilan chart/grafik  yang diberikan oleh ms chart anda bisa mencoba komponen animatedchart berikut ini,,

Download Filenya Di SINI

contoh sudah saya tambahkan untuk komunikasi dengan database…

Open Link di Visual Basic 6

Untuk membuka link sebuah site dari program visual basic kita bisa menggunakan code

'Deklarasi
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'Prosedur memanggil
Private Sub Command1_Click()
ShellExecute hWnd, "open", "http://google.com", vbNullString, vbNullString, Empty
End Sub


contoh project bisa di download di sini