先滤掉'\0'之后的内容on error resume nexta = left(a,instr(1,a,vbnullchar)-1)
msgbox right(a,1)

解决方案 »

  1.   

    要取得字符串右边的一个字符,可以用Right(Expresion,Count)函数,例:
    Dim PreA As String
    Dim LastA As String
    PreA="The first string"
    LastA=Right(PreA,1)
      

  2.   

    b = GetWindowText(Me.hwnd, a, 254)
    msgbox left(a,b)
    看看发生了什么
    b就是a非空格的长度
      

  3.   

    不能直接用left
    GetWindowText返回的是ANSI字符串的长度
    而VB的字符串是UniCode的这样最好:
    a = left(a,instr(1,a,vbnullchar)-1)