Visual basic Drag dan Drop ini rekayasa visual basic untuk memainkan pointer mouse. Drag dan drop aplikasi windows umum di mana kamu dapat drag dan drop objek seperti file ke folder atau ke dalam recycle bin. source code ini dapat dengan mudah dipelajari dalam visual basic. Dalam contoh ini, saya telah membuat program yang dapat mensimulasikan menyeret objek ke dalam recycle bin, dan membakar mereka.
Dalam program ini, kamu harus memasukkan 6 gambar ke dalam bentuk: membakar recycle bin, api, dan tiga gambar lagi yang harus diseret ke recycle bin. Selain itu, mengatur semua dragmode gambar (termasuk api) untuk 1 (Otomatis) sehingga menyeret untuk aktif, dan mengatur properti terlihat membakar recycle bin palsu saat start-up. Selain itu, label tag api sebagai api dalam jendela propertinya.
Jika kamu ingin memiliki efek menyeret lebih baik, kamu perlu memuat sebuah ikon yang sesuai di bawah properti dragIcon bagi gambar yang akan diseret. ikon harus sama dengan gambar sehingga ketika kamu tarik gambar, itu seperti kamu menyeret gambar bersama. desain hasil compile formnya sebagai berikut:
Listing Code:
Private Sub Image4_DragDrop(Source As Control, X As Single, Y As Single)
Source.Visible = False
If Source.Tag = "Fire" Then
Image4.Picture = Image5.Picture
End If
End Sub
Sumber mengacu pada gambar yang diseret. Menggunakan kode Source.Visible = False berarti akan hilang setelah diseret ke recycle bin. Jika sumbernya api, maka daur ulang akan berubah menjadi membakar recycle bin, yang dilakukan dengan menggunakan kode Image4.Picture = Image5.Picture, di mana Gambar 5 adalah pembakaran recycle bin.
full listing codenya:
Private Sub Form_Click()
Label1.Visible = False
End Sub
Private Sub Image4_DragDrop(Source As Control, X As Single, Y As Single)
Source.Visible = False
If Source.Tag = "Fire" Then
Image4.Picture = Image5.Picture
End If
End Sub
Private Sub instruct_Click()
Label1.Visible = True
End Sub
Terima Kasih telah membaca artikel Visual basic Drag dan Drop
