Results 1 to 12 of 12

Thread: Unicode Answes!!

Threaded View

  1. #1

    Thread Starter
    Lively Member
    Join Date
    Apr 2001
    Location
    Utah, USA
    Posts
    121

    Unicode Answes!!

    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?

    Code:
    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
    I've tried it with both Arial Unicode MS and Lucidia Sans Unicode
    Unicode questions are few on this forum, but answers are like virtually noexistent. PLEASE HELP

    Zevlag
    Attached Files Attached Files
    Josh -- Name
    Zevlag13 -- AIM

    www.WotsIt.org for all your file format spec questions!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width