none
我篇写了FORM3 control FORM2 的code RRS feed

  • 问题

  • 我有两个window

    form 2 和 form 3 

    form 2 有两个按钮

    return

    new

    当用户按new(FORM3)填写资料后,用户save成功后就会回到form2并且呈现所填写的资料。

    当用户按return就会回到(FORM3)并且可以在text box中保留了之前填写的资料。 

    Form2

     Public Property stringCID As String
        Public Property stringCategory As String
        Public Property stringCN As String
        Public Property stringPIC As String

     Private Sub ContentControl()
            txtCherckerID.Text = stringCID
            txtCategory.Text = stringCategory
            txtCheckerName.Text = stringCN
            txtPIC.Text = stringPIC
        End Sub


    Private Sub btn_Return_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Return.Click
            Form3.ShowDialog()
            Me.Hide()
        End Sub

         

      Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click

        Dim form3 As New Form3
            form3.ShowDialog()


        End Sub

    FORM3

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
            Dim OBJ As New Form2
            OBJ.stringCID = txtCheckerID1.Text
            OBJ.stringCategory = txtCategory.Text
            OBJ.stringCN = txtcheckername.Text
            OBJ.stringPIC = txtPIC.Text
            OBJ.Show()
            Me.Hide()
        End Sub

    我想篇写的格式是当用户在FORM3 填写资料后user return的话数据会保留。当user按new form3 时会出现没有填写过资料的form是一个全新的form





    2020年2月21日 4:50

答案

  • '在Form2的格子里,这样写:
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
            Form2.stringCID = Form3.txtCheckerID1.Text
            Form2stringCategory = Form3.txtCategory.Text
            Form2.stringCN = Form3.txtcheckername.Text
            Form2.stringPIC =Form3. txtPIC.Text
            Form2.Show()
            Me.Hide()
        End Sub


    Reproduce your quesions with ScreenToGif is your choice. 
    For IIS: IIS Forum
    For WebSite of .NET: ASP.NET Forum
    For others: StackExchange
    For spam-sender or forum urgent issues, Send your Email at:  forumsfeedback@microsoft.com

    • 已标记为答案 christing 2020年2月24日 10:16
    2020年2月24日 2:26
    版主

全部回复

  • Hi christing,

    根据你目前的代码,你最后的需求已经实现了,所以希望你检查一下。

    或者你描述的更清晰一点,你想在form3上面做什么?

    另外,你开头说有form1,后面却没有提到,那么和form1有没有关系呢?

    Best Regards,

    Jack


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    2020年2月21日 9:41
  • >>我想篇写的格式是当用户在FORM3 填写资料后user return的话数据会保留。当user按new form3 时会出现没有填写过资料的form是一个全新的form

    因为你使用了New的缘故,这样它会默认创建一个新的Form。

    既然你使用VB.NET,建议你直接使用对象即可,例如:

    Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click Form3.ShowDialog() End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
            Form2.stringCID = txtCheckerID1.Text
            Form2stringCategory = txtCategory.Text
            Form2.stringCN = txtcheckername.Text
            Form2.stringPIC = txtPIC.Text
            Form2.Show()
            Me.Hide()
        End Sub



    Reproduce your quesions with ScreenToGif is your choice. 
    For IIS: IIS Forum
    For WebSite of .NET: ASP.NET Forum
    For others: StackExchange
    For spam-sender or forum urgent issues, Send your Email at:  forumsfeedback@microsoft.com

    2020年2月22日 7:56
    版主
  • @Jack J Jun

    感谢您的回复

    我更换了form1去form2,form2 去form3.

    我想请教...有没有可能实现每当用户按new时就出现新的new form3,当用户按return时就会return回去form 3 并且可以在form3 看得到之前keyin 的资料呢。

    2020年2月22日 15:51
  • @Thankful Heart

    我尝试了你提供的代码。当我按save后我无法成功把资料save成功并呈现在form2的textbox。

    Form3.ShowDialog() 当我重新按 Form3.ShowDialog()我的form3还是能看到之前的资料



    2020年2月23日 3:24
  • Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click '此處把你的Form3的內容清空,比如TextBox啥的 Form3.txtText = ""

    ……………… Form3.ShowDialog() End Sub




    Reproduce your quesions with ScreenToGif is your choice. 
    For IIS: IIS Forum
    For WebSite of .NET: ASP.NET Forum
    For others: StackExchange
    For spam-sender or forum urgent issues, Send your Email at:  forumsfeedback@microsoft.com


    2020年2月24日 2:24
    版主
  • '在Form2的格子里,这样写:
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
            Form2.stringCID = Form3.txtCheckerID1.Text
            Form2stringCategory = Form3.txtCategory.Text
            Form2.stringCN = Form3.txtcheckername.Text
            Form2.stringPIC =Form3. txtPIC.Text
            Form2.Show()
            Me.Hide()
        End Sub


    Reproduce your quesions with ScreenToGif is your choice. 
    For IIS: IIS Forum
    For WebSite of .NET: ASP.NET Forum
    For others: StackExchange
    For spam-sender or forum urgent issues, Send your Email at:  forumsfeedback@microsoft.com

    • 已标记为答案 christing 2020年2月24日 10:16
    2020年2月24日 2:26
    版主
  • @Thankful Heart

    感谢你的指教。我将form3.showdialog 换成 form3.show 之后。我之前出现的重叠data 已不在出现。感恩你的指点。

    2020年2月24日 10:15