Untuk contoh penggunaan calendar,lakukan langkah-langkah berikut ini:
a. Buat sebuah proyek baru.
b. Tambahkan sebuah calendar dan sebuah text box pada form seperti gambar dibawah ini
c. Untuk Kode programnya sebagai berikut:
Private sub calendar1_click()
Text1.text=calendar.value
End sub
d. Jalankan program tersebut dan coba klik pada calendar,Hasilnya nilai dari calendar akan ditampilkan pada text box seperti gambar dibawah ini
0 komentar:
Posting Komentar