1193.html

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

HTML
22
字号
<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 26, 1997 at 23:36:56:<p>In Reply to: <a href="1165.html"><b>删除太长的字串</b></a> posted by 小贤 on October 21, 1997 at 21:19:03:<p>借花献佛,修改前辈的程式……<p>Private Sub Text1_Change()<br>Dim iPos As Integer<p>iPos = Text1.SelStart<br>Text1 = StrConv(LeftB(StrConv(Text1, 128), Text1.MaxLength), 64)<br>Text1.SelStart = iPos<p>End Sub<p><br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1193--></ul><!--end: 1193--><br><HR><p></body></html>

⌨️ 快捷键说明

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