易语言将编辑框透明化的代码实例

.版本 2.DLL命令 窗口_置信息_DLL, 整数型, , "SetWindowLongA", , 值  .参数 hwnd  .参数 nIndex  .参数 dwNewLong.DLL命令 窗口_置透明度_DLL, 整数型, , "SetLayeredWindowAttributes"  .参数 hwnd  .参数 crkey  .参数 alpha, 字节型  .参数 dwflags.DLL命令 窗口_取信息_DLL, 整数型, "user32", "GetWindowLongA"  .参数 hwnd  .参数 nIndex

.版本 2.程序集 窗口程序集1.子程序 __启动窗口_创建完毕窗口_透明_去色 (取窗口句柄 (), #墨绿) ' 这里的“墨绿”颜色是在属性中设置的背景颜色.子程序 窗口_透明_去色, 整数型, 公开.参数 窗口句柄.参数 透明色.局部变量 风格风格 ＝ 窗口_取信息_DLL (窗口句柄, -20)风格 ＝ 位或 (风格, 524288)窗口_置信息_DLL (窗口句柄, -20, 风格)窗口_置透明度_DLL (窗口句柄, 透明色, 0, 1)返回 (透明色)