Cara membuat folder dan menghapus folder dengan visual basic

Yang harus di perhatikan dalam pembuatan folder adalah :
 - Pastikan bahwa folder memang benar-benar baru (Tidak ada folder yang sama dengan folder yang kita buat) .
- Tidak boleh mengandung simbol .:'"][*$#%^ dan sebagainya .

Untuk perintah membuat folder :
MkDir (“D:\Agus”)
'Folder yang kita buat terletak di D:\Agus

Untuk menghapus semua isi yang ada di dalam folder (tidak termasuk foldernya, tapi cuma isi di dalamnya) :
Kill “D:\Agus\*.*”

Untuk menghapus folder :
 RmDir (“D:\Agus”)

Selesai, semoga dapat membantu :)

Menyimpan Foto ke database di Visual Basic

Karena banyak pertanyaan dari teman-teman dan komentar request tentang bagaimana membuat program menyimpan foto atau gambar di vb 6.
Maka pada pembahasan kali ini saya akan membahas tentang bagaimana cara menampilkan dan menyimpan foto pada folder yang kita buat menggunakan visual basic 6.
Untuk menyimpan foto, kita bisa menggunakan database atau tidak, pada program kali ini saya akan membuat program penyimpanan foto langsung ke folder foto yang saya buat, jadi foto tidak disimpan ke dalam database, tapi dalam folder foto yang sudah kita buat sebelumnya.

Sebelum kita mulai membuat programnya, buat dulu folder untuk tempat menyimpan database dan project yang akan kita buat, misalnya Latihan Foto, kemudian dalam folder latihan foto buat lagi folder dengan nama folderfoto untuk menampung foto-toto yang kita simpan nantinya.
Kemudian buat database access dengan nama dblatihan.mdb seperti dibawah ini :

Nama Database : dblatihan
Nama Tabel       : data

Field
Data Type
Size
NRP
Text
10
Nama
Text
30
Jurusan
Text
35

Simpan file database kedalam folder latihan foto yang sudah kita buat sebelumnya.
Kemudian buka Microsoft Visual Basic 6.0 dan desain form seperti dibawah ini :
 
 Componen tambahan yang digunakan pada desain form diatas adalah :
- Microsoft ADO Data Control 6.0
- Microsoft Common Dialog Control 6.0
- Microsoft DataGrid Control 6.0

Kemudian ubah properti name pada masing-masing command menjadi seperti ini :
untuk command Simpan = cmdsimpan
- Edit = cmdedit
- Hapus = cmdhapus
- Bersihkan = cmdbersih
- Cari Foto = cmdcari
- Keluar = cmdkeluar

Setelah desain dan edit property sudah selesai, kita buat modul untuk koneksi database nya, lalu ketikkan kode berikut dalam jendela kode modul :
  1. Public conn As New ADODB.Connection  
  2.   
  3. Public RSdata As New ADODB.Recordset  
  4.   
  5.    
  6.   
  7. Sub koneksi()  
  8.   
  9. Set conn = New ADODB.Connection  
  10.   
  11. Set RSdata = New ADODB.Recordset  
  12.   
  13. conn.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\dblatihan.mdb"  
  14.   
  15. End Sub  


Kemudian pada form activate dan form load ketikkan kode perintah berikut :
  1. Private Sub Form_Activate() ' perintah untuk koneksi database saat form aktif  
  2. Call koneksi  
  3.   
  4. Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dblatihan.mdb"  
  5.   
  6. Adodc1.RecordSource = "data"  
  7.   
  8. Adodc1.Refresh  
  9.   
  10. Set DataGrid1.DataSource = Adodc1  
  11.   
  12. DataGrid1.Refresh  
  13. End Sub  
  14.   
  15. Private Sub Form_Load()   
  16. Text1.Text = ""  
  17. Text2.Text = ""  
  18. Text3.Text = ""  
  19. Text4.Text = ""  
  20. Text4.Enabled = False  
  21. End Sub  


