VB编程遇到的一个问题

来源：百度知道 编辑：UC知道 时间：2024/05/21 19:32:58
在form1中定义user，用于存储一个文本框的输入，若在form2中，想让一个标签label1的caption为user的内容，该如何写代码？(也就是当form2启动的时候label1显示的是user的内容)
怎么将User值赋给Caption？代码是什么？
label1.caption=form1.user不能实现，提示未找到方法或数据成员

二楼的回答是错误的，写成“form1.text1.text ”会出错，直接写成“form1.text1”就行了。

至于怎样用user变量作为过度变量,关键是要将user定义为函数形式而不是变量形式，具体做法如下：
a.公共部分代码：
Option Explicit
Public Function user(s As String) As String
user = s
End Function

b.窗体1中其余部分代码如下：
Private Sub Form_Load() 'Text1的内容未改变时也能给user赋值
user (Text1.Text)
End Sub

Private Sub Text1_Change()
user (Text1.Text)
End Sub

c.启动Form2时标签内容为user，代码为：
Private Sub Form_Load()
Label1.Caption = Form1.user(Form1.Text1)
End Sub

你可以建一个公用模块,把USER定义在里面公用
然后再在form2_load()下将USER赋值给CAPTION
你试试吧

label1.caption = form1.text1.text
或者 label1.caption = form1.user