字节数怎么在VB中显示 0-60字节

如何把text1里面的字节数显示在text9里面用数字体现要求字母和数字为1个字节中文为2个字节求完整代码谢谢

2026年09月27日 02:26

有2个网友回答

网友（1）：

这个好办的

你在Text1 的 Change 事件中写入相应代码即可

Text1 的 Change 事件是在每输入一个字节数据时发生

所以，在你向Text1 输入数据的时候，就会触发该事件

完整代码如下

Private Sub Text1_Change()

Text2.Text = Len(Text1.Text)

End Sub

另外，也可以用定时器实现此功能

就是把这句 Text2.Text = Len(Text1.Text) 放在定时器事件中

定时的时间可以为 10毫秒，这样不会有延迟

纯手工打字，若满意，请记得采纳，谢谢！

网友（2）：

Text9.Text = LenB(StrConv(Text1.Text, vbFromUnicode))