Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Фактическая длина строки / 3 сообщений из 3, страница 1 из 1
15.08.2005, 08:24:46
    #33214822
Бодхи
Бодхи
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фактическая длина строки
Как узнать фактическую длинну строки, необходимо для:
В Access в отчете существует некоторое поле определенного размера, если передавать ему некоторое значение в виде строки длина которого чуть больше длинны строки (на один-два символа), то последние символы срезаются. Я решил анализировать строку и в зависимости от ее длинны програмно снижать шрифт поля. Проблема в том что данные в строке могут иметь большие буквы т.е. в поле помещаются 15 больших или 19 маленьких букв. Функция Len просто возвращает количество символов в строке без учета регистра. Какие есть соображения ? Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.08.2005, 09:07:33
    #33214855
МаксимВ
МаксимВ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фактическая длина строки
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Option Explicit

Private Type SIZE
    cx As Long
    cy As Long
End Type

Private Declare Function GetTextExtentPoint32 Lib "gdi32.dll" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, ByRef lpSize As SIZE) As Long

Private strTest As String

Private Sub Command1_Click()
Dim SZ As SIZE
    strTest = "Это строка, Для ПРИМЕРА!"
    Call GetTextExtentPoint32(ByVal Me.hdc&, ByVal strTest$, ByVal Len(strTest$), SZ)
    Debug.Print Me.ScaleX(SZ.cx, vbPixels, Me.ScaleMode)
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.08.2005, 09:52:27
    #33214915
Бодхи
Бодхи
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фактическая длина строки
Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Фактическая длина строки / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 350ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2167360]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 71ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 203ms
total:  350ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]