Buat sub Tampilkan data untuk menampilkan data saat pencarian data dilakukan :
  1. Private Sub TampilkanData()  
  2. Text2 = RSdata!nama  
  3.   
  4. Text3 = RSdata!jurusan  
  5.   
  6. Text4 = App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"  
  7. End Sub  


Perintah untuk mencari data dengan acuan dari Text1 :
  1. Function CariData()  
  2.     Call koneksi  
  3.   
  4.     RSdata.Open "Select * From data where nrp='" & Text1 & "'", conn  
  5. End Function  

Perintah untuk mengosongkan text inputan :
  1. Function CariData()  
  2.     Call koneksi  
  3.   
  4.     RSdata.Open "Select * From data where nrp='" & Text1 & "'", conn  
  5. End FunctionPrivate Sub kosong()  
  6.   
  7. Text1.Text = ""  
  8. Text2.Text = ""  
  9. Text3.Text = ""  
  10. Text4.Text = ""  
  11. End Sub  
Perintah untuk menyimpan foto ke dalam folderfoto yang sudah kita buat sebelumnya dengan me rename nama foto menjadi kode nrp dari mahasiswa :
  1. Private Sub simpan()  
  2. SavePicture Image1.Picture, App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"  
  3. End Sub  


Perintah untuk tombol Cari Foto, untu mencari dan membuka foto yang dipilih dari drive.
  1. Private Sub cmdcari_Click()  
  2. cmndialog.ShowOpen  
  3. Text4 = cmndialog.FileName  
  4. End Sub  


Perintah untuk tombol simpan, untuk menyimpan data pada database dan menyimpan foto kedalam folder.
  1. Private Sub cmdsimpan_Click()  
  2.   
  3. Dim SQLTambah As String  
  4.   
  5.  Call simpan  
  6.   
  7.             SQLTambah = "Insert Into data (nrp,nama,jurusan) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"  
  8.   
  9.             conn.Execute SQLTambah  
  10.   
  11.             Form_Activate  
  12.   
  13. End Sub  


Perintah untuk tombol edit, untuk mengupdate data yang di edit pada database.
  1. Private Sub cmdedit_Click()  
  2.  Dim SQLEdit As String  
  3.  Call simpan  
  4.   
  5.             SQLEdit = "Update data Set nama= '" & Text2 & "'," & " jurusan='" & Text3 & "' where nrp='" & Text1 & "'"  
  6.   
  7.             conn.Execute SQLEdit  
  8.             Form_Activate  
  9. End Sub  


Perintah untuk tombol hapus, untk menghapus data2 yang ada pada database.
  1. Private Sub smdhapus_Click()  
  2. Adodc1.Recordset.Delete  
  3. Adodc1.Recordset.Update  
  4. DataGrid1.Refresh  
  5. End Sub  


Perintah untuk tombol bersih, yang berfungsi untuk membersihkan atau mengosongkan text yang ada pada textbox.
  1. Private Sub cmdbersih_Click()  
  2. Text1.Text = ""  
  3. Text2.Text = ""  
  4. Text3.Text = ""  
  5. Text4.Text = ""  
  6. Text1.SetFocus  
  7. End Sub  
Perintah saat text1 kehilangan fokus maka akan langsung melakukan pencarian dengan memamnggil sub caridata dan tampilkandata untuk menampilkan data yang dicari.
  1. Private Sub Text1_LostFocus()  
  2. Call CariData  
  3.   
  4.         If Not RSdata.EOF Then  
  5.   
  6.             TampilkanData  
  7.   
  8.             MsgBox "Data Ditemukan"  
  9.   
  10.         Else  
  11.   
  12.             Text2.Text = ""  
  13.   
  14.             Text3.Text = ""  
  15.   
  16.             Text4.Text = ""  
  17.   
  18.         End If  
  19.   
  20. End Sub  
