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

[Milashka]

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

 

[admin]

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

 

[kagor]

Серёга

Твип - это пиксель?

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

 

[kagor]

Milashka

Предположим 400 твип-ов, а мне нужно чтобы печатались только первые 300, как этого добиться?

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

 

[kagor]

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

 

[Milashka]

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

 

[kagor]

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

 

[Milashka]

kagor

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

 

[kagor]

Milashka
Какой?