Office中国论坛/Access中国论坛

标题: 公共变量设置与个别窗体调用的问题! [打印本页]

作者: LIXIANACCP 时间: 2006-8-14 21:05
标题: 公共变量设置与个别窗体调用的问题!
下列窗体加载代码,我想把它设置成公共变量,在写个别窗体加载时,简单调用即可!

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 时间: 2006-8-14 21:51
写成涵数可以

作者: LIXIANACCP 时间: 2006-8-14 23:57

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

写成涵数可以

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

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

作者: LIXIANACCP 时间: 2006-8-15 20:46
没有愿意教导一下吗？

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

一般是：function k

k ？？

end function

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

作者: andymark 时间: 2006-8-16 07:18
调用:

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)