Как вводить текст в окно picture в фиксированом месте?

[Topol]

Нужно сделать следующее:
Комбинацию текста и рисунка, чтобы это все можно было сохранить как рисунок, а текст можно было менять.
Помогите пожалуйста!
Можт есть другие операторы, кроме picture1.print "dsds"?
Или к нему можно дописать пораметры положения курсора?
Заранее спасибо!

[alibek]

CurrentX/CurrentY

[Topol]

Понял, Спасибо!!!!
Все было очень просто

[alibek]

Picture.CurrentX = 200
Picture.CurrentY = 200
Picture.Print "Text"

[Topol]

Спасибо!

[Topol]

Подскажите, пожалуйста!
Какой размер у надписи в точках?
нужно чтобы конец надписи не вылезал за определенный размер!
Как это можно сделать?

[GSerg]

Ты определись что надо - знать размер в точках или чтобы не вылезало...

[Topol]

Есть большое поле для рисунка и к центре него нарисован прямоугольник.
В него нужно уместить текст.
Причем нужно, чтобы середина строчки приходилась на середину высоты прямоугольника.
Picture.CurrentX и Picture.CurrentY задают левый верхний угол надписи.

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=11848

[Topol]

Спасибо, спасибо, спасибо!!!!!!!!!!!!!!
Впрочем я там ничего не понял

[Topol]

Скажите пожалуйста почему у меня эта фанкция (DrawText) не работает?
Может быть можно просто узнать как-то размер надписи в точках или пиксилях?!

[Amed]

Нет, знание размера в пикселях не поможет.

В том топике же был приведен код
Как именно не работает функция?

[Topol]

Просто я там ничего не понял и наверное что-то напутал
Очень нужно такую штуку написать, пусть даже несколько криво
Может есть какой-то боле-менее простой способ????

[GSerg]

Ты не понял главного: там уже всё написано...

[Topol]

На форме все работает, а как сделать так, чтобы эти "Гы!" писались в поле ПикчерБокс????
Что такое "Me.hdc" ???

[GSerg]

Сравни наборы свойств формы и пикчербокса, сделай выводы...

[Topol]

а зачем нужны DT_CENTER и DT_WORDBREAK
Можно ли где-то задать размер шрифта?

[GSerg]

Topol, скажи мне, у тебя с английским языком как?..

[Topol]

что означают эти слова я понимаю, но т.к. я не понимаю как работает функция, то и не могу понять, чт означит DT_CENTER OR DT_WORDBREAK
Я пробовал их менять - результат странный
в каком они формате заданы???

[GSerg]

Они заданы в коде, ссылка на который приведена выше, больше они не заданы нигде...

[Topol]

Ну пожалуйста!
Я правда не понимаю!

[GSerg]

Что именно? Давай по частям...

[Topol]

Спасибо
Я не понимая на что влияют DT_CENTER и DT_WORDBREAK

[Kovu]

Ты не поверишь, но они влияют на то как отображается текст .Причем их влияние полностью соответсвует их переводу

[Topol]

Спасибо!
Я дурак!
А можно еще спросить, можно ли отцентровать текст по высоте?

[GSerg]

Наверное, раз с английским языком проблем нет, можно посоветовать http://msdn.microsoft.com/library/defau ... t_0odw.asp

[Topol]

Спасибо огромное!
То что нужно!

[Topol]

Подскажите пожалуйста!
Долго разбирался, так и не понял.
у функции ДровТекст, судя по документации, есть пораметр формата DT_VCENTER, который задает выравнивание по вертикали.
Но как его задать и как написать, чтобы выравнивалось?
Если можно, приведите, пожалуйста, пример вызова функции DT, чтобы выводимый текст был центрирован по вертикали!

[BV]

Это тот же флаг.

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

Call DrawText(picMain.hDc, strData, Len(strData), RC, DT_LEFT Or DT_VCENTER)

[Naked]

а вот тебе размер в точках

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

private Type Size
    cx As Long
    cy As Long
End Type

Private Declare Function GetTextExtentPoint Lib "gdi32" Alias "GetTextExtentPointA" (ByVal hdc As Long, ByVal lpszString As String, ByVal cbString As Long, lpSize As Size) As Long


Private sub Form_click()
    dim nSize as Size
    Call GetTextExtentPoint(form1.hdc, "O", Len("O"), nSize)
    msgbox nSize.x '- ширина
    msgbox nSize.y '- высота
end sub