VB编程如何实现文字的检索
建一个TextBox============= Private Sub Form_Load() Text1.Text = "" Dim i As Long Open "d:\a.txt" For Input As 1 Do While EOF(1) = False Dim s As String Line Input #1, s Text1.Text = Text1.Text & s & vbCrLf i = i + 1 Loop Close MsgBox "文件共有" & i & "行" End Sub
答:请按照如下方法操作: 在Form1窗体中输入下面的代码: Private Sub Command1_Click() Form2.Show Form2.Label...详情>>
答:详情>>