ID Artikel: 94927 - Kajian Terakhir: 14 September 2011 - Revisi: 2.0

ACC: Bagaimana untuk mengubah Twips ke piksel

Tampil berdampinganKlik disini untuk menampilkan sumber Inggris dan terjemahan oleh mesin secara berdampingan
Penerjemahan MesinPeringatan: artikel ini adalah terjemahan oleh mesin
Retired KB ArticleSanggahan Konten KB yang Tidak Lagi Diperbarui
Melihat produk di mana artikel ini berlaku.
Tips SistemThis article applies to a different operating system than the one you are using. Article content that may not be relevant to you is disabled.

Pada Halaman ini

Perbesar semua | Perkecil semua

RINGKASAN

Lanjutan: Memerlukan ahli coding, interoperabilitas, dan keterampilan multi-user.

Karena Microsoft Access toko dimensi dan lokasi properti di twips, Anda mungkin kadang-kadang perlu untuk mengubah twips ke piksel, seperti ketika Anda memanggil fungsi Windows API. Artikel ini menunjukkan kepada Anda bagaimana untuk melakukannya.

Artikel ini mengasumsikan bahwa Anda sudah familiar dengan Visual Basic untuk aplikasi dan membuat aplikasi Microsoft Access menggunakan perangkat pemrograman yang disediakan dengan Microsoft Access.
Kembali ke atas

INFORMASI LEBIH LANJUT

Anda dapat menggunakan fungsi TwipsPerPixelX() dan TwipsPerPixelY() di bawah ini untuk menemukan dimensi dari pixel di twips. Piksel dimensi dapat bervariasi antara sistem dan mungkin tidak selalu persegi, sehingga fungsi yang terpisah untuk pixel lebar dan tinggi diperlukan.

Untuk menambahkan fungsi-fungsi ini untuk aplikasi Anda, salin salah satu blok berikut kode ke dalam modul baru.

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 duplikat prosedur nama, atau menghapus komentar Deklarasi pernyataan dalam kode Anda.
Kembali ke atas

Dalam Microsoft Access 7.0 dan 97

CATATAN: Tempat ini kode dalam modul standar, tidak kelas modul.
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 HWND_DESKTOP As Long = 0
Const LOGPIXELSX As Long = 88
Const LOGPIXELSY As Long = 90

'--------------------------------------------------
Function TwipsPerPixelX() As Single
'--------------------------------------------------
'Returns the width of a pixel, in twips.
'--------------------------------------------------
  Dim lngDC As Long
  lngDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelX = 1440& / GetDeviceCaps(lngDC, LOGPIXELSX)
  ReleaseDC HWND_DESKTOP, lngDC
End Function

'--------------------------------------------------
Function TwipsPerPixelY() As Single
'--------------------------------------------------
'Returns the height of a pixel, in twips.
'--------------------------------------------------
  Dim lngDC As Long
  lngDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelY = 1440& / GetDeviceCaps(lngDC, LOGPIXELSY)
  ReleaseDC HWND_DESKTOP, lngDC
End Function
Untuk menggunakan fungsi-fungsi ini, membagi jumlah twips yang ingin Anda ubah oleh TwipsPerPixelX() baik untuk ukuran horisontal atau TwipsPerPixelY() untuk pengukuran vertikal. Berikut ini adalah contoh:
OldTwips = 2377
NewPixels = OldTwips / TwipsPerPixelX()
Kembali ke atas

Di Microsoft Access 1.x dan 2.0

CATATAN: Dalam contoh kode berikut, garis bawah (_) pada akhir baris digunakan sebagai karakter baris-kelanjutan. Menghapus underscore dari akhir baris ketika menciptakan kembali kode ini di akses dasar.
Option Explicit

Declare Function GetDC Lib "User" (ByVal hwnd As Integer) As Integer
Declare Sub ReleaseDC Lib "User" (ByVal hwnd As Integer, _
  ByVal hdc As Integer)
Declare Function GetDeviceCaps Lib "Gdi" (ByVal hdc As Integer, _
  ByVal nIndex As Integer) As Integer

Const HWND_DESKTOP = 0
Const LOGPIXELSX = 88
Const LOGPIXELSY = 90

'--------------------------------------------------
Function TwipsPerPixelX() As Single
'--------------------------------------------------
'Returns the width of a pixel, in twips.
'--------------------------------------------------
  Dim intDC As Integer
  intDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelX = 1440 / GetDeviceCaps(intDC, LOGPIXELSX)
  ReleaseDC HWND_DESKTOP, intDC
End Function

'--------------------------------------------------
Function TwipsPerPixelY() As Single
'--------------------------------------------------
'Returns the height of a pixel, in twips.
'--------------------------------------------------
  Dim intDC As Integer
  intDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelY = 1440 / GetDeviceCaps(intDC, LOGPIXELSY)
  ReleaseDC HWND_DESKTOP, intDC
End Function
Untuk menggunakan fungsi-fungsi ini, membagi jumlah twips yang ingin Anda ubah oleh TwipsPerPixelX() baik untuk ukuran horisontal atau TwipsPerPixelY() untuk pengukuran vertikal. Berikut ini adalah contoh:
OldTwips = 2377
NewPixels = OldTwips / TwipsPerPixelX()
Kembali ke atas

REFERENSI

Untuk informasi lebih lanjut tentang topik ini, Cari menyatakan pernyataan, menggunakan Microsoft akses Help indeks.
Kembali ke atas
Berlaku bagi:
  • Microsoft Access 1.0 Standard Edition
  • Microsoft Access 1.1 Standard Edition
  • Microsoft Access 2.0 Standard Edition
  • Microsoft Access 97 Standard Edition
Kembali ke atas
Kata kunci: 
kbhowto kbprogramming kbmt KB94927 KbMtid
Kembali ke atas
Penerjemahan MesinPenerjemahan 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:94927  (http://support.microsoft.com/kb/94927/en-us/ )
Kembali ke atas
Retired KB ArticleSanggahan Konten KB yang Tidak Lagi Diperbarui
Artikel ini berisi tentang produk yang tidak lagi didukung oleh Microsoft. Oleh karena itu, artikel ini disajikan ?sebagaimana adanya? dan tidak akan diperbarui.
Kembali ke atas