Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как твипсы в пикселы перевести? / 2 сообщений из 2, страница 1 из 1
09.01.2004, 12:08
    #32371360
Dmitryp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как твипсы в пикселы перевести?
...
Рейтинг: 0 / 0
09.01.2004, 12:15
    #32371366
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как твипсы в пикселы перевести?
Knowledge Base
ACC2000: How to Convert Twips to Pixels
210590

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
Option Explicit

Declare Function GetDC Lib  "user32"  (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib  "user32"  (ByVal hwnd As Long, _
  ByVal hdc As Long) As Long
Declare Function GetDeviceCaps Lib  "gdi32"  (ByVal hdc As Long, _
  ByVal nIndex As Long) As Long

Const WU_LOGPIXELSX =  88 
Const WU_LOGPIXELSY =  90 


Function ConvertTwipsToPixels (lngTwips as Long, _
   lngDirection as long) As Long

   'Handle to device
   Dim lngDC as long                        
   Dim lngPixelsPerInch as Long
   Const nTwipsPerInch = 1440
   lngDC = GetDC(0)
   
   If (lngDirection = 0) Then       'Horizontal
      lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSX)
   Else                            'Vertical
      lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSY)
   End If
   lngDC = ReleaseDC( 0 , lngDC)
   ConvertTwipsToPixels = (lngTwips / nTwipsPerInch) * lngPixelsPerInch

End Function

Function ShowConvert()
   Dim lngOldTwips As Long
   lngOldTwips =  2377 
   ShowConvert = ConvertTwipsToPixels(lngOldTwips,  0 )
End Function
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как твипсы в пикселы перевести? / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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