我在Form_Activate方法里赋文本框里的值给变量现实吗？

wjq09 发布于 2016-05-20 11:41， 2261 次点击

要做一个计算的程序，有什么好办法能把文本框的值传给内存里的变量

9 回复

ZHRXJR2016-05-20 15:37

Form_Activate是事件，不是方法，作用是激活窗体就会发生这个事件

程序代码：

Private Sub Form_Activate()
Dim xx As String
xx = Text1.Text
MsgBox xx
End Sub

在窗体获得焦点时，可以将文本框的数据赋值到变量，但一般不这样，而是在Form_Load窗体启动事件中实现。

wjq092016-05-20 15:42

回复 2楼 ZHRXJR

我的变量需要用户输入，用Form_Load是不是不合适

xiangyue05102016-05-20 17:20

a= inputbox("请输入参数")

yangfrancis2016-05-20 20:00

等你输入之后，提取Text1.Text的值不就行了么？如果是数值，提取Val(Text1.Text),是不是这个意思？

wjq092016-05-20 21:12

回复 5楼 yangfrancis

问题是提取放在哪个事件过程里比较合适，不想放太多按钮

ZHRXJR2016-05-21 09:12

回复 3楼 wjq09

程序代码：

Private Sub Form_DblClick()
Dim xx As String
xx = Text1.Text
MsgBox xx
End Sub

窗体的双击事件也比 Form_Activate事件好多了，可以自由操作。

chen35232016-05-21 17:21

放在需要调用输入数据的地方

yangfrancis2016-05-21 21:16

回复 6楼 wjq09

增加确定按钮，在点击事件里提取，这是必要的事件添加。如果舍不得添控件，只有试试TextChange事件了。TextChange我没用过，不知效果如何。

#10

wjq092016-05-23 09:35

回复 7楼 ZHRXJR

你说我把变量赋值语句放在Form_LostFocus事件过程里会不会好些