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

.版本 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)
返回 (透明色)