我试图访问StudentRegistration表单中的3个文本框和1个标签。
我通过一个模块将其声明为公共。
Module StudentInfo
Public student_no As String = StudentRegistration.lblstudentno.Text
Public lastname As String = StudentRegistration.txtlastname.Text
Public firstname As String = StudentRegistration.txtfirstname.Text
Public middlename As String = StudentRegistration.txtmiddlename.Text
End Module
我试图将其访问到另一个表单中,但在加载表单时无法自动显示。
你能帮我吗???
Private Sub Payment_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
student_no = lblstudentno.Text
lastname = lbllastname.Text
firstname = lblfirstname.Text
middlename = lblfirstname.Text
End Sub
我试图在visual basic中重现上面的代码,假设"Payment"表单包含四个标签,分别命名为lblstudentno、lbllastname、lblfirstname和lblmidlename(不再是lblfirstaname…)。我并不反对使用具有模块级作用域的变量。我同意"OneFineDay"的观点,即变量和它们各自的值应该写在"付款"形式中,反之亦然。。。
Private Sub Payment_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
lblstudentn.Text = student_no
lbllastname.Text = lastname
lblfirstname.Text = firstname
lblmiddlename.Text = middlename
End Sub
此外,我想提到的是,student_no、lastname等值只有在我第一次在"StudentRegistration"表单的文本框中写入一些文本时才发生变化。与其初始化StudentInfo"Module"中的变量,我建议只按如下方式声明模块中的变量。。。
Module StudentInfo
Public student_no As String
Public lastname As String
Public firstname As String
Public middlename As String
End Module
然后,在加载"Payment"表单之前的某个事件中,更新变量的值。
Public Class StudentRegistration
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
student_no = lblstudentno.Text
lastname = txtlastname.Text
firstname = txtfirstname.Text
middlename = txtmiddlename.Text
Payment.Show()
End Sub
End Class
我不确定这一切是否在vb.net中有效,但我希望我的评论是有用的!!