- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,722
- Giới tính
- Nam
Tôi có hàm để lấy chuỗi trong clipboard, tuy nhiên khi chạy hàm, những chữ có dấu tiếng Việt (unicode) bị mã hóa thành các dấu chấm hỏi (?) hoặc mất luôn dấu.
Ví dụ: Trong chuỗi gốc tôi copy là: HOÀNG TRỌNG NGHĨA thì chạy hàm ClipBoard_GetData nó ra kết quả: HOÀNG TR?NG NGHIA
Xin vui lòng hướng dẫn cách khắc phục ạ?
Ví dụ: Trong chuỗi gốc tôi copy là: HOÀNG TRỌNG NGHĨA thì chạy hàm ClipBoard_GetData nó ra kết quả: HOÀNG TR?NG NGHIA
Xin vui lòng hướng dẫn cách khắc phục ạ?
Mã:
Declare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As Long
Declare Function CloseClipboard Lib "User32" () As Long
Declare Function GetClipboardData Lib "User32" (ByVal wFormat As Long) As Long
Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags, ByVal dwBytes As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
Public Const GHND = &H42
Public Const CF_TEXT = 1
Public Const MAXSIZE = 4096
Function ClipBoard_GetData() As String
On Error GoTo ErrorHandler
Dim hClipMemory As Long
Dim lpClipMemory As Long
Dim MyString As String
Dim RetVal As Long
If OpenClipboard(0) = 0 Then
MsgBox "Cannot open Clipboard. Another app. may have it open"
Exit Function
End If
' Obtain the handle to the global memory
' block that is referencing the text.
hClipMemory = GetClipboardData(CF_TEXT)
If IsNull(hClipMemory) Then
MsgBox "Could not allocate memory"
GoTo OutOfHere
End If
' Lock Clipboard memory so we can reference
' the actual data string.
lpClipMemory = GlobalLock(hClipMemory)
If Not IsNull(lpClipMemory) Then
MyString = Space$(MAXSIZE)
RetVal = lstrcpy(MyString, lpClipMemory)
RetVal = GlobalUnlock(hClipMemory)
' Peel off the null terminating character.
MyString = Mid(MyString, 1, InStr(1, MyString, Chr$(0), 0) - 1)
Else
MsgBox "Could not lock memory to copy string from."
End If
OutOfHere:
RetVal = CloseClipboard()
ClipBoard_GetData = MyString
Exit Function
ErrorHandler:
RetVal = CloseClipboard()
ClipBoard_GetData = ""
End Function
