• 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

[VB.NET]Lập trình kéo-thả tập tin vào listbox

Các bài viết hướng dẫn về Visual Basic .NET và C#

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

Hình đại diện của người dùng
onlysoft
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 330
Ngày tham gia: T.Tư 26/03/2008 6:32 pm
Đến từ: ONLYSOFT
Been thanked: 8 time

[VB.NET]Lập trình kéo-thả tập tin vào listbox

Gửi bàigửi bởi onlysoft » T.Hai 30/06/2008 7:07 am

Tên bài viết: Lập trình kéo-thả tập tin vào listbox
Tác giả: ">Edited and Copied by onlysoft :">
Cấp độ bài viết: Chưa đánh giá
Tóm tắt: Lập trình kéo-thả tập tin vào listbox


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.


:x Tin học là cuộc sống, Lập trình là người yêu, Vợ là computer :x
Tôi yêu tin học, Tin học lập trình, Để lập trình tôi dùng VB, Tôi là B-)nly

LE LUC KIM AN
Bài viết: 2
Ngày tham gia: T.Sáu 27/06/2008 9:27 am
Liên hệ:

Re: [VB.NET]Lập trình kéo-thả tập tin vào listbox

Gửi bàigửi bởi LE LUC KIM AN » T.Sáu 10/10/2008 6:51 pm

Cám pơn Bác nhiều !

hoanglongvina
Bài viết: 3
Ngày tham gia: T.Tư 16/03/2011 3:21 pm
Been thanked: 1 time

Re: [VB.NET]Lập trình kéo-thả tập tin vào listbox

Gửi bàigửi bởi hoanglongvina » T.Tư 16/03/2011 3:45 pm

chào bạn ,mình đang làm đồ án về ftp mình muốn thực hiện kéo thả giữa listview local drives với listbox danh sách thư mục của ftp sever mà mình không viết làm sao hết, nhờ bạn chỉ giáo mình viết bằng c#.

Hình ảnh

cảm ơn

Hình đại diện của người dùng
vuathongtin
Điều hành viên
Điều hành viên
Bài viết: 1028
Ngày tham gia: CN 02/05/2010 10:03 pm
Đến từ: Xứ sở DG
Has thanked: 2 time
Been thanked: 105 time
Liên hệ:

Re: [VB.NET]Lập trình kéo-thả tập tin vào listbox

Gửi bàigửi bởi vuathongtin » T.Tư 16/03/2011 4:36 pm

Bạn cứ viết code vào sự kiện DragDrop của 2 listbox, nhớ đặt thuộc tính AllowDrop của Listbox là true
Bùi Thành Nhân
CNTT-Sở Thông tin & Truyền thông tỉnh Phú Yên
giasulaptrinh.com
Skype:vuathongtin

hoanglongvina
Bài viết: 3
Ngày tham gia: T.Tư 16/03/2011 3:21 pm
Been thanked: 1 time

Re: [VB.NET]Lập trình kéo-thả tập tin vào listbox

Gửi bàigửi bởi hoanglongvina » T.Năm 17/03/2011 10:42 pm

cảm ơn bạn , nhưng nếu có code ví dụ thì hay quá :)) !

Hình đại diện của người dùng
vuathongtin
Điều hành viên
Điều hành viên
Bài viết: 1028
Ngày tham gia: CN 02/05/2010 10:03 pm
Đến từ: Xứ sở DG
Has thanked: 2 time
Been thanked: 105 time
Liên hệ:

Re: [VB.NET]Lập trình kéo-thả tập tin vào listbox

Gửi bàigửi bởi vuathongtin » T.Năm 17/03/2011 11:28 pm

bạn thử code đi, nếu có lỗi j thì cứ post lỗi lên đây, mọi ng sẽ giúp bạn, đó là cách học lập trình tốt nhất.

p/s: làm rùi nếu vướng thì mới post chứ đừng spam nhiều kẻo hư topic :D
Bùi Thành Nhân
CNTT-Sở Thông tin & Truyền thông tỉnh Phú Yên
giasulaptrinh.com
Skype:vuathongtin

hoanglongvina
Bài viết: 3
Ngày tham gia: T.Tư 16/03/2011 3:21 pm
Been thanked: 1 time

Re: [VB.NET]Lập trình kéo-thả tập tin vào listbox

Gửi bàigửi bởi hoanglongvina » T.Bảy 19/03/2011 12:24 am

hi, tại mình học bên mạng nên cũng đuối lập trình lắm ^^

Hình đại diện của người dùng
son0nline
Thành viên trung thành
Thành viên trung thành
Bài viết: 241
Ngày tham gia: T.Năm 18/02/2010 9:55 pm
Has thanked: 6 time
Been thanked: 12 time
Liên hệ:

Re: [VB.NET]Lập trình kéo-thả tập tin vào listbox

Gửi bàigửi bởi son0nline » CN 17/07/2011 11:30 pm

cho em hỏi chút với
em convert sang c# không được đoạn sau:

Mã: Chọn hết

e.Data.GetData(DataFormats.FileDrop, True)

C# trả về là kiểu object không phải string

FlyingFox
Guru
Guru
Bài viết: 809
Ngày tham gia: T.Tư 20/04/2011 9:56 am
Been thanked: 320 time

Re: [VB.NET]Lập trình kéo-thả tập tin vào listbox

Gửi bàigửi bởi FlyingFox » T.Hai 18/07/2011 8:21 am

Thêm ToString() nữa mới được
  1. e.Data.GetData(DataFormats.FileDrop, True).ToString();


Quay về “[.NET] Bài viết hướng dẫn”

Đ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