易截截图软件、单文件、免安装、纯绿色、仅160KB

vb 透明窗体问题

现在我有一个窗口,有两个地方的RGB分别是(0,0,0)和(255,255,255),我想让这两处的颜色都透明,问题是,我用SetLayeredWindowAttributes a, RGB(0, 0, 0) , 192, LWA_COLORKEY
SetLayeredWindowAttributes a, RGB(255, 255, 255) , 192, LWA_COLORKEY
只有(255,255,255)的颜色透明了,谁能告诉我怎么回事,并说说怎么弄才达到我的目的
这个API是只对一种颜色生效的吧


引用
SetLayeredWindowAttributes 只能对一种颜色生效。
如果想使两种颜色透明,则不妨先将其中一个颜色替换成另一种颜色后再使用SetLayeredWindowAttributes ,如果是图片,还可以使用transparentblt几次复制过滤掉需要透明的颜色。

怎样替换颜色呀,有什么方法,能给出代码吗,我实在不会

修改窗体Picture或取Picture数据进行数据替换。具体代码搜索:取Picturebox图片二进制数据


相关问答:

【急求】VB中使用WScript调用外部命令 - VB / 基础类

在下是vb的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。
代码如下:
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

为什么用VB改变不了工具栏按扭的宽度 - VB / 控件

为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了

大胡子真厉害,回答基本都是爆料级的
大胡子升级真快啊,这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。

回复 ......

vb自动发送邮件 - VB / 基础类

为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
  Do While Not TDBG_Dept.EOF
  If A> ......

关于vb语音开发的问题? - VB / 多媒体

在网上下载了speechsdk51LangPack安装后,用vb可以发音(中文),里面有个girl xiaokun的发音,对中文很好听。但是这个speechsdk51LangPack有100多M,我的vb项目打包后,怎么才可以装到其他机子上也能用??总不能每 ......

vb - VB / 基础类

在vb中如何读取Word内容(包含表格,图片,等)
竟然不是zero。

不知道怎么实现的不要说话

这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号