窗体中放两个文本框，一个按钮，均默认名，代码如下
Private Sub Command1_Click()
    Dim B() As Byte
    Dim S As String
   
    S = Text1.Text
    B = S
    S = B
    Text2.Text = S
End Sub
 
说明：
此帖一小时前以《不试不知道，一试吓一跳》为标题发过，刚才找不到了，一看，被移动了回收站了。
个人感觉这个技巧很实用，所以换标题再发一次。
根本不需要什么函数，中国人记洋文不太习惯，我一直就没记念转换的函数名，每次都是复制的，从来没写过函数名，这下好了，直接转换，不用任何函数。

[ 本帖最后由 贸易飞 于 2013-3-31 17:02 编辑 ]

很久以前就看过了，技巧的确是不错的。但是不知道是不是我这里的问题，总感觉运行这技巧会有点慢。

这种直接赋值，在面对 中文和英文字符串时会出问题。

如中文和英文混和时，转化为 这种数组时，你就会发现，英文和数字对应的数组元素也是二个，第一个元素的值为 0 。
与一般我们的期望不相符。我们的期望一般是 中文两个元素，英文和数字一个元素。
对于这种的期望，VB 提供了一个函数 ： StrConv

VB 本身就支持 字符串向 BYTE 数组赋值，这个功能是为了 与 VC 和 向下 兼容而设置 的，因为 API 基本上都是用VC写的。

　　二楼兄弟说的情况我不清楚，但，考虑到，这种转换不是很经常，一个程序当中这种转换的情景还是有限的，所以没有测试过，我空，我也测试一下时间。
　　很不幸，刚才亲自测试了一下，新方法直接转换，比正宗的方法还要快一位左右。呵呵。
　　三楼说的，我遇到过。第一次，就是在前不久，我心血来潮时试了一下这个，发现居然能转换，很是高兴，因为洋墨水不多，所有的函数，我都是COPY的，说来惭愧，用了这么多年，我一个函数都不会写，全部copy。
　　初次测试通过后，很是高兴了一阵，但几秒钟后，就%……#—*%*—#%……
　　遇到了三楼所说的问题，我是没有理论基础，不知道具体原因，但我也知道肯定是单双字节问题。
　　所以，我自己写的贸易飞软件当中，我自己也没敢用。
　　昨天发帖时，又试了一下，又没有遇到过这个问题，真搞不懂，呵呵。
　　不过，作为一个存在，毕竟有这么一回事，所以就发了出来。
　　刚才又试了一下，两个文本框，代码如下，又看不到问题，一切正常了，呵呵
Private Sub Text1_Change()
    Dim S As String
    Dim B() As Byte
    S = Text1.Text
    B = S
    S = B
    Text2.Text = S
End Sub