VB，使FORM1内单击创建的text等于，FORM2的TEXT里输入的值。
答案:1 悬赏:30 手机版
解决时间 2021-11-25 06:44
- 提问者网友：戎马万世
- 2021-11-24 22:56
VB，使FORM1内单击创建的text等于，FORM2的TEXT里输入的值。
最佳答案
- 五星知识达人网友：洎扰庸人
- 2021-11-24 23:53
在form1放置 控件组 text1, 只留text1(0), visible属性设置为 false
form2放置 text2 和commandbutton1
form1 代码：
Public n As Integer
Private Sub Form_Click()
If Text1(0).Visible = False Then
Form2.Show 1
Text1(0).Visible = True
n = 0
Exit Sub
End If
n = n + 1
Load Text1(n)
Text1(n).Top = Text1(n - 1).Top + Text1(0).Height + 200
Form2.Show 1
Text1(n).Visible = True
End Sub
form2代码：
Private Sub Command1_Click()
Form1.Text1(Form1.n).Text = Text2.Text
Unload Me
End Sub
form2放置 text2 和commandbutton1
form1 代码：
Public n As Integer
Private Sub Form_Click()
If Text1(0).Visible = False Then
Form2.Show 1
Text1(0).Visible = True
n = 0
Exit Sub
End If
n = n + 1
Load Text1(n)
Text1(n).Top = Text1(n - 1).Top + Text1(0).Height + 200
Form2.Show 1
Text1(n).Visible = True
End Sub
form2代码：
Private Sub Command1_Click()
Form1.Text1(Form1.n).Text = Text2.Text
Unload Me
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