能 不能把窗体做成象qq那样可以自动隐藏
能 不能把窗体做成象qq那样可以自动隐藏如何实现？
2005-09-22 17:07
2005-09-22 17:16
2005-09-22 20:14
2005-09-22 21:26
2005-09-22 21:45
2005-09-23 20:00
2005-10-06 08:58
只要利用mousemove将位置调整就行拉 用timer控制 具体操作如下： 先添加timer1，并设置interval为1000 Dim Move1 As Boolean
Private Sub Form_Load() Form1. top = 70'预留空位 End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.Top = 0 Move1 = True End Sub
Private Sub Timer1_Timer() If Move1 = True Then Move1 = False: Form1.Top = -Form1.Height + 70'预留空位 End Sub
[此贴子已经被作者于2005-10-6 11:59:29编辑过]
2005-10-06 11:58
2005-10-06 17:09
7RyB4Q30.rar