我创建了一个Class
员工类型
Private emplId As String
Private name As String
Private rank As String
Private post As String
我创建了一个带有函数 Inside 的模块,它返回一个对象类型 Employee。
Public Function FuncNewPerson(Emplid As String) As Employee
Dim newPerson As New Employee
With newPerson
newPerson.SetEmplid = Emplid
newPerson.SetName = mytab(25, 1)
newPerson.SetRank = mytab(23, 1)
newPerson.SetPost = mytab(27, 1)
Set FuncNewPerson = newPerson
我使用了两个UserForms
,在选择了一个之后的第一个emplId
通过ComboBox
它初始化一个对象类型Employee
,然后我用对象的属性填充TextBox
第一个的所有:UserForm
get
RequestForm.TxtBoxPerson = person.GetName
RequestForm.txtBoxRank = person.GetRank
在这一点上,UserForm
我有一个Button
叫第二个的人:
Public Sub BtnVerify_Click()
Me.Hide
ValidationForm.Show
End Sub
在第二个中,UserForm
我还有其他一些TextBox
要填写:
ValidationForm.TxtBoxEmployee = person.GetEmplid
ValidationForm.txtBoxRank = person.GetRank
ValidationForm.txtBoxPost = person.GetPost
我想使用已经在内存中的对象,所以我的第一个想法是将它作为参数从第一种形式传递给第二种形式。
当然,我已经在网上搜索过,但我现在对此更加困惑,这就是为什么我在这里寻求帮助的原因是:
谢谢
在第二种形式中,创建一个合适的变量
Private Person as Employee
然后创建一个属性
Property Set CurrentPerson(p as Employee)
set person = p
End Property
然后在第一个表单的代码中设置此属性
Public Sub BtnVerify_Click()
Me.Hide
ValidationForm.Show
Set validationform.currentperson = person
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句