Selección de palabras en pantalla VB

Si ha instalado Kingsoft PowerWord, puede hacer esto

Agregar XdictGrb.dll desde "Referencia"

Opción explícita

Implementar IXDictGrabSink

GP privado como GrabProxyPrivate Sub Form_Load()

Establecer gp = Nuevo GrabProxy

Con gp

.GrabEnabled = True '¿Es válido

.GrabInterval = 30 'Especificar intervalo de captura

.GrabMode = XDictGrabMouse 'Ratón (ratón con o sin botones)

.AdviseGrab Me 'Señalar la interfaz propiaEnd WithEnd SubPrivate Sub Form_Unload (Cancelar como entero)

Establecer gp = Nothing

End Sub

Función privada IXDictGrabSink_QueryWord(ByVal WordString como cadena, ByVal lCursorX As Long, ByVal lCursorY As Long , ByVal SentenceString As String, lLoc As Long, lStart As Long) As Long

Label1.Caption = "Coordenadas actuales:" amp "(" amp. lCursorX amp; "," amp ; lCursorY & , 1000)

Función final