看看改寫成樣行不行吧 ^^
Private Sub Command2_Click()
Dim first(1 To 43) As String
Open "C:\Documents and Settings\user\桌面\電腦程式語言VB6.0\data2\USPRES.TXT" F
or Input As #1
For n = 1 To 43
Do While Not EOF(1)
Input #1, first(n)
Loop
Next n
Close #1
For n = 1 To 43
If Left(first(n) , Len(Text3.Text)) = Text3.Text Then
Picture2.Print first(n)
End If
Next n
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.117.182.24