基础问题求教

Question

本帖最后由 fzx4936 于 2011-04-17 16:38:52 编辑

Answer 1

我估计（至少在我的机器上）该函数返回的是像素单位，一般根据获得值×15即得到缇数。Private Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = vbLeftButton Then
        GetCaretPos lPoint  '得到当前插入符位置
        Text1.Move lPoint.x * 15, lPoint.y * 15
    End If
End Sub
请尝试在richtextbox1中按鼠标左键

Answer 2

哦，按左键再稍微移动一下鼠标，再松开，text1就移动到该行该字符位置了。如果该行是空行，那么它移动到该行左首。

Answer 3

API函数支持的是：vbPixel，不支持Tiwp