📄 4446.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>多次列印资料到TextBox中出问题(急!!!)</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>多次列印资料到TextBox中出问题(急!!!)</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:shliao@mailcity.com">Richard</a> on August 07, 1998 at 00:53:49:<p>
各位VB高手,请帮忙:<br>  小弟在写一个Serch(搜寻)的充实程式,主要是将某个目录下的所有档案中包含指定的字篡(String)<br>,便将此档案内容放到TextBox中,以便阅读,然后再按Continue_Key继续开档搜寻再放到TextBox,如此<br>重复,第一次顺利可以在TextBox中读到档案内容,但第二次就发生"Run-Time Error:62  <br>Input Past End of File", 我是用"Text3.Text = Input$(LOF(4), 4)"方式放入TextBox,请教<br>各位VB高手,请指点小弟是那里错误,谢谢!<br>程式部分:<br>Sub Srchstr()<br> posv = -1<br> For i = k To n<br> k = k + 1<br> f = 0<br> Open files(i) For Input As #3<br> While Not EOF(3)<br>  Line Input #3, allstr<br>  posv = InStr(1, allstr, srch, 1)<br>  If posv <> -1 Then<br>   f = 1<br>   GoTo ll1<br>  End If<br> Wend<br>ll1:<br> Close #3<br> If f = 1 Then<br>  Command3.Enabled = True<br>  Open files(i) For Input As #4<br>  Text3.Refresh<br>  ll = LOF(4)<br>  Text3.Text = Input$(LOF(4), 4)<br>  i = n + 1<br>  Close #4<br> End If<br>Next i<br>If k >= n Then<br> Text3.Text = "Finish"<br>End If<br>End Sub<p>Private Sub Command2_Click()<br>Dim srch As String<br>srch = Text2.Text<br>End Sub<p>Private Sub Command3_Click()<br>i = k<br>files(i) = Text1.Text + "\" + files(i)<br>Call Srchstr<br>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 4446-->
</ul><!--end: 4446-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -