小弟在写一个娱乐软件,大部分代码和功能已经实现,只差一个功能,冥思苦想,不得其解.
要求程序运行后,当选择"嵌入桌面"选项时, 程序就像背景一样,不能进行任何操作,在上面单机鼠标右键,弹出的菜单和在桌面右击弹出的一样.总之就是,程序和桌面背景合二为一.
有好多程序都有这个功能,就像鱼鱼桌面秀.

学习，求解!

Private Sub MenuQRZM_Click()
Image1.Picture = LoadPicture("XXXXXX") 'XXXXX为一张透明图片的完整路径
End Sub

[此贴子已经被作者于2007-7-6 17:05:49编辑过]

LS的。。。。。。。 程序就像背景一样,不能进行任何操作,在上面单机鼠标右键,弹出的菜单和在桌面右击弹出的一样.总之就是,程序和桌面背景合二为一.

小弟可能说的不太清除,大家可以到
[URL=http://www.gd.xdowns.com/uploadFile/2007-6/XDeskShow_v2b18.rar]http://www.gd.xdowns.com/uploadFile/2007-6/XDeskShow_v2b18.rar[/URL]
下载个绿色版的鱼鱼桌面秀,其中的LEDClock就有这种功能,它那里面叫有影无形

好东西要大家分享。。。
建议LZ多去网站掏掏宝：

[CODE]
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const WS_EX_TRANSPARENT = &H20&
Private Const LWA_ALPHA = &H2&

Private Sub Form_Load()
Dim lOldStyle As Long
Dim bTrans As Byte
bTrans = 128
lOldStyle = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
SetWindowLong Me.hwnd, GWL_EXSTYLE, lOldStyle Or WS_EX_LAYERED Or WS_EX_TRANSPARENT
SetLayeredWindowAttributes Me.hwnd, 0, bTrans, LWA_ALPHA
End Sub
[/CODE]

学到知识了

最近小弟出了趟门,没法上网.多谢ryu.

不是很明白
有没有好心人把那代码解释下。。。