1136.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 30 行

HTML
30 行
字号 
<html>
  <head>
    <title>参考这个程式吧！</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="blue" VLINK="#808080" ALINK="red">
    <center>
      <h1>参考这个程式吧！</h1>
    </center>

<HR><p>
Posted by <a href="mailto:a338479@ms3.hinet.net">刘柏泛</a> on October 20, 1997 at 00:21:18:<p>
In Reply to: <a href="1134.html"><b>Re: Text Control</b></a> posted by 小贤 on October 20, 1997 at 00:02:27:<p>
<br>: <br>: : vb6 和 vb6 的TextBox的长度算法是一样的，要看你是使用<br>: 我主要是要问!<br>: vb6  和 vb6 的Text Control 的MaxLength  不一样!<p>Private Sub Text1_KeyPress(KeyAscii As Integer)<br>'Text1.MaxLength 要设长度（中文2个Byte，英文1个Byte）<br>Dim J(1) As Integer, Temp As Integer<br>       <br>J(0) = 0<br>For Temp = 1 To Len(Text1.Text)<br>  J(1) = Asc(Mid(Text1.Text, Temp, 1))<br>  J(0) = J(0) + IIf(J(1) >= 0 And J(1)  8 And KeyAscii  13 Then<br>   Temp = IIf(KeyAscii  128, 2, 1)<br>   If J(0) + Temp > Text1.MaxLength Then KeyAscii = 0<br>ElseIf KeyAscii = 13 Then<br>   KeyAscii = 0<br>   '保留给按 Enter 键时使用<br>   '例如 Text2.SetFocus<br>End If<p>End Sub<br>
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 1136-->
<!--top: 1138--><li><a href="1138.html"><b>Re: 参考这个程式吧！</b></a> 小贤 <i>02:58:26 10/20/97</i>
(<!--responses: 1138-->1)
<ul><!--insert: 1138-->
<!--top: 1139--><li><a href="1139.html"><b>想是死心吧！但是....</b></a> 小吴 <i>05:04:31 10/20/97</i>
(<!--responses: 1139-->0)
<ul><!--insert: 1139-->
</ul><!--end: 1139-->
</ul><!--end: 1138-->
</ul><!--end: 1136-->
<br><HR><p>

</body></html>

1136.html - 源码说明

本页面展示了「VB技巧问答10000例 VB技巧问答10000例」中的 1136.html 源码文件，采用 HTML 编程语言编写，共 30 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?