VB实现鼠标拖动网页文本到TextBox

'在窗口中添加一个Text1,属性MultiLine设为True(接受多行文本)
'代码如下：

1. Option Explicit
2. Private Declare Function MultiByteToWideChar Lib "kernel32 " (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
3. Private Const CP_UTF8 = 65001
4. Private Sub Form_Load()
5.    Text1.OLEDropMode = 1
6. End Sub
7.           
8. Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
9.    Dim I As Long, nStr As String
10.    If Data.GetFormat(vbCFText) Then nStr = Data.GetData(vbCFText)
11.    If Data.GetFormat(vbCFFiles) Then
12.      For I = 1 To Data.Files.Count
13.        nStr = nStr & Data.Files(I) & vbCrLf
14.      Next
15.    End If
16.    Text1.SelText = DecodeToBytes(StrConv(nStr, vbFromUnicode))
17. End Sub
18.  
19. Private Sub Text1_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
20. If Data.GetFormat(vbCFText) Then Exit Sub
21. If Data.GetFormat(vbCFFiles) Then Exit Sub
22. Effect = 0
23. End Sub
24. ' UTF8 转字符
25. Public Function DecodeToBytes(ByVal sData As String) As Byte()
26. Dim aRetn() As Byte
27. Dim nSize As Long
28. nSize = MultiByteToWideChar(CP_UTF8, 0, StrPtr(sData), -1, 0, 0) - 1
29. If nSize = 0 Then Exit Function
30. ReDim aRetn(0 To 2 * nSize - 1) As Byte
31. MultiByteToWideChar CP_UTF8, 0, StrPtr(sData), -1, VarPtr(aRetn(0)), nSize
32. DecodeToBytes = aRetn
33. Erase aRetn
34. End Function