[英]Save VB data entry to Text File
因此,我编写了这段代码,吸收了用户输入的信息。
Public Class Patient
Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label1.Text = "First Name:"
Label2.Text = "Last Name:"
Label3.Text = "Address: "
Label4.Text = "City:"
Label5.Text = "Province: "
Label6.Text = "Postal Code: "
Label7.Text = "Health Card Number: "
If (CollectionIndexValue <> -1) Then
Dim existingPatient As New PatientObject4
existingPatient = PatientCollection(CollectionIndexValue)
TextBox1.Text = existingPatient.Firstname
TextBox2.Text = existingPatient.LastName
TextBox3.Text = existingPatient.Address
TextBox4.Text = existingPatient.City
TextBox5.Text = existingPatient.Province
TextBox6.Text = existingPatient.PostalCode
TextBox7.Text = existingPatient.HealthCardNumber
Button1.Text = "Save"
Else
Button1.Text = "Add"
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or
TextBox5.Text = "" Or TextBox6.Text = "" And TextBox7.Text = "") Then
Label8.Text = "All fields must be populated"
Else
If (Button1.Text.ToUpper() = "ADD") Then
Dim PatientObject As New PatientObject4
PatientObject.Firstname = TextBox1.Text
PatientObject.LastName = TextBox2.Text
PatientObject.Address = TextBox2.Text
PatientObject.City = TextBox4.Text
PatientObject.Province = TextBox5.Text
PatientObject.HealthCardNumber = TextBox7.Text
PatientCollection.Add(PatientObject)
Label8.Text = "Patient Added"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
Else
Dim PatientSave As New PatientObject4
PatientSave.Firstname = TextBox1.Text
PatientSave.LastName = TextBox2.Text
PatientSave.Address = TextBox3.Text
PatientSave.City = TextBox4.Text
PatientSave.Province = TextBox5.Text
PatientSave.PostalCode = TextBox6.Text
PatientSave.LastName = TextBox7.Text
PatientCollection(CollectionIndexValue) = PatientSave
Label8.Text = "Patient Saved"
End If
End If
End Sub
End Class
如果我希望在添加新患者时将该信息保存到文本文件(创建新文本文件)中。 如何去做呢? 我试图用Google搜索它,但是当您不知道要查找的内容时,它有点困难。
任何帮助/想法将不胜感激。
谢谢。
PS这只是较大代码的一小段。 谢谢。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.