📄 10652.html
字号:
<html>
<head>
<title>Re: 小吴 , cww ,everybody 帮个忙好吗 ?</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 小吴 , cww ,everybody 帮个忙好吗 ?</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by jutso on March 05, 1999 at 16:46:54:<p>
In Reply to: <a href="10649.html">小吴 , cww ,everybody 帮个忙好吗 ?</a> posted by S.W.U on March 05, 1999 at 15:35:34:<p>
<br>: ***************************************************************<p>: program 2 :<p>: <br>: Private Sub Command1_Click()<br>: Dim Search, Where<br>: Search = InputBox("Enter text to be found:")<br>: Where = InStr(Text1.Text, Search)<br>: If Where Then<br>: Text1.SelStart = Where - 1<br>: Text1.SelLength = Len(Search)<br>: Else<br>: MsgBox "String not found."<br>: End If<p> text1.setfocus<br> ^^^^^^^^^^^^^^<br>: End Sub<p>: Private Sub Form_Load()<br>: Text1.Text = "Two of the peak human experiences"<br>: Text1.Text = Text1.Text & " are good food and classical music."<br>: <br>: End Sub<p><p><br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 10652-->
</ul><!--end: 10652-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -