VB6 API SetLayeredWindowAttributes遇到的问题

[三断笛]

有两个奇怪的问题,是一个类型QQ宠物的桌面程序,用SetLayeredWindowAttributes屏幕掉了背景色,只显示前端的Flash,但是我发现 在大部分机器上运行正确而在某些机器上却没有屏幕背景色我的语句是:



Dim Rtn As Long

Rtn = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Rtn = Rtn Or WS_EX_LAYERED
Rtn = SetWindowLong(Me.hWnd, GWL_EXSTYLE, Rtn)
Rtn=SetLayeredWindowAttributes(me.hWnd, me.BackColor, 0, LWA_COLORKEY) '此时我设置的背景色是纯黑

Me.show

另外我发现,只有在调色板选项卡里设置的颜色才可以被屏幕,而系统选项卡中设置系统颜色是无法被屏幕的,不知为何

[三断笛]

发现问题所在,似乎是客户端Flash控件版本较低引起的

[Tiger_Zhao]

用 OleTranslateColor() 将 Me.BackColor 转化一下就可以了。

[Tiger_Zhao]

[Quote=引用 11 楼 sysdzw 的回复:]
我输入“他们”然后另存为一下 用ue打开 切换16进制得到的是下面的，不知怎么回事，不过本来的问题已经解决，谢谢！
FF FE D6 4E EC 4E
[/Quote]
这是 Unicode 编码！看仔细了。

[Tiger_Zhao]

回错贴了，上面的回复作废！

[嗷嗷叫的老马]

.................