Me gustaría preguntar cómo resolver el problema en VB de que un evento de doble clic del mouse debe conducir a un evento de clic.

Pero no creo que ningún programa necesite necesariamente configurar diferentes acciones para clics simples y dobles, ¿verdad?

Por ejemplo, en Windows, al hacer clic en un archivo se selecciona y al hacer doble clic se abre el archivo. Pero al hacer doble clic en realidad se selecciona el archivo primero.

Por lo tanto, es mejor no tener códigos para estos dos eventos en tu programa que sean mutuamente excluyentes.

Además, el siguiente código es para su referencia

'Este código demuestra cómo obtener el tiempo entre presionar y soltar el mouse

Función de declaración privada GetDoubleClickTimeLib " user32" () Siempre

Declaración privada Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Tipo privado SYSTEMTIME

wAño como entero

wMes como entero

wDía de la semana como entero

wDía como entero

wHora como entero

wMinuto como entero

wSegundo como entero

wMilisegundos como entero

Tipo de fin

Atenuar T1 como SYSTEMTIME

DimT2 como SYSTEMTIME

Private Sub Form_Load()

'Muestra el intervalo de tiempo establecido en el sistema para determinar el DoubleClickInterval

MsgBox ("Judge DoubleClickInterval = " amp; GetDoubleClickTime)

End Sub

Sub formulario privado_MouseDown(Botón como entero, Mayús como entero, X como único, Y como único)

GetLocalTime T1

End Sub

Sub privado form_MouseUp(Botón como entero, Mayús como entero, X como único, Y como único)

GetLocalTime T2

MsgBox ("La hora el intervalo entre el momento en que presiona y suelta el mouse es " amp; Calcular SJC)

End Sub

Función privada CalcSJC() como entero

Atenuar a como doble

b = Val(T1.

a = Val(T1.wSecond) * 1000 Val(T1.wMillisegundos)

Si Val(T2.wSecond) lt; b Entonces

c = (Val(T2.wSecond) 60)* 1000 Val(T2.wMillisegundos)

De lo contrario

c = Val(T2 .wSecond) * 1000 Val(T2.wMillisegundos)

Finalizar si

shijiancha = c

- a

CalcSJC = shijiancha

Función final