• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Lập trình kéo-thả tập tin vào listbox

Các thủ thuật liên quan đến ứng dụng, biểu mẫu và control

Điều hành viên: tungcan5diop, QUANITGROBEST

vannhungaynao
Bài viết: 1
Ngày tham gia: CN 04/05/2008 7:13 am

Lập trình kéo-thả tập tin vào listbox

Gửi bàigửi bởi vannhungaynao » T.Tư 04/06/2008 7:07 am

Viết chương trình VB .Net cho phép kéo-thả một số tập tin trên màn hình desktop vào 1 label của form ứng dụng, 1 listbox khác trong form sẽ hiển thị các tập tin kéo-thả vào.


Để hiển thị hết các file được chọn trong hoạt động drag-drop, bạn nên viết lệnh lặp để ‘add’ từng file trong danh sách vào listbox. Hàm xử lý sự kiện dragdrop cho label được viết lại như sau (có kiểm tra xem dữ liệu dragdrop có phải là danh sách các file không trước khi ‘add’ chúng vào listbox):



Mã: Chọn hết

  1. Private Sub Label9_DragDrop (ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
  2.  
  3.  
  4. ‘kiểm tra xem có file dữ liệu dragdrop là danh sách file không
  5.  
  6. If e.Data.GetDataPresent(DataFormats.FileDrop) Then
  7. Dim i As Integer
  8. Dim files() As String = e.Data.GetData(DataFormats.FileDrop, True)
  9.  
  10.  
  11. ‘ Lặp ‘add’ từng tên file bào listbox
  12.  
  13. For i = 0 To files.Length - 1
  14. lstNguon.Items.Add(files(i))
  15. Next
  16. End If
  17. End Sub


Ngoài ra bạn nên viết thêm hàm xử lý sự kiện DragEnter cho label tương ứng như sau:

Mã: Chọn hết

  1. Private Sub Label9_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
  2. If e.Data.GetDataPresent(DataFormats.FileDrop) Then
  3. e.Effect = DragDropEffects.All
  4. End If
  5. End Sub


Lưu ý là phải thiết lập thuộc tính AllowDrop của label về giá trị True thì dragdrop mới hoạt động với label tương ứng.

theo vietnew.org

Tester : Lần sau chú ý đưa code vào thẻ Code



tranbinh170
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 67
Ngày tham gia: T.Năm 26/02/2009 9:01 pm

Re: Lập trình kéo-thả tập tin vào listbox

Gửi bàigửi bởi tranbinh170 » CN 01/03/2009 10:03 pm

Bạn có thể viết giúp mình code để kéo thả từ Listbox -> Listbox ko? ( Khi kéo qua thì Item bên kéo mất và Item bên đưa vào có và trong đó Listbox có nhiều Item nha)
Nếu thêm 1 cái button thì mình viết được rồi nhưng thấy cái kéo thả mới wa' nên muốn học hỏi thêm


Quay về “[.NET] Ứng dụng - Form và Control”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách