
怎样实现单击form1中的一个按钮,显示form2,并将form1中的textbox1中的文本内容传递到form2中的infor文本框 5
4个回答
展开全部
新建VB工程,除默认Form1外,添加一个窗体Form2,在Form1上添加一个文本框Text1和一个按钮Command1,在窗体Form2上添加一下文本框Text2,在窗体Form1中添加如下代码:
Private Sub Command1_Click()
Form2.Text1.Text = Text1.Text '把Form1的文本框Text1的内容传递给Form2的文本框Text2
Form1.Hide '隐藏Form1
Form2.Show '显示Form2
End Sub
Private Sub Command1_Click()
Form2.Text1.Text = Text1.Text '把Form1的文本框Text1的内容传递给Form2的文本框Text2
Form1.Hide '隐藏Form1
Form2.Show '显示Form2
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
private sub cmd1_Click( )
Form1.hide
Form2.Show '点击form1上的按钮,弹出form2
form2. infor.text=textbox1.text '将textbox1中的文本内容传递到infor文本框
end sub
Form1.hide
Form2.Show '点击form1上的按钮,弹出form2
form2. infor.text=textbox1.text '将textbox1中的文本内容传递到infor文本框
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
form1一按钮的点击事件代码:
Load Form2
Form2.infor.Text=Form1.Textbox1.Text
Form2.Show 1
Load Form2
Form2.infor.Text=Form1.Textbox1.Text
Form2.Show 1
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
vb.net 2008 通过
Public Class Form1
Private Sub ButtonShowText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonShowText.Click
If My.Forms.Form2.Visible = False Then My.Forms.Form2.Show()
My.Forms.Form2.showTextInfo(TextBox1.Text)
End Sub
End Class
Public Class Form2
Public Sub showTextInfo(ByVal ShowText As String)
TextBoxInfo.Text = ShowText
End Sub
End Class
Public Class Form1
Private Sub ButtonShowText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonShowText.Click
If My.Forms.Form2.Visible = False Then My.Forms.Form2.Show()
My.Forms.Form2.showTextInfo(TextBox1.Text)
End Sub
End Class
Public Class Form2
Public Sub showTextInfo(ByVal ShowText As String)
TextBoxInfo.Text = ShowText
End Sub
End Class
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询