ACC2000: Làm thế nào để chuyển đổi Twips để pixel

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
Bài viết này đã được lưu trữ. Bài viết được cung cấp "nguyên trạng" và sẽ không còn được cập nhật nữa.
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).

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, trongtrường hợp nhất định bạn có thể phải chuyển đổi twips để pixel, chẳng hạn như khi bạngọ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 ExplicitDeclare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongDeclare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _  ByVal hdc As Long) As LongDeclare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _  ByVal nIndex As Long) As LongConst WU_LOGPIXELSX = 88Const 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) * lngPixelsPerInchEnd 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				
Inf

Cảnh báo: Bài viết này được dịch tự động

Thuộc tính

ID Bài viết: 210590 - Xem lại Lần cuối: 12/05/2015 11:35:05 - Bản sửa đổi: 3.0

Microsoft Access 2000 Standard Edition

  • kbnosurvey kbarchive kbinfo kbprogramming kbmt KB210590 KbMtvi
Phản hồi