求高手,易语言,启动窗口怎样搞成透明化,还有怎么样可以插入FLASH,请高手留下QQ,进一步探讨,谢谢
.版本 2
.DLL命令 窗口_置透明度_DLL, 整数型, , "SetLayeredWindowAttributes"
.参数 hwnd
.参数 crkey
.参数 alpha, 字节型
.参数 dwflags
.DLL命令 窗口_置信息_DLL, 整数型, , "SetWindowLongA", , , 值
.参数 hwnd
.参数 nIndex
.参数 dwNewLong
--------------------------------------------------------------------------------------------------------
调用方法:
.版本 2
.子程序 __启动窗口_创建完毕
窗口_透明_去色 (取窗口句柄 (), #品红)
.子程序 窗口_透明_去色, 整数型, 公开
.参数 窗口句柄
.参数 透明色
.局部变量 风格
风格 = 窗口_取信息_DLL (窗口句柄, -20)
风格 = 位或 (风格, 524288)
窗口_置信息_DLL (窗口句柄, -20, 风格)
窗口_置透明度_DLL (窗口句柄, 透明色, 0, 1)
返回 (透明色)
添加flash可以下载Flash控件1.0版