Monday, December 21, 2015

Disable Close Bawaan, Modifikasi Tombol Keluar Sendiri

Perhatikan gambar format gif dibawah..!! Fungsi tombol close bawaan tidak dapat difungsikan, namun untuk keluar dari aplikasi pengguna aplikasi diarahkan untuk mengklik tombol keluar yang khusus dibuat. Perintah pada Tombol Keluar juga telah di tambahkan untuk menyimpan perubahan data terakhir saat kita menggunakan aplikasi.

Membuat Tombol dengan perintah keluar dari aplikasi sangat mudah..!! simak baik-baik dan ikuti langkah-langkah yang saya sajikan dalam postingan ini. Perlu sangat diperhatikan bahwa kita masih mengunakan file yang terdapat pada posting "Tombol Simpan VBA Excel"
Langkah-langkah Disable Close Bawaan,  Modifikasi Tombol Keluar Sendiri :
  • Buka File Aplikasi Data dan masuk ke Visual Basic
  • Untuk Disable Close Bawaan UserForm, klik kanan pada UserForm  pilih View Code dan masukkan kode dibawah ini, dan perhatikan gambar dibawah kode
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 If CloseMode = 0 Then
        Cancel = True
        MsgBox "Klik Tombol Keluar..!!!", 16, "Aplikasi Data"
    End If
End Sub
  • Pada UserForm tambahkan 1 buah label dengan Name "LbKeluar" dan Caption "Keluar", pada bagian Image load gambar yang cocok. Bila tidak ada stock Download Icon Turn Off. Perhatikan saja gambar dibawah yeah..!!!
  • Tahap berikutnya masukkan kode dibawah pada "LbKeluar" dengan cara klik kanan selanjutnya pilih View Code. Perhatikan gambar dibawah kode yeah..!!
Private Sub LbKeluar_Click()
ActiveWorkbook.Close savechanges:=True
End Sub
  • Selesai..!!! Mudah bukan..!!! Jalankan Aplikasi dengan menekan F5.!!
Demikian sedikit penjelasan mengenai Disable Close Bawaan dan Memodifikasi Tombol Keluar Aplikasi.


Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon