Office中国论坛/Access中国论坛

标题: 请帮分析以下函数错在哪里？？ [打印本页]

作者: access_boy_li 时间: 2009-5-13 00:55
标题: 请帮分析以下函数错在哪里？？
Public Function getCenter(frm As Form)
Dim intLeft As Integer
intLeft = (Forms.[frm].WindowWidth - Forms.[frm].[lbl].Width) / 2
End Function

Private Sub Command7_Click()

Label1.Move getCenter(frm1)

End Sub

编译错误:
ByRef 参数类型不符.

作者: tz-chf 时间: 2009-5-13 06:08
变量写法不对

作者: access_boy_li 时间: 2009-5-13 10:07
谢谢，可以指出错在哪里吗？？不知道怎么改？？

作者: tz-chf 时间: 2009-5-13 14:45
intLeft = (frm.WindowWidth - frm.[lbl].Width) / 2

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