Scroll Mouse Control

Apakah pernah merasa kesulitan saat mencoba menggulir melalui banyak data dalam form VBA (Visual Basic for Applications) dan mendapati bahwa scroll mouse tidak berfungsi? tenang saja, kamu tidak sendirian.

Saat bekerja dengan form yang memerlukan navigasi intensif seperti Combobox ataupun Listbox. Bayangkan betapa lebih mudahnya jika bisa menggunakan scroll mouse untuk bergerak melalui daftar panjang atau komponen form lainnya.

Artikel ini akan membahas cara mengaktifkan scroll mouse pada Control VBA, memberikan solusi praktis untuk meningkatkan kenyamanan dan efisiensi dalam penggunaan aplikasi VBA Anda.

Walaupun VBA tidak memiliki dukungan bawaan untuk scroll mouse, jangan khawatir. Dengan menggunakan beberapa trik dan kode tambahan, kita dapat mengatasi keterbatasan ini dan mengaktifkan fitur scroll mouse pada kontrol VBA Anda.

Dalam artikel ini, kami akan membahas langkah-langkah detail, mulai dari menggunakan API Windows hingga mengimplementasikan class module khusus untuk menangani pesan scroll dari mouse.

Langkah untuk mengakifkan Scroll Mouse Pada Control Userform dilakukan dengan berapa langkah

  1. Menggunakan API Windows: Untuk mengaktifkan scroll mouse pada kontrol VBA, kita dapat menggunakan fungsi API Windows yang memungkinkan kontrol menangkap Hook scroll dari mouse.
  2. Menggunakan Class Module untuk Scroll Handling: Buat sebuah class module untuk menangani pesan scroll dari mouse.
  3. Mengimplementasikan Scroll Handling dalam Form VBA: Integrasikan class module yang telah dibuat ke dalam form VBA.

Langkah diatas jika ingin mengaktikan scroll Mouse secara mandiri. Untuk memudahkan, disini sudah saya siapkan Windows API Scroll Mouse dalam Module dan Class Module, Sehingga tidak perlu membuat dari awal, tapi bisa langsung digunakan.

Sebagai contoh, disini sudah saya siapkan Userform Demo untuk menggunakan Scroll Mouse pada Control di Userform

Bisa dilihat pada Userform diatas sudah ada beberapa control yang menggunakan ScrollBar diantaranya ada Textbox, Combobox, Listbox dan juga Frame.

Tetapi ScrollBar menggunakan Scroll Mouse masih belum bekerja.

Agar Scroll Mouse Bisa bekerja pada Userform diatas, Pertama-tama Import 2 File dibawah ini kedalam Visual Basic Editor

File Scroll Mouse ini sudah support di 32bit ataupun 64Bit karena sudah menggunakan Compiler Directive

Jika kedua file diatas sudah diIImport, untuk mengaktifkannya, tambahkan pada Userform Initialize script berikut ini :

Private Sub UserForm_Initialize()
EnableMouseScroll Me
End Sub

dan juga untuk mematikan kembali Hook Scroll Mouse nya tambahkan script berikut ini kedalam Userform Terminate

Private Sub UserForm_Terminate()
DisableMouseScroll Me
End Sub

Maka sekarang Scroll Mouse sudah bisa dijalankan pada semua Control yang ada pada Userform Tersebut.

Materi ini juga bisa di tonton melalui Youtube dibawah ini

Leave a Reply

Your email address will not be published. Required fields are marked *