Pindah Antar Kontrol Menggunakan Enter

Untuk berpindah antar kontrol, default-nya kita menggunakan tombol tab. kita dapat mengubah tombol tersebut menggunakan fungsi SendKeys, cara kerjanya dengan mendeteksi agar ketika tombol Enter ditekan, kita mengirim tombol tab pada program.
Anda dapat mendeteksinya dengan menaruh potongan program tersebut padaKeyPress event procedure dengan memastikan apakah nilai dari KeyAscii parameter = 13

Mengakali Progress Bar Jika Nilai Melewati Batas Maksimal

Kadang kala sewaktu kita menggunakan progress bar, kita mendapatkan pesan kesalahan "Out of Range Error" yang berarti nilai dari progress bar tersebut sudah melewati batas maksimalnya. Ada trik untuk membuat agar pesan tersebut tidak muncul, salah satunya menggunakan fungsi mod pada Visual Basic.

ProgressBar1.Max+1000

Lalu dalam looping kita menggunakan baris perintah dibawah ini :

Membuat TextBox Menjadi Read Only Tanpa Kehilangan Warna

Kadang-kadang dalam situasi tertentu kita ingin membuat textbox menjadi read only. akan tetapi masalahnya, jika kita membuat textbox tersebut menjadi disable, textbox tersebut akan berubah warna menjadi abu-abu, tidak peduli warna apa pun yang anda berikan.

Salah satu cara mengakalinya adalah menggunakan picturebox, kemudian kita memasukkan textbox tersebut ke dalam picturebox-nya. Sehingga apabila kita ingin membuat textbox tersebut menjadi read only, anda cukup membuat picturebox-nya menjadi disable. Begitu pula sebaliknya, jika ingin mengaktifkan kembali (enable), anda buat picturebox menjadi enable. Anda dapat melihat hasilnya, warna apa pun yang kita berikan pada textbox tersebut tetap akan terlihat.

Menampilkan Propertis Kotak Dialog

Untuk menampilkan properties dari suatu kotak dialog dapat dilakukan dengan cara sederhana. seperti cara dibawah ini hanya dengan membuat suatu declarations, menentukan letak, dan nama file yang akan dilihat propertisnya.

Declarations :
Type SHELLEXECUTEINFO
    cbSize As Long
    fMask As Long
    hwnd As Long
    lpverb As String
    lpFile As String
    lpParameters As String
    lpDirectory As String
    nShow As Long
    hInstApp As Long
    lpIDList As Long
    lpClass As String
    hkeyClass As Long
    dwHotKey As Long
    hIcon As Long
    hProcess As Long
End Type

Membuat Form ke Tengah

Jika anda membuat anak form (Form Child) pada MDI Form, defaultnya form tersebut tidak akan ke tengah. untuk membuat form tersebut ke tengah, anda dapat menggunakan kode berikut ini.

Public Sub CenterForm(frm As Form)
    frm.Top = (Screen.Hight - frm.Height) / 2
    frm.Left = (Screen.Width - frm.Width) / 2
End Sub

Mengetahui Program Kita Sedang Berjalan.

Program visual basic mempunyai fungsi yg dinamakan PrevInstance. jika program yg sama dipanggil dua kali, fungsi tersebut akan bernilai True. Jika anda ingin menghentikan program yg dipanggil sampai dua kali, anda dapat menambahkan baris program berikut.

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