ACC2000: Bagaimana untuk mengubah Twips ke piksel

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 210590 - Melihat produk di mana artikel ini berlaku.
Lanjutan: Memerlukan ahli coding, interoperabilitas, dan keterampilan multiuser.

Artikel ini berlaku untuk Microsoft Access database (.mdb) dan proyek Microsoft Access (.adp).

Perbesar semua | Perkecil semua

RINGKASAN

Karena Microsoft Access menyimpan dimensi/lokasi properti sebagai twips, di kasus-kasus tertentu yang mungkin Anda miliki untuk mengkonversi twips piksel, seperti ketika Anda memanggil fungsi Windows API. Artikel ini menunjukkan kepada Anda bagaimana untuk melakukannya.

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.

INFORMASI LEBIH LANJUT

Anda dapat menggunakan fungsi ConvertTwipsToPixels() berikut untuk mengkonversi twips piksel. Perhatikan bahwa piksel tidak selalu persegi (tinggi dan lebar tidak sama); oleh karena itu, sangatlah penting untuk lulus yang dikehendaki "arah" untuk menggunakan (horizontal atau vertikal).
  1. Membuat modul baru dan ketik berikut di bagian Deklarasi:
    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
    						
    CATATAN: Anda mungkin memiliki beberapa fungsi Microsoft Windows API yang didefinisikan dalam ada Microsoft Access perpustakaan; oleh karena itu, pernyataan Anda mungkin duplikat. Jika Anda menerima pesan galat nama duplikat prosedur, menghapus atau komentar Deklarasi pernyataan dalam kode Anda.
  2. Jenis prosedur berikut:
    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
    					
Untuk memanggil fungsi ini, melewati jumlah twips yang ingin Anda ubah, dan parameter lain menunjukkan horizontal atau vertikal pengukuran (0 untuk horisontal, non-nol untuk vertikal). Berikut ini adalah contoh panggilan:
Function ShowConvert()
   Dim lngOldTwips As Long
   lngOldTwips = 2377
   ShowConvert = ConvertTwipsToPixels(lngOldTwips, 0)
End Function
				
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Properti

ID Artikel: 210590 - Kajian Terakhir: 20 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Access 2000 Standard Edition
Kata kunci: 
kbinfo kbprogramming kbmt KB210590 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:210590

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com