Convert String in Byte in VB6 mit & H81, die in dem 0. Index

Question

Wie Zeichenfolge zu konvertieren, um Byte-Array, die & H81 in ersten Index enthält, wenn der Byte-Array myByte (0) mit

Ich brauche in meinem Byte überprüfen Array

Private Declare Sub CopyMemory _ 
      Lib "kernel32" _ 
      Alias "RtlMoveMemory" (Destination As Any, _ 
            Source As Any, _ 
            ByVal Length As Long) 

---

Private Sub cmdCommand1_Click() 
    Dim str As String 
    Dim BT() As Byte 

    BT() = StrToByte(tbMsg.Text) 

    If BT(0) = &H81 Then 
     'MyCode 
    End If 

End Sub 

die If myByte (0) = & H81 Dann wird Zustand immer beschwichtigt falsch

und zur Zeit ich verwende diese Zeichenfolge Methode

Public Function StrToByte(strInput As String) As Byte() 
    Dim lPntr As Long 
    Dim bTmp() As Byte 
    Dim bArray() As Byte 

    If Len(strInput) = 0 Then Exit Function 
     ReDim bTmp(LenB(strInput) - 1) 'Memory length 
     ReDim bArray(Len(strInput) - 1) 'String length 
     CopyMemory bTmp(0), ByVal StrPtr(strInput), LenB(strInput) 

    For lPntr = 0 To UBound(bArray) 

     If bTmp(lPntr * 2 + 1) > 0 Then 
      bArray(lPntr) = Asc(Mid$(strInput, lPntr + 1, 1)) 
     Else 
      bArray(lPntr) = bTmp(lPntr * 2) 
     End If 
    Next lPntr 

    StrToByte = bArray 
End Function 

Answer 1

Ein Tippfehler Ich denke, auf Byte konvertieren, sollte es sein:

If BT(0) = &H81 Then 

Nicht

If mybyte(0) = &H81 Then 

Ihre Code scheint die Doppelbyte-Unicode-Zeichenfolge in ein einzelnes Byte zu konvertieren ation der Saite wird dies für ein beliebiges Zeichen in Müll führen mit einem Codepunkt> 255

Wenn das ist ok Ihren Code der eingebauten entspricht:

BT() = StrConv(strInput, vbFromUnicode)