Red de conocimiento informático - Problemas con los teléfonos móviles - Utilice vb para crear software similar a qq, ¡simplemente conéctelo al borde y ocultelo automáticamente!

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>

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.