Графический метод Print

[pr_box]

'Подскажите пожалуйста,
'Имею PictureBox, и вывожу в него текст методом Print с указанием координат вывода.
Picture1.CurrentX=0
Picture1.CurrentY=0
Picture1.Print "Какой то текст"
'Могу определить длину текста в твип-ах
Picture1.TextWithe ("Какой то текст")
'Предположим 400 твип-ов, а мне нужно чтобы печатались только первые 300, как этого добиться?

[NicSoft]

Если не нужно идеальное совпадение, то можно пересчитать через пропорцию твипы в символы: Left(txt,(Len*300/TextWidth))

[Krasavica]

Ловите:

Код: Выделить всё

Private Sub Command1_Click()
   Dim s As String
   Dim i As Integer
   s = "Какой то текст"
   For i = Len(s) To 0 Step -1
       If Picture1.TextWidth(Mid(s, 1, i)) <= 300 Then
           Picture1.Print Mid(s, 1, i)
           i = 0
       End If
   Next i
End Sub