新手求助(控件透明背景？)
--------------------编程问答-------------------- 这是啥效果呀？ --------------------编程问答--------------------感觉是显卡花屏了。。。
设置鼠标指针可以先准备一个手形的图标（网上找找），设置MouseIcon为这个图标，设置MousePointer为用户定义。 --------------------编程问答-------------------- 透明窗机+系统托盘？？ --------------------编程问答-------------------- 好象是用了皮肤的 --------------------编程问答-------------------- 控件透明背景？ --------------------编程问答-------------------- 整个桌面其实是一个程序界面？ --------------------编程问答-------------------- 这是控件的效果???? --------------------编程问答-------------------- '模块
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32.dll" ( _
ByVal hwnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As Long
Public Const GWL_EXSTYLE As Long = (-20)
Public Const WS_EX_LAYERED As Long = &H80000
Public Const LWA_COLORKEY As Long = &H1
'窗体
Dim rtn As Long
Picture1.BackColor = &HFF0000
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY --------------------编程问答-------------------- 到底想要啥效果？ --------------------编程问答-------------------- Active Desktop（活动桌面） --------------------编程问答-------------------- 就是单色透明，8楼已经给出了例子。 --------------------编程问答-------------------- 8楼提供的是什么啊？我想要的是vbs脚本 --------------------编程问答-------------------- 作病毒还是做广告呀,
愁人 --------------------编程问答-------------------- 那个ListView怎么是透明的？改天我一定要试一下ListView。
补充：VB , 基础类
