О тексте в пикчур боксе

[Kiryusha]

Народ, подскажите, плз. Как определить ширину буквы?
Я вывожу посимвольно текст в пикчурбокс, поэтому мне необходимо определить ширину каждой предыдущей буквы?
Пробовал св-во TextWidth, может я ее неправильно использовал, но на некоторые буквы перекрывают друг друга, ди расстояние м-ду ними не везде одинаковое.
Заранее, спс.

[tyomitch]

Видимо, неправильно использовал. Потому что тебе нужна именно она.

[Arcanoid]

Может забыл перед TextWidth прописать "ПикчуБокс ."

[Antonariy]

А обязательно посимвольно?

[alibek]

Слово "text" посимвольно и строкой целиком может иметь разную TextWidth. Особенно это справедливо для курсива и декоративных фонтов.

[Kiryusha]

А обязательно посимвольно?

обязательно

[Kiryusha]

вобщем когда я определяю ширинут так:

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

a=pctChat.TextWidth(mid("хыыыы",i,1))
TextOut pctChat.hDC, x, y, mid("хыыыы",i,1), 1


и он быквы "х" и "ы" слепляет вместе, а остальные печатает намана

[Arcanoid]

Исходя из утверждения:

Слово "text" посимвольно и строкой целиком может иметь разную TextWidth. Особенно это справедливо для курсива и декоративных фонтов.

понятно почему так может происходить.

Можно попробовать к смещению X (я так понимаю, это оно и есть(?)) прибавить пару пикселей чтобы буквы гарантированно никогда не слеплялиь.

[pronto]

В свойствах PictureBox установи нужный Фонт.
В любом месте помести тот текст, который нужно выводить посимвольно (только не забудь его).
Еще нужен таймер с интервалом ~150 мс.
В процедуру нажатия кнопки добавляй вот такой код:

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

Private Sub Command1_Click()
   'первоначально, свойство .Enabled = False
   Timer1.Enabled = Not Timer1.Enabled
   AnimText = Text1.Text 'тут нужный текст
   AnimLen = Len(AnimText) 'его длина в символах (тип - Long)
End Sub

А в процедуре таймера пишешь следующее:

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

Private Sub Timer1_Timer()
   Dim buff As String
   
   Picture1.Picture = Nothing 'очищаем картинку
   
   If ToEnd > AnimLen Then ToEnd = 1
   buff = Mid$(AnimText, 1, ToEnd)
   
   Picture1.CurrentX = 10 'тут могут быть любые числа.
   Picture1.CurrentY = 10 'в зависимости от желания.
   Picture1.Print buff
   
   ToEnd = ToEnd + 1
End Sub

Все! И никаких тебе переподвыподвертов! Дерзай!!!

[Kiryusha]

ппц.
Кароче х.. с тем что слипаются, терь другая проблем есть.

Кароче делаю комбу со всеми шрифтами, и рич текст бокс, ну делаю, что при смене шрифта в комбе сразу же менялся текст в текстбоксе, все гуд, только потом из ричтекстбокса в пикчурбокс этот текст копируется какими-то иероглифами. Почему?

[pronto]

Чё ты себе так усложняешь жизнь? Что за такую глобальную прогу ваяешь?
Подумай, как можно сделать тоже самое, но иначе и проще...
Про иероглифы надо думать отдельно.

[Kiryusha]

Просто гемора не было бы вообще, если бы в РичТекстБокс мона было бы картинки выводить, поэтому приходится мозги е***ь с пикчуром. Если все же как-то можно в РТБ вывести картинку, то киньте примерчик.

[RayShade]

Kiryusha

У тебя фильтр базара, что ли поломался?

Значит, если ты быстро уберешь все непечатные слова из постингов, то я даже тебя не забаню по подсетке.