Makale numarası: 94927 - Son Gözden Geçirme: 18 Ocak 2007 Perşembe - Gözden geçirme: 2.3

ACC: Nasıl twip piksel için Dönüştür

İngilizce ve Türkçe'yi yan yana görüntülemeBuraya tıklayarak İngilizce ve Türkçe'yi yan yana görüntüleyebilirsiniz.
Otomatik TercümeOtomatik tercüme makalelerin ne olduğunu açıklayan yazıyı okumak için buraya tıklayın
Retired KB ArticleKullanım Dışı Bilgi Bankası İçeriği Yasal Uyarı
Bu makalenin geçerli olduğu ürünleri görün.
Sistem İpucuBu makale, kullandığınızdan farklı bir işletim sistemine yöneliktir. Sizinle ilgili olmayabilecek makale içeriği devre dışı bırakıldı.

Bu Sayfada

Hepsini aç | Hepsini kapa

Özet

Gelişmiş: Uzman kodlama, birlikte çalışabilirlik ve çok kullanıcılı becerileri gerektirir.

Microsoft Access twip cinsinden boyut ve konum özelliklerini saklar, çünkü bazen piksellere olduğunda, bir Windows API işlevi çağrısı gibi twip dönüştürmeniz gerekebilir. Bu makalede bunun nasıl yapılacağını gösterir.

Bu makalede, Visual Basic for Applications ve programlama Microsoft Access ile sağlanan araçları kullanarak Microsoft Access uygulamaları oluşturma bildiğinizi varsayar.
Üste

Daha fazla bilgi

Bir piksel boyutlarını twip cinsinden bulmak için aşağıdaki TwipsPerPixelX() ve TwipsPerPixelY() işlevlerini kullanabilirsiniz. Piksel boyutlarını sistemleri arasında değişebilir ve piksel, genişlik ve Yükseklik ayrı işlevleri gereklidir; bu nedenle her zaman köşeli, olmayabilir.

Bu işlevler uygulamanıza eklemek için aşağıdaki kod blokları birini yeni bir modüle kopyalayın.

Not: bazı Microsoft Windows API işlevleri, varolan bir Microsoft Access kitaplığını tanımlanan sahip olabilir; bu nedenle, çoğaltmaları, bildirimleri olabilir. Yinelenen bir yordam adı hata iletisi alırsanız, kaldırın veya bildirim deyimi kodunuzda aç?klama.
Üste

Microsoft Access 7.0 ve 97

Not: Bu kodu bir standart modülünde bir sınıf modülü koyun. 
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
Bu işlevleri kullanma hakkında bilgi için ya da TwipsPerPixelX() yatay ölçüsünün veya dikey ölçüsünün TwipsPerPixelY() dönüştürmek istediğiniz twip sayısını bölün. Aşağıdaki örnek verilebilir: 
OldTwips = 2377
NewPixels = OldTwips / TwipsPerPixelX()
Üste

Microsoft Access 1.x ve 2.0

Not: aşağıdaki kod örnekleri, bir satır devam karakteri olarak bir satır sonunda alt çizgi (_) kullanılır. Bu kodu, Access Basic yeniden açtığınızda, alt çizgi satır sonundan kaldırın. 
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
Bu işlevleri kullanma hakkında bilgi için ya da TwipsPerPixelX() yatay ölçüsünün veya dikey ölçüsünün TwipsPerPixelY() dönüştürmek istediğiniz twip sayısını bölün. Aşağıdaki örnek verilebilir: 
OldTwips = 2377
NewPixels = OldTwips / TwipsPerPixelX()
Üste

Referanslar

Bu konu hakkında daha fazla bilgi için Microsoft Access Yardım dizini kullanarak ifade bildirmek için arama.
Üste
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Access 1.0 Standard Edition
  • Microsoft Access 1.1 Standard Edition
  • Microsoft Access 2.0 Standard Edition
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
Üste
Anahtar Kelimeler: 
kbmt kbhowto kbprogramming KB94927 KbMttr
Üste
Otomatik TercümeOtomatik Tercüme
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:94927  (http://support.microsoft.com/kb/94927/en-us/ )
Üste
Retired KB ArticleKullanım Dışı Bilgi Bankası İçeriği Yasal Uyarı
Bu makale, Microsoft'un artık destek sağlamadığı ürünler ile ilgili olarak yazılmıştır. Bu nedenle, bu makale "olduğu gibi" sağlanmıştır ve bundan sonra güncelleştirilmeyecektir.
Üste