这个函数错在哪里?

kelind

窗体上用图像作命令控件,当鼠标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

如何不行，说出具体错误好么？============================================================================个性化的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

没有反映,图像无变化.

Trynew

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





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

kelind

谢谢,但这个函数这能在当前窗体运行, 若设计成模块, in me.controls 该怎么改? 请指教.