ACC2000: Làm th? nào đ? chuy?n đ?i Twips đ? pixel

ID c?a bài: 210590 - Xem s?n ph?m mà bài này áp d?ng vào.
Máy d?chThông báo: bài vi?t này là bài đư?c d?ch b?i Máy d?ch
Nâng cao: Đ?i h?i chuyên gia m? hóa, kh? năng tương tác, và multiuser k? năng.

Bài vi?t này áp d?ng cho m?t cơ s? d? li?u Microsoft Access (.mdb) và v?i m?t d? án truy c?p Microsoft (.adp).

Bung t?t c? | Thu g?n t?t c?

TÓM T?T

B?i v? Microsoft Access lưu tr? thu?c tính chi?u hư?ng/đ?a đi?m như twips, trong trư?ng h?p nh?t đ?nh b?n có th? ph?i chuy?n đ?i twips đ? pixel, ch?ng h?n như khi b?n g?i hàm Windows API. Bài vi?t này cho th?y b?n làm th? nào đ? làm đi?u này.

Microsoft cung c?p l?p tr?nh ví d? đ? minh ho? ch?, không có b?o hành ho?c th? hi?n hay ng? ?. Đi?u này bao g?m, nhưng không gi?i h?n, b?o đ?m ng? ? kh? năng bán hàng ho?c cho m?t m?c đích c? th?. Bài vi?t này gi? đ?nh r?ng b?n đ? quen thu?c v?i ngôn ng? l?p tr?nh mà đang đư?c ch?ng minh và v?i nh?ng công c? đư?c s? d?ng đ? t?o ra và g? l?i th? t?c. Microsoft h? tr? các k? sư có th? giúp gi?i thích các ch?c năng c?a m?t th? t?c c? th?, nhưng h? s? không s?a đ?i các ví d? đ? cung c?p thêm ch?c năng ho?c xây d?ng quy tr?nh đ? đáp ?ng các yêu c?u c? th? c?a b?n.

THÔNG TIN THÊM

B?n có th? s? d?ng ch?c năng ConvertTwipsToPixels() sau đây đ? chuy?n đ?i twips đ? đi?m ?nh. Lưu ? r?ng pixel không luôn luôn vuông (chi?u cao và Chi?u r?ng là không gi?ng); V? v?y, nó là c?n thi?t đ? vư?t qua trong các mong mu?n "hư?ng" đ? s? d?ng (ngang ho?c d?c).
  1. T?o m?t mô-đun m?i và g? như sau trong ph?n khai báo:
    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
    LƯU ?: B?n có th? có m?t s? ch?c năng Microsoft Windows API đư?c đ?nh ngh?a trong m?t thư vi?n Microsoft Access hi?n có; do đó, t? khai c?a b?n có th? b?n sao. N?u b?n nh?n đư?c m?t thông báo l?i th? t?c trùng l?p tên, lo?i b? ho?c nh?n xét ra tuyên b? khai báo m? c?a b?n.
  2. G? th? t?c sau đây:
    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
Đ? g?i t?i ch?c năng này, vư?t qua s? lư?ng twips b?n mu?n chuy?n đ?i, và tham s? khác cho th?y các phép đo ngang ho?c d?c (0 cho ngang, không cho d?c). Dư?i đây là m?t cu?c g?i m?u:
Function ShowConvert()
   Dim lngOldTwips As Long
   lngOldTwips = 2377
   ShowConvert = ConvertTwipsToPixels(lngOldTwips, 0)
End Function

Thu?c tính

ID c?a bài: 210590 - L?n xem xét sau cùng: 17 Tháng Chín 2011 - Xem xét l?i: 3.0
Áp d?ng
  • Microsoft Access 2000 Standard Edition
T? khóa: 
kbinfo kbprogramming kbmt KB210590 KbMtvi
Máy d?ch
QUAN TRỌNG: Bài vi?t này đư?c d?ch b?ng ph?n m?m d?ch máy c?a Microsoft ch? không ph?i do con ngư?i d?ch. Microsoft cung c?p các bài vi?t do con ngư?i d?ch và c? các bài vi?t do máy d?ch đ? b?n có th? truy c?p vào t?t c? các bài vi?t trong Cơ s? Ki?n th?c c?a chúng tôi b?ng ngôn ng? c?a b?n. Tuy nhiên, bài vi?t do máy d?ch không ph?i lúc nào c?ng hoàn h?o. Lo?i bài vi?t này có th? ch?a các sai sót v? t? v?ng, cú pháp ho?c ng? pháp, gi?ng như m?t ngư?i nư?c ngoài có th? m?c sai sót khi nói ngôn ng? c?a b?n. Microsoft không ch?u trách nhi?m v? b?t k? s? thi?u chính xác, sai sót ho?c thi?t h?i nào do vi?c d?ch sai n?i dung ho?c do ho?t đ?ng s? d?ng c?a khách hàng gây ra. Microsoft c?ng thư?ng xuyên c?p nh?t ph?n m?m d?ch máy này.
Nh?p chu?t vào đây đ? xem b?n ti?ng Anh c?a bài vi?t này:210590
(http://support.microsoft.com/kb/210590/en-us/ )
Quay l?i đ?u trang | Cung cấp Phản hồi

Cung cấp Phản hồi

 
Quay l?i đ?u trangQuay l?i đ?u trang