Sekian lama tidak bikin coding di Visual Basic 6, kangen juga, lagian kepepet harus bikin program hehehehe….
Kebetulan dapat jatah Komputer dengan Operating System Windows XP, pekerjaan cepet beres. Semua Form untuk berpindah antar text box untuk inputan cukup tekan Enter dari pada pakai Tab dengan metode Sendkey.
Begitu pakai Windows 7, kabarnya mulai Windows Vista keluar Error ini nih :
Coba kita tengok dulu gimana sih programnya,
untuk di modu1l.bas :
Sub TekanEnter(Ntekan)
If Ntekan = 13 Then
SendKeys “{TAB}”
Ntekan = 0
End If
End Sub
Sedangkan di programnya atau form :
Private Sub Text1_KeyDown(keycode As Integer, shift As Integer)
TekanEnter (keycode)
End Sub
Di Windows XP maupun sebelumnya, tidak terjadi masalah, normal-normal saja. Tetapi dijalankan di Windows Vista maupun Windows 7, maka akan muncul Error seperti gambar di atas.
Untuk mengatasinya ya ganti perintah Sendkey dengan metode lain. Atau solusi yang sudah saya coba :
1. Buka Control Panel
2. Buka User Accounts
3. Klik Change User Account Control settings, maka muncul gambar berikut, perhatikan posisi Tombol Slidenya
4. Geser Slidenya ke paling bawah
5. Restart Windows, agar memberikan efek.
Setelah restart coba kembali, semoga problem Sendkey teratasi.
Wah mantab gan, sukses… ternyata semudah itu, ga perlu repot-repot nulis coding yang banyak untuk sekedar menjalankan sendkeys..
Thank gan infonya
master’e lak muncul ngene enak…
terima kasih all, semoga membantu