能否让picturebox或images控件在鼠标移入时自动改变图片框中的图片（急）

请问各位大哥大姐  
  能否让picturebox或images控件在鼠标移入时自动改变图片框中的图片（急）  
  问题点数：20、回复次数：5Top

1 楼sundayboys（sunboy）回复于 2001-02-18 22:49:00 得分 0

呵呵，可以啊，在OnMouseMove事件中改变图片就是了。Top

2 楼blademan（不累得慢）回复于 2001-02-18 22:50:00 得分 20

filename1是原图，filename2是新图。  
   
   
  Option   Explicit  
  Dim   I,   P   As   Boolean  
   
  Private   Sub   Form_Load()  
   
          Image1.Picture   =   LoadPicture(filename1)  
          Picture1.Picture   =   LoadPicture(filename1)  
   
  End   Sub  
   
  Private   Sub   Form_MouseMove(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
   
          I   =   False  
          P   =   False  
          Image1.Picture   =   LoadPicture(filename1)  
          Picture1.Picture   =   LoadPicture(filename1)  
   
  End   Sub  
   
  Private   Sub   Image1_MouseMove(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
   
          If   Not   I   Then   Image1.Picture   =   LoadPicture(filename2)  
          I   =   True  
   
  End   Sub  
   
  Private   Sub   Picture1_MouseMove(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
   
          If   Not   P   Then   Picture1.Picture   =   LoadPicture(filename2)  
          P   =   True  
   
  End   Sub  
  Top

3 楼watercat17（水猫）回复于 2001-02-18 23:13:00 得分 0

To     sundayboys(sunboy)  
   
  根本就没有OnMouseMove事件啊！  
   
  Top

4 楼haor（一个好人）回复于 2001-02-18 23:30:00 得分 0

mousemove就可以了。Top

5 楼watercat17（水猫）回复于 2001-02-18 23:42:00 得分 0

可我想在鼠标移出时变回原来的图片，程序该怎么写呢？Top

相关问题

• 鼠标
• loadpicture
• picture
• 图片
• single
• 改变
• mousemove
• filename
• image
• subprivate sub

• 帖主：watercat17
• blademan

• Visual Basic类图书
• Visual Basic类源码下载