模式窗体淡入淡出问题在网上查些代码，都是无模式窗体淡入淡出，但我的大部分窗体都是有模式的。模式显示时便
模式窗体淡入淡出问题
在网上查些代码，都是无模式窗体淡入淡出，但我的大部分窗体都是有模式的。模式显示时便卡死。
例如：Form1.Show vbModal
Call dr(Form1)
dr函数里就是网上写的什么api函数GetWindowLong、SetWindowLong、SetLayeredWindowAttributes设置窗体透明度
奇怪的很，show时不加vbModal就没事，加了vbModal就一点反应都没有，整个程序都被卡死不动，结束不了。
求模式窗体淡入淡出的方法!
[解决办法]
这有什么奇怪的，
Call dr(Form1) 应该是实现‘淡入’效果的过程吧！
如果 Form1.Show vbModal
要等 Form1 关闭后才继续执行下面的语句，当然没效果了。
而如果 Form1.Show 没有带 vbModal ，则 Form1 显示出来后就会 Call dr(Form1) ，实现‘淡入’效果。
[解决办法]
Me.BorderStyle = 0: Me.Caption = "" '405是任务栏的高度(大约值,在此不另写计算它的实际高度代码)
上面这行请去掉
[解决办法]
要淡入淡出,是很简单的,但是他这里要求中有个"模态",则麻烦了点,要写多些代码实现.
要是不需要模态,用AnimateWindow一个API就可以搞定,嘿嘿.