怎么在vb中使用标准模块的方式实现直接给界面定制参数的实现？

Question

怎么在vb中使用标准模块的方式实现直接给界面定制参数的实现？不通过界面vb有办法给界面传参么？

Answer 1

你所说的界面应该是VB中的窗体吧。要实现你的想法其实很简单的，只要在窗体中定义几个可写属性就能实现了。比如下面的代码：
Form1中的代码
Public X as Long '最简单的定义属性的方法
Dim m_Y as long
Public Property Get Y() as Long
Y=m_Y
End Property

Public Property Let Y(Byval NewValue as Long)
m_Y=NewValue
End Property
在标准模块中的某个地方：
Dim frm as Form1
frm.X=1
frm.Y=2
frm.Show