＋设为首页 ＋添加到收藏夹
Private Sub Form_Click()
Dim s1 As String, s2 As String, s3 As String
s1 = "Visval Basic程序设计"
Print "s1:len("; s1; ") = "; Len(s1)
Print "s1:lenb("; s1; ") = "; LenB(s1);
Print
s2 = StrConv(s1, vbFromUnicode)
Print "执行 s2=strconv(s1.vbfromunicode)后"
Print "s2:lenb("; s2; ")="; LenB(s2)
Print
s3 = StrConv(s2, vbUnicode)
Print "执行 s3=strconv(s2.vbUnicode)后"
Print "s3:lenb("; s3; ")="; LenB(s3)
End Sub
你把Form的AutoRedraw 属性设为TRUE试试看。
