Wednesday, June 15, 2016

Salin Data Dari Listbox1 Ke Listbox2


Salin Data Dari Listbox1 ke Listbox2 - Seperti yang terlihat pada gambar berformat gif diatas..!! dimana data yang tampil pada Listbox pertama disalin ke dalam Listbox ke dua. Langkah-langkahnya sangatlah mudah. Caranya anda hanya mengcopy dan pastekan kode pada tempatnya..

Langkah-langkah membuat Salin Data Dari Listbox1 Ke Listbox2 :
  • Download dulu Filenya : Salin Data Dari Listbox1 Ke Listbox2 supaya tidak capek lagi merancang userformnya.
  • Tempatkan Script  dibawah ini untuk mengisi pilihan yang ada dalam Listbox1 pada Userform_Initialize 
Userform_initialize()
With ListBox1 
.AddItem "Data Siswa" 
.AddItem "Data Guru" 
.AddItem "Data Inventaris" 
.AddItem "Data Keuangan" 
End With 
End Sub
  • Tempatkan Script Berikut pada ComandButton1  sebagai tombol yang berfungsi untuk menyalin data dari Listbox1 ke Listbox2
Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1 
 If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i) 
Next i 
End Sub
  • Tempatkan Script dibawah ini pada CommandButton2 sebagai tombol yang berfungsi untuk menghapus data pada Listbox2 
Private Sub CommandButton2_Click()
Dim counter As Integer 
counter = 0
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i - counter) Then
ListBox2.RemoveItem (i - counter) 

counter = counter + 1 
End If 
Next i 
End Sub
  • Demikian Cara Salin Data Dari Listbox1 Ke Listbox2, Semoga dapat dikembangkan sesuai dengan kebutuhan Aplikasi yang sedang dibuat.



Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon