Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / вызов API / 2 сообщений из 2, страница 1 из 1
21.01.2004, 11:29:45
    #32382748
петя
петя
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вызов API
Как из MSWORD вызвать API функцию?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.01.2004, 11:57:27
    #32382834
buser
buser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вызов API
пиши макрос на басике
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Declare Function GetTextExtentPoint Lib  "gdi32"  Alias  "GetTextExtentPointA"  (ByVal hDC As Long, ByVal lpsz As String, ByVal cbString As Long, lpSIZE As Size) As Long
.......
         Dim hwnd As Long, hDC As Long
         .............................................
         hwnd = GetFocus()
         hDC = GetDC(hwnd)

         ' Compute the width of the text.
         RetVal = GetTextExtentPoint(hDC, Txt, Len(Txt), lpSIZE)
         ConvertPixelsToTwips lpSIZE.cx, lpSIZE.cy
         TxtWidth = lpSIZE.cx


прошу пр-я... msdn
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / вызов API / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 334ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2170203]:
 0ms
get settings:
 7ms
get forum list:
 24ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 51ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 204ms
total:  334ms
x
x
Закрыть


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