Membuat Tombol Format Disket di VB6 - Berikut kali ini tip dan trik akan memberikan sebuah tip mengenai Bcara membuat tombol Format Disket di VB.Tombol ini ini berfungsi untuk memformat suatu disket apakah disket tersebut masih baru ataukah sudah bekas pakai.Tujuan dari format ini adalah untuk membersihkan atau menghapus semua isi yang ada dalam disket tersebut termasuk virus didalamnya.Walaupun dijaman sekarang ini sudah tidak digunakan lagi bentuk disket tetapi tidak ada salah kalau kita mempelajari tip berikut ini sebagai tambahan pengetahuan pemograman kita.
Untuk membuat tombol format disket ini visual basic sudah menyediakan function yang bernama SHFormatDrive,sehingga kita dengan mudahnya membuat tombol tersebut di form VB.Untuk membuat tombol format disket tidaklah sesulit yang kita bayangkan,Anda hanya butuh sebuah commandbutton untuk memunculkannya.
Untuk membuat tombol format disket ini visual basic sudah menyediakan function yang bernama SHFormatDrive,sehingga kita dengan mudahnya membuat tombol tersebut di form VB.Untuk membuat tombol format disket tidaklah sesulit yang kita bayangkan,Anda hanya butuh sebuah commandbutton untuk memunculkannya.
Untuk membuat Form yang dapat memformat disket caranya sangat sederhana sekali, Anda cukup menambahkan Satu buah CommandButton di Form dengan Caption "FORMAT DISKET" pada form, berikut adalah langkah-langkah dalam pembuatannya:
1. Buka Form VB6 Standar EXE2. Tanamkan sebuah Commandbutton di form,pada properti Commanbutton cari tulisan Caption lalu ketik "FORMAT DISKET"
3. Buka jendela kode, lalu ketikan kode berikut dibawah ini :
Option Explicit
Private Declare Function SHFormatDrive Lib "Shell32" (ByVal hwndOwner As Long, ByVal iDrive As Long, ByVal iCapacity As Long, ByVal iFormatType As Long) As Long
Private mhOwner As Long
Public Function ShowFormat(Optional ByVal iDrive As Long, Optional ByVal iCapacity As Long, Optional ByVal iFormatType As Long) As Long
ShowFormat = SHFormatDrive(mhOwner, iDrive, iCapacity, iFormatType)
End Function
Private Sub Command1_Click()
ShowFormat
End Sub
Private Declare Function SHFormatDrive Lib "Shell32" (ByVal hwndOwner As Long, ByVal iDrive As Long, ByVal iCapacity As Long, ByVal iFormatType As Long) As Long
Private mhOwner As Long
Public Function ShowFormat(Optional ByVal iDrive As Long, Optional ByVal iCapacity As Long, Optional ByVal iFormatType As Long) As Long
ShowFormat = SHFormatDrive(mhOwner, iDrive, iCapacity, iFormatType)
End Function
Private Sub Command1_Click()
ShowFormat
End Sub
3. Simpan hasil pekerjaan Anda, jalankan program, kemudian tekan Tombol "FORMAT DISKET" maka akan tampil jendela format disket pada layar komputer Anda.
Demikian tip cara membuat tombol format disket di VB6.Selamat mencoba,semoga sukses....!!!!!!!!!!
No comments:
Post a Comment