Cómo implementar la ráfaga del botón del mouse en vb

Opción para abrir explícitamente

Formulario de clase pública 1

Las dimensiones x tienen la misma longitud y la longitud y

Dim yn es doble

Cambiar Marqué como un número entero

Función de declaración privada SetCursorPos y amplib "usuario 32" (ByVal x es largo, ByVal y es largo)

privado Declarar Sub mouse _ evento Lib "usuario 32 "( ByVal dw flags es Long, ByVal dx es Long, _

ByVal dy es Long, ByVal cButtons es Long, ByVal dwExtraInfo es Long)

evento de mouse privado Const f _ left down = &Deuterium

Evento de mouse constante privado f_left up = &H4

Subtemporizador privado 1_Tick(ByVal remitente como sistema. Objeto, ByVal e como sistema. EventArgs) maneja temporizador 1. tick

x = sistema. ventanas.formas.posición del cursor.x

y=sistema. windows .forms .posición del cursor y

i = i + 1

Si i & gt100 entonces temporizador 1. habilitado = falso

x = Form1. PosicióndelRatón

y = Form1. Posición del ratón

Cuadro de texto 1. Texto = x

Cuadro de texto 2. Text = y

SetCursorPos(x, y)

Si yn = true, entonces

forma 1 mouse_event(evento del mouse f_left down, x, y, 0, 0)

mouse _ event (evento del mouse f _ izquierda abajo, x, y, 0, 0)' Presione el botón izquierdo del mouse.

yn = False

De lo contrario: yn = True

Tabla 1. mouse_event (evento del mouse f_leftup,x,y,0,0)'Se levanta el botón izquierdo del mouse.

Terminará si...

Conector final

Subformulario privado 1_MouseDown(ByVal remitente como objeto, ByVal e como sistema. Windows.Forms.MouseEventArgs) Manejame. Ratón presionado

Temporizador 1. enable=true

Conector final

Clase final

...................... ..

Haga clic 100 veces después de presionar el mouse.

................................................ ... ......

Zhang Zhang, Escuela Central de la ciudad de Xinglong, condado de Bayan, provincia de Heilongjiang, ..................

.....Fiel a sus amigos..... ...confiable. .............