Utilice vb para crear software similar a qq, ¡simplemente conéctelo al borde y ocultelo automáticamente!
Coloca dos temporizadores en el formulario y copia el código.
¿Privado?¿Declarar?Función?ReleaseCapture?Lib?"usuario32"?()?Como?Long
¿Privado?¿Declarar?Función?Enviar mensaje?Lib?"usuario32"? ¿"SendMessageA"?(ByVal?hWnd?As?Long,?ByVal?wMsg?As?Long,?ByVal?wParam?As?Long,?lParam?As?Any)?As?Long
Privado ?Const?WM_SYSCOMMAND?=?&H112
¿Privado?SC_MOVE?=? amp;HF010amp;
Privado?Const?HTCAPTION?=?2
'Estos se utilizan para arrastrar formularios sin título
Dim?onScreen?As?Boolean
¿Privado?Sub?Form_Load ()
onScreen?=?True
Timer2.Enabled?=?False
Timer2.Interval? =?10
Temporizador1.Enabled?=?True
Temporizador1.Intervalo habilitado?=?True
Temporizador1.Interval?=?300
Fin?Sub
¿Privado?Sub?Form_MouseDown(Botón?As?Integer, ?Shift?As?Integer, ?X?As?Single, ?Y?As?Single)
Dim?ReturnVal?As?Long
X?=?ReleaseCapture()
ReturnVal?=?SendMessage(Me.hWnd,?WM_SYSCOMMAND,?_
SC_MOVE? ?HTCAPTION,?0)?Arrastra la ventana sin mostrar la barra de título
Fin?Sub
Privado?Sub?Timer1_Timer()
Si?Izquierda?lt;?0?Entonces
Si?En Pantalla?Entonces
Temporizador2.izquierda"
Temporizador2.Enabled?=?Verdadero p> p>
onScreen?=?False
Fin?If
ElseIf?Left?gt;?0?And?Left?lt;?Screen.Width?width entonces
onScreen=True
ElseIf?Left?gt;?Screen.Width?-?Then
Si?onScreen?Then
Timer2 .Tag?=? "correcto"
Timer2.Enabled?=?True
onScreen?=?False
Fin?Si
¿Fin?Si
Fin?Sub
Privado?Sub?Timer2_Timer() ¿Seleccionar?Caso?Timer2.Tag
Caso?"izquierda"
Izquierda
t?=?Izquierda?-?200
Si?Izquierda? ?Ancho?lt;?300?Entonces
Temporizador2.Enabled?=?Falso
¿Izquierda?-Ancho? ?150
Fin?Si
Caso?"derecho"
¿Izquierda?=?Izquierda?200
If?Left?gt;?Screen.Width?-?300?Then
Timer2.Enabled=False
Left=Ancho de pantalla-150
Fin IfEndSelect
End Sub.