| Вопрос: размер текста | Добавлено: 14.09.05 15:48 |
Автор вопроса:  Master Cheat'$
|
| как узнать длинну текста в пикселях для конкретного шрифта? размеры символов разные, а как узнать их длинну я не знаю. |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #1 | Добавлено: 14.09.05 16:17 |
|
Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As Size) As Long
Private Type Size cx As Long cy As Long End Type Const t As String = "Morpheus" Dim s As Size Private Sub Form_Load() GetTextExtentPoint32 Me.hdc, t, Len(t), s MsgBox s.cx ' width End Sub |
||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 14.09.05 20:43 |
| проще, пользоватся обычным Label'ом. Указать ему нужный текст, шрифт, итп... и установить свойство AutoSize = True тогда Label1.Width и будет длинна текста в пикселях. | ||
|
Номер ответа: 3 Автор ответа: E-Man Вопросов: 3 Ответов: 132 |
Профиль | | #3 | Добавлено: 15.09.05 19:31 |
|
была такая функция.. TextWidth.
а чтобы для конкретного шрифта - это, если я не ошибаюсь, надо просто поменять шрифт окна, из которого функция вызывается.. |
||
|
Номер ответа: 4 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #4 | Добавлено: 15.09.05 20:00 |
| а чем не устраивает GetTextExtentPoint32? | ||
|
Номер ответа: 5 Автор ответа: E-ManВопросов: 3 Ответов: 132 |
Профиль | | #5 | Добавлено: 15.09.05 20:07 |
| я не говорил, что не устраивает) просто зачем тут API если TextWidth - стандартное встроенное средство.. к тому же работающее) | ||
|
Номер ответа: 6 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 15.09.05 22:13 |
зачем API, зачем какие-то функции, просто стандартное свойство, стандартного лабела - форевер 
|
||
|
Номер ответа: 7 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #7 | Добавлено: 16.09.05 05:10 |
| API - универсальный способ | ||
|
Номер ответа: 8 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #8 | Добавлено: 16.09.05 23:04 |
|
2HACKER:
а если нет формы? без айпи никак. |
||
|
Номер ответа: 9 Автор ответа: SharkICQ: 284036855 Вопросов: 35 Ответов: 155 |
Web-сайт: Профиль | | #9 | Добавлено: 22.09.05 10:25 |
| А если Label не подходит так текст в несколько строк. | ||
Страница: 1 |