控件转移到桌面后,如何隐藏任务栏图标?
picture1转移前:
picture1转移后:
要解决的问题:如题和上图(转移后图片)
代码:
'声明控件转移
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
'获取桌面句柄
Private Declare Function GetDesktopWindow Lib "user32 " () As Long
Private Sub Command1_Click()
Call SetParent(Picture1.hWnd, GetDesktopWindow)
End Sub
Private Sub Command2_Click()
Call SetParent(Picture1.hWnd, Form1.hWnd)
End Sub
找老久,不知道附件从哪能传上来?倒!
[解决办法]
附件可以传到我的资源里,帖子里给链接
[解决办法]
上传到你的资源中即可。