Perintah untuk memanggil gambar melalui alamat gambar yang berada pada text4.
  1. Private Sub Text4_Change()  
  2. Image1.Picture = LoadPicture(Text4)  
  3. End Sub  
Jika Semua kode perintah pada masing-masing tool sudah di ketikkan kemudian Simpan Project ke dalam folder latihan foto yang sudah kita buat sebelumnya.,lalu coba jalankan program yang sudah kita buat, dan jika program sukses, hasilnya akan seperti ini :
 
Oke sampai disini dulu pembahasannya, semoga bermanfaat dan bisa membantu ^_^

Membuat Menu treeview Visual Basic 6

Treeview Control pertama kali terintegrasi pada Visual Basic 5 dan selalu digunakan untuk menampilkan informasi secara bertingkat.

Anda tentu sudah sering melihat windows explorer.
Lihat gambar di bawah ini:



Gambar di bagian adalah gambar contoh Treeview pada windows explorer.

sekarang kita akan membuat treeview dengan Dua Induk dan Empat Anak pada masing-masing cabang (Node) memakai Visual Basic.

Buka project baru pilih standard project lalu klik Project - Componen - Pilih Windows Common Control.

Lihat gambar di bawah ini:


Anda akan melihat di Toolbox sebelah kiri ada penambahan control Treeview. Lihat gambar di bawah ini:


Double klik kontrol Treeview tersebut lalu atur sedemikian rupa letaknya pada form.

Lalu ketik kode seperti dibawah ini:

Private Sub Form_Load()
  Dim NodX As Node
  TreeView1.LineStyle = tvwRootLines
  For i = 1 To 2
    TreeView1.Nodes.Add , , "keyRoot" & CStr(i), i    

      For j = 1 To 4

       Set   NodX = TreeView1.Nodes.Add("keyRoot" & CStr(i), tvwChild, "keySub" & i & j, "i" & i & "." & "j" & j)

      Next j
   Next i
End Sub


Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)

   MsgBox Node.Key
End Sub



Jalankan program. Klik tanda positip pada Treeview. Lalu klik salah satu cabang. Anda akan melihat gambar seperti di bawah ini:




Kreasi Menu pada Visual basic 6

Hampir kebanyakan aplikasi database menggunakan menu. Menu terbagi atas dua jenis menu, yang pertama pull-down menu dan yang kedua pupup menu.

Pull-Down Menu
Pull-down menu adalah menu yang kelihatan di menu utama, yang biasanya terletak di paling atas form induk aplikasi. Seperti gambar di bawah ini :


Untuk membuat menu pull-down seperti gambar diatas, caranya sebagai berikut :
  1. Klik tombol menu editor pada toolbar
  2. Setelah tombol menu editor di klik maka akan tampil jendela menu editor seperti gambar di bawah ini :
    Isikan Caption, Name, dan Index.
    perlu di ketahui index berguna untuk membedakan satu menu dengan menu yang lain apabila nama menu sama. penempatan nama menu yang sama harus pada kedudukan yang sama juga.
  3. Dalam pemanggilan kejadian ketika mengklik menu, berikut adalah contoh kode programmnya :

    Private Sub menuFile_Click(Index As Integer)  
    Select Case Index  
    Case 1  
        Load login  
        login.Show  
    Case 2  
        message = MsgBox("Yakin akan logout ?", vbQuestion + vbYesNo)  
        If message = vbYes Then  
            induk.Toolbar1.Buttons(1).Enabled = True  
            induk.Toolbar1.Buttons(2).Enabled = False  
            For n = 1 To induk.MenuUtama.UBound  
                induk.MenuUtama(n).Enabled = False  
            Next  
            induk.MenuUtama(1).Enabled = True  
            induk.MenuUtama(5).Enabled = True  
            induk.menuFile(1).Enabled = True  
            induk.menuFile(2).Enabled = False  
            induk.menuFile(4).Enabled = True  
            induk.menuFasilitas(1).Enabled = False  
            induk.menuFasilitas(2).Enabled = False  
            induk.menuFasilitas(4).Enabled = True  
            induk.menuKlikKanan.Enabled = False  
            For n = 1 To induk.MenuKlik.UBound  
                induk.MenuKlik(n).Enabled = False  
            Next  
            UnloadAllForms (Me.Name)  
        End If  
    Case 4  
        message = MsgBox("Yakin akan keluar dari program?", vbQuestion + vbYesNo)  
        If message = vbYes Then  
            End  
        End If  
    End Select  
    End Sub  

