如何用vb编制像qq音乐或者酷狗音乐那样的点个按钮就能收起下来的歌词列表，剩下一个标题栏，收起的标题栏

发布网友 发布时间：2022-04-24 09:01

我来回答

共3个回答

热心网友 时间：2023-10-09 05:58

那个是另一个窗体,需要另外制作,
可以点击一个按钮之后隐藏第一个窗体,显示第二个窗体.反之

使窗体置顶：（代码如下）

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

Private Sub Form_Load()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

把这两段代码放在最上面,你的其他代码的放下面

热心网友 时间：2023-10-09 05:59

这个很简单啊，首先把窗体置顶
然后当点击按钮的时候 Me.Height = 0

热心网友 时间：2023-10-09 05:59

第一个问题的话，剩下一个标题栏！这不是一个窗口，是两个不同的窗口，他们之间相互切换的问题，这个我相信你也会的对不对？

关于第二个问题：一直前置在其他窗口之上，这个很简单了，网上有太多的代码了，就一个API就可以解决了...

如果还是不懂就加我为百度好友...我再慢慢教你...

把你复制的代码放在最上面..就可以了...