📄 10649.html
字号:
<html>
<head>
<title>小吴 , cww ,everybody 帮个忙好吗 ?</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>小吴 , cww ,everybody 帮个忙好吗 ?</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:robertshyu@blue.url.com.tw">S.W.U</a> on March 05, 1999 at 15:35:34:<p>
有2个 programs 应该有一样的结果 , 但却不是 Why ???????????/<p><p>program 1:<p><br>Private Sub Form_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<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><p>***************************************************************<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<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><p>为什么第二个 Program 无法highlight 呢<p><p><p><p><br>program 2:<p><p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 10649-->
<!--top: 10652--><li><a href="10652.html">Re: 小吴 , cww ,everybody 帮个忙好吗 ?</a> <b>jutso</b> <i>16:46:54 3/05/99</i>
(<!--responses: 10652-->0)
<ul><!--insert: 10652-->
</ul><!--end: 10652-->
</ul><!--end: 10649-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -