1170.html

来自「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: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>

1170.html - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?