Question

vb控件的问题

Private Sub Form_Load()
Open "D:\Pelican Workroom\用户名与密码\data.txt" For Input As #1
Line Input #1, inputdata
yhm.Text = inputdata
Line Input #1, inputdata
mm.Text = inputdata
Close #1
End Sub
Private Sub save_Click()
Open "D:\Pelican Workroom\用户名与密码\data.txt" For Input As #1
Print #1, yhm.Text
Print #2, mm.Text
Close #1
End Sub

Answer 1

Input是从文件中读取数据，在读取中需要就读取的数据存储在变量中，然后给其他控件用变量赋值，你的代码有问题，虽然打开了文件，但没有读取到文件的内容。
修改如下：
Private Sub Form_Load()
Open "D:\Pelican Workroom\用户名与密码\data.txt" For Input As #1
Input #1, 用户名,密码 '用二个变量分别存储用户名和密码，这里变量名可以修改为其他英文字符
Close #1
yhm.Text = 用户名 '显示用户名
mm.Text = 密码 '显示密码
End Sub

另外Input仅仅是读取文件，不可能存储的，如果要存储文件，必须使用Output关键字，它是修改文件，并且覆盖原来数据，在存储时还要使用Write关键字。
修改如下：
Private Sub save_Click()
Open "D:\Pelican Workroom\用户名与密码\data.txt" For Output As #1
Write #1, yhm.Text,mm.Text
Close #1
End Sub

Answer 2

data.txt文件里没内容吧

Answer 3

啥问题你都没说……

追问

输入超出文件尾

追答

加一条语句，判断是不是结尾，如果没记错的话应该是下面的代码，如果是错的话再找我，希望能帮你解决……
Do While Not EOF(1)
Line Input #1, inputdata
yhm.Text = inputdata
.
.
.
.
Loop
Close #1