VB屏幕取字实现

鼠标取词
       
        在有些软件里当鼠标移到某单词上,其注释就会显示单词的中文解释.这样的软件是如何制作的呢?下面我就介绍以下获取鼠标所在单词的方法,至于中文结实要关系到数据库及字库问题在此我不做解释.
        首先建立新工程,在FORM上添加一个TEXT文本框.  
声明SendMessage函数.
Declare   Function   SendMessage   Lib   "user32"   Alias   "SendMessageA"   (ByVal   hwnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Long,   lParam   As   Any)   As   Long
Const   EM_CHARFORMPOS=&HD7'在API浏览器里无此值请自己加上.

自定义过程:
Private   Sub   Text1_MouseDown(Button   As   Intege,Shift   As   Integer,x   As   Single,   y   As   Single)
'获取鼠标所点的是第几行第几个字符
    Dim   pos   As   Long,Lc   As   Long
    Dim   Line   As   Integer,CharPos   As   Integer

    x=x/Screen.TwipsPerPixelX
    y=y/Screen.TwipsperPixelY
    pos=x+y*65536
    Lc=SendMessage(Text1.hwnd,EM_CHARFROMPOS,0,ByVal   pos)

    Line=Lc/65536   '第几行