如何获得文本框多行输入时,输入焦点在屏幕上的位置

Question

我想获得文本框多行输入时,输入焦点在屏幕上的位置,实现像输入法那样的窗口跟随!

Answer 1

Option ExplicitPrivate Type POINTAPI
        x As Long
        y As Long
End TypePrivate Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As LongDim MousePos As POINTAPIPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    GetCaretPos MousePos
    ClientToScreen hwnd, MousePos
    Label1.Caption = MousePos.x & ", " & MousePos.y
End Sub

Answer 2

在窗口上放一个TEXT控件，一个LABEL控件，用于显示光标位置。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/