.版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 .局部变量 ret, 整数型 ret ＝ 取得窗口信息_ (取窗口句柄 (), -20) ret ＝ ret ＋ 524288 设置窗口信息_ (取窗口句柄 (), -20, ret) 设置窗口透明度 (取窗口句柄 (), #红色, 100, 3) ' 全透明指定区域颜色,可控其它区域透明度 设置窗口透明度 (取窗口句柄 (), 0, 100, 2) ' 透明整个窗口 设置窗口透明度 (取窗口句柄 (), #红色, 100, 1) ' 透明指定区域颜色,可控其它区域透明度 ' 　LWA_ALPHA = 0x2 　　LWA_COLORKEY=0x1 LWA_ALPHA + LWA_COLORKEY。这样crKey的地方将变为全透明，而其它地方根据bAlpha参数确定透明度。 ' 当取值为LWA_ALPHA时，crKey参数无效，bAlpha参数有效； ' 当取值为LWA_COLORKEY时，窗体中的所有颜色为crKey的地方将变为透明，bAlpha参数无效。 .子程序 _按钮1_被单击 标签1.横向对齐方式 ＝ 1 .子程序 _透明标签1_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 销毁 () .子程序 _标签1_反馈事件, 整数型 .参数 参数一, 整数型 .参数 参数二, 整数型