文本框和标签,然后以另一种形式访问它



我试图访问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中有效,但我希望我的评论是有用的!!

最新更新