Office中国论坛/Access中国论坛

标题: 这个函数错在哪里? [打印本页]

作者: kelind 时间: 2005-3-14 07:24
标题: 这个函数错在哪里?
窗体上用图像作命令控件,当鼠标DOWN时变大,松开时变少. 我用一函数来定义所有的图像.

不知怎么就不行,帮看看.

For Each ctrl In Me.Controls

If TypeOf ctrl Is Image Then

   If img.Tag = 103 Then

         If ctrl.MouseDown Then

            img.Height = 1880

            img.Width = 1900

         End If

            If ctrl.MouseUp Then

            img.Height = 980

            img.Width = 1000

            End If

      End If

   End If

Next ctrl

End Function

Private Sub Form_Load()

Call imgclick([图像0])

End Sub

作者: cg1 时间: 2005-3-14 18:32
如何不行，说出具体错误好么？============================================================================个性化的access911.net（四）本站新增手机 WAP 站点《其他》http://access911.net 作为中国ACCESS站点中第一个推出自主 RSS 定阅的站点，近期又将推出中国第一个讨论 ACCESS 应用的 WAP 站点，现在已经开始建站测试，请用你的手机访问 http://access911.net/wap，我也需要大量适合 WAP 手机访问的 ACCESS 原创文章，如有投稿请发MAIL 至 access911@etang.com 或者直接登录以下地址在网上投稿：http://access911.net/wap/contribute.asp，您也可以用手机投稿，地址同样为：http://access911.net/wap/contribute.asp请注意，上述 WAP 站点目前只能使用手机 GPRS 拨号上 WAP 网以后浏览，暂时还未开发 PC 机上使用的界面，如果您要用 PC 机浏览本 WAP 网站，请与 cg1 本人联系。============================================================================

作者: kelind 时间: 2005-3-15 00:41
没有反映,图像无变化.

作者: Trynew 时间: 2005-3-15 17:41
Function imgclick()

Dim ctrl As Control

For Each ctrl In Me.Controls

If TypeOf ctrl Is Image Then

   If ctrl.Tag = 103 Then

         ctrl.OnMouseDown = "=imgMouseDown(" & ctrl.Name & ")"

         ctrl.OnMouseUp = "=imgMouseUp(" & ctrl.Name & ")"

         ctrl.Height = 980

         ctrl.Width = 1000

   End If

End If

Next ctrl

End Function

Function imgMouseDown(img As Image)

img.Height = 1880

img.Width = 1900

End Function

Function imgMouseUp(img As Image)

img.Height = 980

img.Width = 1000

End Function

Private Sub Form_Load()

Call imgclick

End Sub

[attach]9413[/attach]

我没找到ctrl.MouseDown属性，只有ctrl.OnMouseDown ，即控件的鼠标按下事件。

作者: kelind 时间: 2005-3-18 17:13
谢谢,但这个函数这能在当前窗体运行, 若设计成模块, in me.controls 该怎么改? 请指教.

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