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

Milashka
Твип - это пиксель? Я в графических терминах не силен.

Серёга
Нет! Это ещё один изврат VB.

Milashka
Ну сдесь проблем быть не должно, проверяеш длинну текста (всего) если > 300 твипов то проверяеш длинну теста на 1 символ меньше (убираеш символ с конциа строки) и т.д до тех пор пака не получиш требуемую длинну текста и его печатаеш

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

kagor, спасибо вам большое за помощь!

Milashka
Да не за что. Надеюсь, это то, что было нужно?

kagor

Хм... Есть вопросик.

Milashka
Какой?