Pop-Up Menu
Menu pop-up menu adalah menu yang tidak kelihatan oada form. Untuk melihatnya biasanya kita harus klik kanan pada mouse terlebih dahulu.
Untuk membuat menu pop-up menu berikut adalah langkah-langkahnya :
  1. Masuk ke menu editor sama seperti membuat pull-down menu.
  2. Isi Menu yang akan di tampilkan sebagai pop-up menu, lihat gambar di bawah ini :
  3. Pada menu utama atau menu induk, properti Visible harus dihilangkan seperti gambar di atas. Ingat pada menu utamanya saja.
  4. Dalam pemanggilan kejadian ketika mengklik menu, berikut adalah contoh kode programmnya :

    Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)  
        If Button = 2 Then  
            PopupMenu menuKlikKanan  
        End If  
    End Sub  
      
    Private Sub MenuKlik_Click(Index As Integer)  
    Select Case Index  
    Case 1  
        Load data_guru  
        data_guru.Show  
    Case 2  
        Load data_sekolah  
        data_sekolah.Show  
    Case 4  
        Load info_jadwal_supervisi  
        info_jadwal_supervisi.Show  
    Case 5  
        Load pilih_bagian  
        pilih_bagian.Show  
    Case 7  
        Load ganti_password  
        ganti_password.Show  
    End Select  
    End Sub  

    Sumber: http://bloglieken.blogspot.com/2011/08/membuat-menu-pada-visual-basic-60.html

Menampilkan Gambar dengan Command Button Pada Visual Basic 6.0


Buat sobat yg pengen tau gimana caranya buat file gambar di vb 6.0 dibawah ini cara nya
Sebelumnya kita akan menggunakan tool picturebox dan commandbutton




Buatlah form seperti gambar di bawah ini



Kemudian double klik commandbutton lalu tuliskan sintak di bawah ini

Private sub Command_click()
Me.Picture1.Picture = LoadPicture ("Object name ")
End sub

ket :
-Private Sub Command1_Click() = event Command Button saat di klik
- End Sub = akhir dari event
- Me.Picture1.Picture = LoadPicture("C:\Users\Ismy\Pictures\mnl.jpg")


Me di sini adalah sintak untuk memanggil Form. Tidak berlaku untuk Form lain, ini berguna untuk mempermudah jika kita lupa penulisan Name Component. Disini saya memakai file yg berada di drive C dan saya memasukan itu melalui syntak visual basic. Jika anda bingung untuk mencari object name nya :
-klik kanan gambar nya 
-pilih propertis 
-pilih tab security , di atas sendiri ada tulisan object name trus di copy aja.

Sekarang untuk menyesuaikan ukuran picturebox dengan gambar, di bagian properties picturebox 

Autosize menjadi true 
Dengan demikian secara otomatis picturebox akan menyeseuaikan ukuran gambar . kalo mau tau hasilnya tinggal click aja commandbutton nya klo yg di form saya commandbutton nya di ganti caption nya jadi Load Picture.

ini hasil nya 



 Sobat juga bisa pake tool image cuma di ganti sintak nya jadi :
Me.image1.picture = LoadPicture ("Object name")
trus kalo mau menyesuaikan ukuran gambar sobat tinggal ganti strech nya jadi true
hasilnya juga sama aja 
sumber:http://ismy-amnes.blogspot.com/2012/10/file-gambar-pada-vb-60.html