模块中怎么提取窗体form1的值

15670057789

窗体form1的代码：
Private Sub CommandButton1_Click()
Unload Me
End Sub
-------------------
模块的代码：
Function Tx() As String
UserForm1.Show

    MsgBox (UserForm1.TextBox1.Text)

End Function
---------------------
我试了一下也不管用

15670057789

在线等。急急急~~~

15670057789

..........

wangweihebtu

Private Sub CommandButton1_Click()
MsgBox TextBox1.Value
End Sub

ivccav

窗体卸载的时候，其属性一起没有了。
而窗体加载的时候，是模态的，模块中后续代码根本没有办法运行。

窗体也是可以非模态的：UserForm1.Show 0:DoEvents，

这样模块后续代码也可以运行，但根本没有给你输入内容的机会就跑完代码了。

所以，需用一个模块公共变量承接窗体输入的内容。

模块中代码：



窗体中代码：



不过这样也可，就是有点怪：


传递过程就是这样了。根据需要自行修改吧：附件

Book1.zip (13.58 KB, 下载次数: 21)

2018-7-2 19:25 上传

点击文件名下载附件

一把小刀闯天下

Option Explicit

Function Tx() As String
  With UserForm1
    MsgBox .TextBox1
    .Show
  End With
End Function

不知道为什么

ivccav 发表于 2018-7-2 19:25
窗体卸载的时候，其属性一起没有了。
而窗体加载的时候，是模态的，模块中后续代码根本没有办法运行。

你是我见到的业余选手中最专业的！呵呵