⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 1170.html

📁 VB技巧问答10000例 VB技巧问答10000例
💻 HTML
字号:
<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:yfwu@iname.com">小吴</a> on October 22, 1997 at 01:30:42:<p>In Reply to: <a href="1165.html"><b>删除太长的字串</b></a> posted by 小贤 on October 21, 1997 at 21:19:03:<p>Private Sub Text1_Change()<br> Dim iPos As Integer<br>  <br> With Text1<br>  iPos = .SelStart<br>  .Text = StrConv(LeftB$(StrConv(.Text, vbFromUnicode), .MaxLength), vbUnicode)<br>  .SelStart = iPos<br> End With<br>End Sub<br><br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1170--></ul><!--end: 1170--><br><HR><p></body></html>

⌨️ 快捷键说明

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