I need some!!
Here is my code, All I get evey time I copy a unicode character to the clipboard then come here is a "?" in the textt, "3F" in hex, and "63" decimal. What's wrong? What's right?
I've tried it with both Arial Unicode MS and Lucidia Sans UnicodeCode:Option Explicit Private Sub Form_Load() If App.PrevInstance = True Then MsgBox "Application already running!" End End If Me.Caption = App.Title Call SimulateOptionClick End Sub Private Sub Form_GotFocus() Call SimulateOptionClick End Sub Private Sub mnuFileExit_Click() End End Sub Private Sub Option1_Click(Index As Integer) ShowClipboardContents (Index) End Sub Private Sub SimulateOptionClick() Dim X As Long For X = 0 To Option1.UBound If Option1(X).Value = True Then Call ShowClipboardContents(X) End If Next End Sub Private Sub ShowClipboardContents(ByVal Format As Integer) Dim strData As String, strRes As String, strChar As String, strUni As String Dim bytArray() As Byte Dim X As Long bytArray = Clipboard.GetText 'strData = Clipboard.GetText Select Case Format Case 0 'Text strRes = CStr(bytArray) Case 1 'Hex For X = 0 To UBound(bytArray) strRes = strRes & Hex(bytArray(X)) & " " Next strRes = Replace(strRes, " 0", "") 'There's a 0 between every value for some reason Case 2 'Decimal For X = 0 To UBound(bytArray) strRes = strRes & bytArray(X) & " " Next strRes = Replace(strRes, " 0", "") 'There's a 48 between every value for some reason Case 3 'Binary strRes = "Binary is not yet functional..." End Select Text1.Text = strRes End Sub ' strRes = "" ' For X = 1 To Len(strData) 'strChar = Mid(strData, X, 1) 'strUni = StrConv(strChar, vbFromUnicode) 'strUni = strChar 'strRes = strRes & strUni ' & " " 'Next
Unicode questions are few on this forum, but answers are like virtually noexistent. PLEASE HELP
Zevlag




Reply With Quote