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

  • Автор темы Milashka
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

Milashka

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

admin

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

kagor

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

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
:)
 
M

Milashka

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

kagor

Milashka
Да не за что. Надеюсь, это то, что было нужно? :)
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:  ТелеграмВконтактеДзенФейсбукТвиттерЮтуб