Question

求代码,VB在TextBox1中按行搜索TextBox2键入的内容

例:
某网站的会员ID是存放在一个TXT文件里的(假设为 ID.TXT),每个会员名称占一行,Text1调用ID.TXT 这一部分我已经完成了
假设Text2是登陆框中的usname(Pass暂且不管) 点击Command后 在Text1中搜索Text2键入的内容,重点!!!!前面提到 Text1中每个会员名称占一行 再假设,Text1中现在的内容为:
huiyuan1
huiyuan2
huiyuan3
huiyuan4
.........

Text2中输入huiyuan5然后点击Command执行查找命令 若huiyuan5存在于Text1中的某行则执行命令 否则返回值

注意的是 Text1中的内容不是固定的 网站内容会更新
希望前辈们能给出代码,本人新手,防止ad所以不悬赏了 问题解决追加

若以下回答无法解决问题，邀请你更新回答

Answer 1

一般这样的情况不用text1
一般会用列表控件
还有 text1显示在登录窗口上。。？

追问

List也行 只要能搜索 还有 登陆那是举例 我的用途不是登陆

追答

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_GETLINE = &HC4

Private Sub Command1_Click()
Dim str(256) As Byte
Dim LineCount As Long, i As Long
Dim s As String, flag As Boolean
str(1) = 1
LineCount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0)
For i = 0 To LineCount
SendMessage Text1.hwnd, EM_GETLINE, i, str(0)
s = Replace(StrConv(str, vbUnicode), Chr(0), "")
If s = Trim(Me.Text2.Text) Then
MsgBox s
flag = True
Exit For
End If
Next i
If flag = False Then MsgBox "没有这个用户"
End Sub

还是建议使用listbox