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

Entry Data di MSHFlexgrid Menggunakan Kontrol TextBox dan ComboBox

dari hari ke hari contoh latihan yang dibuat mahasiswa dalam menampilkan data rata-rata menggunakan listview.. dimana untuk menambahkan data kedalam list tersebut harus menambahkan kontrol TextBox atau ComboBox di luar listview tadi...

terpikir untuk mencoba cara lain untuk input kedalam tabel seperti menggunakan datagrid namun tetep bisa mengenali event onChange keyPress de el el. Akhirnya coba menggunakan MSHFlexgrid digabung dengan textBox dan ComboBox menjadi sebuah control yang memenuhi harapanq. :P

Download file Projectnya.

semoga bermanfaat

Contoh Desain Form

Melihat para mahasiswa berkreasi dengan visual basic, banyak banget kreasi dan desain form yang mereka buat, mulai dari yang minimalis hanya menggunakan warna dan shape standard, ada juga yang memakai berbagai macam ocx sehingga tampilan program yang dibuat makin ciamik, ada juga yang bikin gambar sendiri lalu di masukkan dalam visual basic 6.
Gak mau ketinggalan ikut buat ah … ini neh hasilnya

dengan program photoshop q buat desain formnya lalu kopas alias copy paste ke form visual basic, ditambah sedikit animasi menggunakan timer dan efek fade, yach lumayan deh…
filenya bisa di donwload di sini

Visual Basic 6 : Membuat Crystal Report menggunakan Database Access yang ter Password

Dua hari yang lalu temen saya mas Indra tanya.. "mas tau gak, carane buat report menggunakan Crystal Report menggunakan database Access tapi Accessnya ada Passwordnya??" dalam pikiranku "yo podho ae to... ngono wae kok ra iso...". Setelah ku coba, Ternyata aku juga kagak bisa hahahaha :P . Setelah report terbuat muncul pesan error

"Open Database Session Failed"

Nah ne sore mumpung lab lagi sepi ngenet ahhh.... buka google dan mulai cari artikel sana sini... emang dasar google sakti tau aja yang gue cari.. binggo.... ni dia... solusinya...

ternyata harus nambahin code berikut:

Report.Database.Tables(1).SetSessionInfo "", Chr$(10) + "password_anda"

jadi gambaran lengkapnya code waktu form load adalah seperti berikut ;

Contoh projectnya bisa di ambil di sini

Semoga bermanfaat..