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

Тема в разделе "Другие", создана пользователем Milashka, 19 фев 2004.

Статус темы:
Закрыта.
  1. Milashka

    Milashka Гость

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

    admin Well-Known Member

    Регистрация:
    8 авг 2003
    Сообщения:
    2.811
    Симпатии:
    0
    Milashka
    Твип - это пиксель? Я в графических терминах не силен.
     
  3. kagor

    kagor Гость

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

    kagor Гость

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

    kagor Гость

    Код (Text):
    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
    :)
     
  6. Milashka

    Milashka Гость

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

    kagor Гость

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

    Milashka Гость

    kagor

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

    kagor Гость

    Milashka
    Какой?
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей