vb多窗体同时显示问题

Question

如图所示，我做了两个窗体，都是无边框，然后让图标的那个窗体置顶透明放在大窗体的左上角，用句柄判断设置是否unload左上角的图标防止一直置顶，但是当我从程序窗体点击桌面时会左上角的图标会消失，请问如何解决
部分代码如下：
Dim PlayMenu_Hwnd As Long, MediaPlayer_Hwnd As Long, MediaMenu_Hwnd As Long, ForeWindow_Hwnd As Long, DeskTop_Hwnd As Long
PlayMenu_Hwnd = FormHwnd(vbNullString, "PlayMenu")
MediaPlayer_Hwnd = FormHwnd(vbNullString, "音乐")
MediaMenu_Hwnd = FormHwnd(vbNullString, "MediaMenu")
ForeWindow_Hwnd = GetForegroundWindow
DeskTop_Hwnd = GetDesktopWindow
If ForeWindow_Hwnd <> DeskTop_Hwnd And ForeWindow_Hwnd <> PlayMenu_Hwnd And ForeWindow_Hwnd <> MediaPlayer_Hwnd And ForeWindow_Hwnd <> MediaMenu_Hwnd Then
Unload MediaMenu
Timer5.Enabled = False
Else
If MediaMenuLoad = False Then
MediaMenu.Show
End If
End If

Answer 1

你这样设计会遇到更多问题的。！！！
同一时间不能同时操作2个窗体，窗体之间的代码也不会共享。
你是要拖大窗体的时候，蝴蝶也跟着移动吗？
只是一点点小小花哨，就要花费大量精力大量代码。不符合编程思想嘛，而且用户也不一定会喜欢。 你完全可以用其他的美化方法。
希望你把时间和精力用在程序的功能上，这样才可以受欢迎，用户才会多。
一定要这样做的话，你还是研究在同一个窗体里实现，不要用2个窗体。

Answer 2

楼上两位说的对，你在做这种事之前，应当上网查查其他人怎么做自定义窗体边框的，不会有人用2个窗体来做这事，一般都是用一个窗体+一些控件实现！

Answer 3

如果是为了这效果,使用双窗体 就复杂了!

完全可以使用一个窗体就可以的

你屏蔽掉无边框窗体的某种颜色!然后就能达到得到一个"自定义"外观的窗体

'================================================

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

Public Sub ctwg_pbys(ctjb As Long,pbys As Long)

 '------------------------------------将窗体ctjb的pbys色屏蔽

 Dim rtn As Long

 rtn = GetWindowLong(ctjb, -20)

 rtn = rtn Or 524288

 SetWindowLong ctjb, -20, rtn

 SetLayeredWindowAttributes ctjb, pbys, 0, 1

End Sub