Readygo技术搜索引擎 网络搜索 efish 2008-1-17 7:17:09

请问高手鼠标移到一个控件上如PICTURE上，实现图片颜色渐变，移出控件颜色复原，如何实现？

楼主delf（delf）2001-11-18 20:11:44 在 VB / 控件 提问

问题点数：0、回复次数：10Top

1 楼delf（delf）回复于 2001-11-19 09:32:58 得分 0

难道用VB不能实现吗？Top

2 楼uguess（天地间，有我在行走！）回复于 2001-11-19 09:40:45 得分 0

当然可以实现，只不过我没有例子，又没时间写一个罢了。Top

3 楼xingming_sun（Andre）回复于 2001-11-19 09:44:48 得分 0

把2个颜色不一样的图片方在一起，然后用mousemove事件和鼠标的离开事件（需要API）  
  来处理Top

4 楼Richard2001（Richard）回复于 2001-11-19 09:48:05 得分 0

Form   中加入一个Picture,一个Timer控件：  
  Private   Sub   Form_MouseMove(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
          Timer1.Enabled   =   False  
  　　   Picture1.BackColor   =&H8000000F     "复原  
  End   Sub  
   
  Private   Sub   Picture1_MouseMove(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
          Timer1.Enabled   =   True  
  End   Sub  
   
  Private   Sub   Timer1_Timer()  
          If   Picture1.BackColor   <>   RGB(256,   0,   0)   Then  
                  Picture1.BackColor   =   RGB(256,   0,   0)  
          Else  
                  Picture1.BackColor   =   RGB(0,   256,   0)  
          End   If  
  End   Sub  
  Top

5 楼Richard2001（Richard）回复于 2001-11-19 09:59:25 得分 0

Timer的属性Interval=100       "不为0Top

6 楼delf（delf）回复于 2001-11-19 10:08:18 得分 0

to   Richard2001(Richard)　：  
  Form上的其他控件不也需要mousemove的复原代码吗？那多麻烦呀！  
   
  to   xingming_sun(Andre)：  
  鼠标的离开事件（需要API）的代码如何写呀，哪里有例子？Top

7 楼wufang（蓝点）回复于 2001-11-19 10:16:28 得分 0

form上的其它控件不需要mousemove，除非，这两个控件紧挨在一起，  
   
  另：鼠标的离开事件（需要API）的代码如何写呀，哪里有例子？    
   
        http://www.csdn.net/expert/topic/376/376907.shtmTop

8 楼Gadfly（海阔天空）回复于 2001-11-19 11:19:33 得分 0

当form_mousemove时,就让控件恢复原色.Top

9 楼windancer（^_^）回复于 2001-11-19 11:43:28 得分 0

Richard2001:你的这个程序好像不能实现"渐变"Top

10 楼NowCan（城市浪人）回复于 2001-11-19 12:52:35 得分 0

http://nowcan.yeah.net  
  方法也是用mousemoveTop