Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Нарисовать текст

Автор: Sunvas 3.12.2006, 02:43

Как транспарентно нарисовать текст на рисунке?

Автор: BorisVorontsov 3.12.2006, 10:21

Picture.Print...

Автор: Sunvas 3.12.2006, 12:34

Цитата(BorisVorontsov @  3.12.2006,  10:21 ) Picture.Print... Я использую Picturebox

Автор: W4FhLF 3.12.2006, 13:07

Цитата Я использую Picturebox Он и имел ввиду PicureBox.

Автор: Sunvas 3.12.2006, 13:31

Ну а как же тогда задать координаты текста?

Автор: W4FhLF 3.12.2006, 13:47

Код Picture1.CurrentX = 100: Picture1.CurrentY = 100 Picture1.Print "Text"

Автор: Sunvas 3.12.2006, 13:54

W4FhLF, спасибо. Посмотрел я.. Не очень карсиво выходит. А как можно нарисовать этот текст не транспарентно?

Автор: W4FhLF 3.12.2006, 14:17

Ну для красоты можно извратиться, что-то типа того, что ниже Хотя всё же нужно знать, что Вы хотите получить в результате? Код     Picture1.FontSize = 36     For i = 100 To 355         Picture1.CurrentX = i: Picture1.CurrentY = i         Picture1.ForeColor = RGB(i - 100, 0, 0)         Picture1.Print "111"     Next i

Автор: Sunvas 3.12.2006, 14:39

W4FhLF, как я посмотрю даный код всего-лишь меняет цвет текста. Мне же нужно, чтобы текст бы на непрозрачном фоне.

Автор: W4FhLF 3.12.2006, 15:13

Нет, не меняет, он делает текст "объёмным". На непрозрачном фоне? Тогда используй label, перемещай его в нужные координаты PictureBox и делай что хочешь.

Автор: BorisVorontsov 3.12.2006, 15:23

Нды... Sunvas, и откуда ж ты такой свалился  DrawText(Ex). Для непрозрачного фона SetBkMode OPAQUE.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)