公共变量设置与个别窗体调用的问题!

LIXIANACCP

下列窗体加载代码,我想把它设置成公共变量,在写个别窗体加载时,简单调用即可!

Private Sub Form_Load()

DoCmd.Echo False

Dim x, y As Integer

DoCmd.Maximize

x = Me.WindowWidth

y = Me.WindowHeight

DoCmd.Restore

DoCmd.Echo True

Move (x - Me.WindowWidth) / 10, (y - Me.WindowHeight) / 10

End Sub

我假想把上述代码段设置为K

在A窗体调用是写成

Private Sub Form_Load()

K

End Sub

这样可行吗?

andymark

写成涵数可以

LIXIANACCP

以下是引用andymark在2006-8-14 13:51:00的发言：


写成涵数可以

就是不懂这种涵数怎么样写才问嘛！

[此贴子已经被作者于2006-8-14 15:59:16编辑过]

LIXIANACCP

没有愿意教导一下吗？

1。这个涵数体怎么定义？

一般是：function k

              k    ？？

end function

2.怎么引用这个涵数体？

andymark

调用:

Private Sub Form_Load()

MoveForm Me


End Sub


在模块里:

Function MoveForm(frm As Form)

    DoCmd.Echo False

    Dim x, y As Integer

    DoCmd.Maximize

    x = frm.WindowWidth


    y = frm.WindowHeight

    DoCmd.Restore

    DoCmd.Echo True

    DoCmd.MoveSize (x - frm.WindowWidth) / 10, (y - frm.WindowHeight) / 10


End Function