• 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
Posts: 542
Joined: Thu 27/03/2008 9:02 am
Location: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 times
Contact:

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

Postby QuangHoa » Fri 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 :-/

Code: Select all

  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 !


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

User avatar
phongvanvu
Guru
Guru
Posts: 151
Joined: Wed 24/01/2007 2:20 pm
Has thanked: 1 time
Been thanked: 8 times
Contact:

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

Postby phongvanvu » Tue 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
Posts: 542
Joined: Thu 27/03/2008 9:02 am
Location: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 times
Contact:

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

Postby QuangHoa » Wed 28/05/2008 8:58 am

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

User avatar
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Posts: 1641
Joined: Wed 16/04/2008 11:25 am
Location: Chợ Lách - Bến Tre
Been thanked: 31 times
Contact:

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

Postby clarkkent » Thu 29/05/2008 11:29 am

phongvanvu wrote: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
Posts: 542
Joined: Thu 27/03/2008 9:02 am
Location: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 times
Contact:

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

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


Return to “[VB] Ứng dụng - Form và Control”

Who is online

Users browsing this forum: No registered users and 0 guests