# 请教CWW,有关VB心得笔记中的TextBox之Replace/Insert切换

Posted by SQL on September 10, 1999 at 22:13:29:

执行copy 下来的程式(Replace及Insert切
换功能)会发现少了两个Function Strlen()及SubStr()
是不是这两个呢??
Public Function Strlen(C_str As String) As Integer
Strlen = LenB(StrConv(C_str, vbFromUnicode))
End Function
Public Function SubStr(Ctext As String, Start_len As Integer, End_len As Integer) As String
SubStr = StrConv(MidB(StrConv(Ctext, vbFromUnicode), Start_len, End_len), vbUnicode)
End Function

Follow Ups:

- 是的(无内文) cww 21:48:10 9/12/99 (0)