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
