📄 17739.html
字号:
<html> <head> <title>Re: &#189;D°Y : textbox &#164;&#164;|3¨S|3&#164;eak or ˉa&#164;￡ˉa°μ¨i (，O&#164;o)</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: &#189;D°Y : textbox &#164;&#164;|3¨S|3&#164;eak or ˉa&#164;￡ˉa°μ¨i (，O&#164;o)</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:demon.alex.ng@mailcity.com">Yashiro</a> on August 23, 1999 at 18:52:48:<p>In Reply to: <a href="17737.html">Re: ½D°Y : textbox ¤¤|3¨S|3¤eak or ˉa¤￡ˉa°μ¨i (，O¤o)</a> posted by yashiro on August 23, 1999 at 18:23:28:<p>here is the sample code. others think about yourself. :P<p><br>Dim Trigger As Boolean<p>Private Sub Text1_Change()<br> If Trigger = True Then<br> Select Case Len(Text1.Text)<br> Case 1: Text1.Text = "a"<br> Case Is > 1<br> Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "a"<br> Case 0:<br> End Select<br> Text1.SelStart = Len(Text1.Text)<br> End If<br>End Sub<p>Private Sub Text1_KeyPress(KeyAscii As Integer)<br> If KeyAscii = 32 Then<br> Trigger = True<br> End If<br>End Sub<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17739--></ul><!--end: 17739--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -