• 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

Tương tác kéo thả OLEDragDrop

Các thủ thuật liên quan đến việc xử lý ứng dụng, biểu mẫu và control
QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Tương tác kéo thả OLEDragDrop

Gửi bàigửi bởi QuangHoa » T.Sáu 11/04/2008 8:54 am

Thủ thuật: Tương tác kéo thả OLEDragDrop
Tác giả: ">Sưu tầm thôi có cải tiến :>
Mô tả: Các phần mềm hiên nay, đặc biệt là các phần mềm nghe nhạc thường cho phép người dùng tương tác kiểu này: Khi chương trình đang chạy, chẳng hạn như đang phát một bài hát chẳng hạn, nếu người dùng tiếp tục kéo một file từ Explorer vô thì phần mềm sẻ dừng bài hát trước và hát bài hát mới này hoặc là cho bài hát mới vào danh sách, nôm na là thế.


Tương tự ta có thể làm được như thế, mời bạn dùng đoạn mã sau đây :-/

Mã: Chọn hết

  1. Private Sub Form_Load()
  2. Me.OLEDropMode = 1
  3. MsgBox "Thu nho cua so VB6 lai, ra Explorer rôi keo 1 thu gi do cung ok tu Explorer vao form"
  4. End Sub
  5. Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
  6. Dim filefolder As String
  7. Dim fname As Variant
  8.     For Each fname In Data.Files
  9.         filefolder = filefolder & fname & vbCrLf
  10.     Next fname
  11.     MsgBox " Ha ha ta biet roi, ban muon toi dung " & filefolder & " chu gi, Con khuya nha, toi cha them dau"
  12.     Effect = vbDropEffectNone
  13. End Sub
  14.  

Chúc thành công !


朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
phongvanvu
Guru
Guru
Bài viết: 151
Ngày tham gia: T.Tư 24/01/2007 2:20 pm
Has thanked: 1 time
Been thanked: 8 time
Liên hệ:

Re: Tương tác kéo thả OLEDragDrop

Gửi bàigửi bởi phongvanvu » T.Ba 27/05/2008 8:43 am

Mở Explorer lên, chọn Desktop rồi kéo cả My Computer vào thì chương trình sẽ báo lỗi. Làm cách nào hạn chế lỗi này nhỉ?
Live to fight!

QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Re: Tương tác kéo thả OLEDragDrop

Gửi bàigửi bởi QuangHoa » T.Tư 28/05/2008 8:58 am

Có gì đâu, chỉ cần thên On error resume next là được mà.
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: Tương tác kéo thả OLEDragDrop

Gửi bàigửi bởi clarkkent » T.Năm 29/05/2008 11:29 am

phongvanvu đã viết:Mở Explorer lên, chọn Desktop rồi kéo cả My Computer vào thì chương trình sẽ báo lỗi. Làm cách nào hạn chế lỗi này nhỉ?

Vậy thì Sendkey Windows + E... :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Re: Tương tác kéo thả OLEDragDrop

Gửi bàigửi bởi QuangHoa » T.Năm 29/05/2008 2:46 pm

Thôi đừng SPAM nửa Con Lừa Ăn Rau Khoai kia, Có hiểu câu hỏi không mà nhảy bổ vào vậy >:) >:)
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。


Quay về “[VB] Ứ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.5 khách