Private Sub Command1_Click()
Open "C:\Users\123\Desktop\123.txt" For Output As #1
Print #1, Text1
Text1.Text = "姓名:" + txtname + ",年龄:" + txtage + ",性别:" + txtsex + ",身份证号:" + txtid + ",毕业学校:" + txtschool + ",家庭住址:" + txtad + ",高考分数:" + txtscore
End Sub
(请问这一段哪里错了??)
Private Sub Command2_Click()
shell "notepad " & "C:\Users\123\Desktop\123.txt", vbMaximizedFocus
End Sub
Private Sub Command3_Click()
txtname.Text = "": txtage.Text = "": txtsex.Text = "": txtid.Text = "": txtschool.Text = "": txtad.Text = "": txtscore = ""
End Sub
Private Sub Command4_Click()
End
End Sub