隨心記憶

範例如下

  Dim   str   As   String,   data()   As   Byte,   i   As   Long  
  str   =   "ABC你好。abc"  
  i   =   0  
  data   =   StrConv(str,   vbFromUnicode)  

'上面這段要改成

'data = Encoding.Default.GetBytes(str) 取bytes

'這些是VB6的寫法

  While   i   <=   UBound(data)  
      If   data(i)   <   128   Then  
          PostMessage   Text1.hwnd,   WM_CHAR,   data(i),   0&  
          i   =   i   +   1  
      Else  
          PostMessage   Text1.hwnd,   WM_CHAR,   data(i),   0&  
          PostMessage   Text1.hwnd,   WM_CHAR,   data(i   +   1),   0&  
          i   =   i   +   2  
      End   If  
  Wend  
  End   Sub