Memahami Property .Default dan .Cancel - Tips dan Trik VB6

Jika Anda membuat sebuah form pada aplikasi VB6 kemudian menambahkan 1 CommandButton maka pada property CommandButton akan terdapat property .Defaul = False dan .Cancel = False (nilai defaultnya adalah False). Perbedaan antara CommandButton dengan property .Defaut = False atau True bisa dilihat dari border yang terdapat pada CommandButton, CommandButton dengan set property .Default = True akan memiliki border yang lebih tebal (coba Anda praktikan). Lalu apakah kegunaan dari property .Default dan .Cancel ini?

Property .Default pada CommandButton

Untuk memahaminya dengan baik, buatlah project baru, tempatkan satu CommandButton dan satu TextBox, selanjutnya copy dan pastekan kode di bawah ini:

Option Explicit 

Private Sub Command1_Click() 
    MsgBox "Property .Default" 
End Sub 

Private Sub Form_Load() 
    Command1.Default = True 'mencoba propery .Default 
     Text1.TabIndex = 0 'agar memperoleh focus pada saat pertama kali dijalankan 
End Sub 

Selanjutnya tulislah sesuatu pada Text1 dan tekanlah tombol Enter. Lalu apa yang terjadi?
Sekarang gantilah kode di atas dengan kode di bawah ini:

Option Explicit 
 
Private Sub Command1_Click() 
    MsgBox "Property .Default" 
End Sub 
 
Private Sub Form_Load() 
    'property .Default pada CommandButton = False 
    Text1.TabIndex = 0 'agar memperoleh focus pada saat pertama kali dijalankan 
End Sub 

Ketiklah sesuatu pada Text1 dan tekanlah tombol Enter. Lalu apa yang terjadi? bisa Anda tarik kesimpulan?

Property .Cancel pada CommandButton

Sekarang gantilah kode di atas dengan kode di bawah ini:

Option Explicit 
 
Private Sub Command1_Click() 
    Unload Me 
End Sub 
 
Private Sub Form_Load() 
    Command1.Cancel = True 
    Text1.TabIndex = 0 'agar memperoleh focus pada saat pertama kali dijalankan 
End Sub 

Jalankan, sekarang bukan tombol Enter yang harus Anda tekan tetapi tombol Escape (Esc). Lalu apa yang terjadi? sekarang gantilah kode di atas dengan kode di bawah ini:

Option Explicit 
 
Private Sub Command1_Click() 
     Unload Me 
End Sub 
 
Private Sub Form_Load() 
    'Command1.Cancel = True .Cancel = False 
    Text1.TabIndex = 0 'agar memperoleh focus pada saat pertama kali dijalankan 
End Sub 

Jalankan, kemudian tekanlah tombol Escape (Esc). Apa yang terjadi? bisa Anda tarik kesimpulan?

Catatan:Setting .Defaul = True atau .Cancel = True akan sangat bermanfaat pada saat membuat Form untuk Log-In, Dialog Options, dan lain-lain. Terutama untuk memicu (fire/trigger) event click pada tombol OK dan Cancel tanpa harus menuliskan kode