窗口的淡入淡出,请指教.

 
  使用AnimateWindow函数的效果不是很好.  
   
  大侠们能不能提供点代码,我想达到下面这种效果:  
   
  窗体加载有背影图片.  
   
  显示窗体时,图片和窗体一起慢慢显示出来  
  (如果使用AnimateWindow函数,则如果显示的慢了,最开始显示的是黑色.)  
   
  关闭窗体时,图片和窗体一起慢慢消失.  
   
  请指教.  
   
   
   
   
   
  问题点数：50、回复次数：4Top

1 楼laviewpbt（人一定要靠自己）回复于 2006-03-05 00:17:20 得分 5

用SetLayeredWindowAttributes可以做到Top

2 楼rainstormmaster（暴风雨 v2.0）回复于 2006-03-05 01:35:39 得分 35

//如果使用AnimateWindow函数,则如果显示的慢了,最开始显示的是黑色  
   
  那是你AnimateWindow用的有问题,参考:  
  http://community.csdn.net/Expert/topic/4442/4442164.xml?temp=.8324854Top

3 楼CrazyHosptial（偷粮换猪）回复于 2006-03-05 01:50:46 得分 10

去:   http://victorns.ys168.com/   下个模块吧.    
  窗体代码:  
  Option   Explicit  
   
  Private   Sub   Command1_Click()  
          TransForm   Me,   50,   255,   2,   True,   True  
  End   Sub  
   
  Private   Sub   Command2_Click()  
          TransForm   Me,   50,   255,   2,   False,   True  
  End   Sub  
   
  Private   Sub   Command3_Click()  
          SetTFVal   Me,   255  
  End   Sub  
   
  Private   Sub   Form_Load()  
          TransForm   Me,   0,   255,   3,   True,   True  
          Command1.Caption   =   "淡入"  
          Command2.Caption   =   "淡出"  
          Command2.Caption   =   "指定透明度"  
  End   Sub  
  Top

4 楼yufeng7707（bigbang）回复于 2006-03-05 19:36:44 得分 0

谢谢各位.问题解决.Top

相关问题

• 函数
• me
• 窗体
• animatewindow
• subprivate
• 显示
• caption
• transform me
• 图片
• sub

• 帖主：yufeng7707
• laviewpbt
• rainstormmaster
• CrazyHosptial

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