能 不能把窗体做成象qq那样可以自动隐藏
能 不能把窗体做成象qq那样可以自动隐藏如何实现?
只要利用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编辑过]