您的位置：程序门 -> vb -> 基础类

动态菜单中如何给窗体传参数?

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

动态菜单中如何给窗体传参数?[已结贴,结贴人:gslrq]

发表于：2007-09-17 22:12:17 楼主

private sub setform（strfrmname as string)

on error resume next
dim newoenform as form
set newoenform = forms.add（strfrmname )
newoenform.show

end sub

如何给newoenform中的一个变量strcode传参数?

发表于：2007-09-17 22:56:401楼得分:20

属性会写吗？在form里写一个属性

'form2代码：
option explicit
private m_mydata as string
public property get mydata（) as string
mydata = m_mydata
end property
public property let mydata（byval vnewvalue as string)
m_mydata = vnewvalue
end property

'form1代码：
option explicit
dim myform as form

private sub form_click（)
set myform = new form1
myform.show
myform.mydata = "123 "
msgbox myform.mydata
end sub

发表于：2007-09-17 23:06:582楼得分:0

'或者这样form1代码：
option explicit
dim myform as form2 '此处定义为form2
private sub form_click（)
set myform = forms.add（ "sdf ")
myform.caption = "myform " & forms.count
myform.show
myform.mydata = "rtyrty "
msgbox myform.mydata
end sub

发表于：2007-09-17 23:09:053楼得分:0

'弄错了form1代码：
option explicit
dim myform as form2 '此处定义为form2

private sub form_click（)
set myform = forms.add（ "form2 ")
myform.caption = "myform " & forms.count
myform.show
myform.mydata = "rtyrty "
msgbox myform.mydata
end sub

发表于：2007-09-18 09:01:384楼得分:0

谢谢,
现在是这样的,我是将from2的窗体名全部存在表中,已知窗体名是form1,

dim myform as form2 '此处定义为form2
下面定义怎么写?

发表于：2007-09-23 14:09:275楼得分:0

说具体点

发表于：2007-09-24 10:09:186楼得分:0

按你的方法已经解决,谢谢!

其他资讯