📄 1170.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 + -