ICO提取器(可保存为*.ico)

欢迎大家指正

[此贴子已经被作者于2007-5-2 18:52:27编辑过]

我发现 “金子” 也不一定会发光呀 ！

不错 收藏了

我想学你里面的 窗体白色就会透明的API函数的使用 请指教

看我的博客 http://blog.bc-cn.net/user18/111351/archives/2007/4964.shtml

Option Explicit
Private Declare SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2
Const LWA_COLORKEY = &H1
Private Sub Form_Load()
Dim sty As Long
sty = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
sty = sty Or WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, sty
SetLayeredWindowAttributes Me.hwnd, 0, 100, LWA_ALPHA
End Sub

不知道为什么会遇到这个错误 复制下来的

顶

下载收藏了

好像有问题啊.我做了一个,最后成了病毒了,只要运行到可执行文件上面,该运用程序就会被破坏,我郁闷啊,兄弟有时间了指点一下哈