Как узнать длину строки в твипах? - VB

Формулировка задачи:

... в твипах? Которая лежит в RichEdit да еще и неизвестно как отформатирована. С уважением NickStaves

Решение задачи: «Как узнать длину строки в твипах?»

textual
                            Листинг программы 
                        

                            Private Declare Function GetCaretPos Lib 'user32' (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
        x As Long
        y As Long
End Type
 
Private Sub Command1_Click()
Dim lp As POINTAPI
With Me.RichTextBox1
.SetFocus
.SelStart = Len(.Text)
.SelBold = False
.SelItalic = False
.SelText = 'Проверка'
.SelStart = 0
GetCaretPos lp
Debug.Print 'X=', lp.x, ' Y=', lp.y
.SelStart = Len(.Text)
.SelText = ''
GetCaretPos lp
Debug.Print 'X=', lp.x, ' Y=', lp.y
End With
Me.Command1.SetFocus
End Sub
                        

Оцени полезность:

15 голосов , оценка 3.6 из 5

Похожие ответы