ACC2000: Æ®À¬ À§ÇØ Çȼ¿ º¯È¯ ¹æ¹ý

±â¼ú ÀÚ·á: 210590 - ÀÌ ¹®¼­°¡ Àû¿ëµÇ´Â Á¦Ç° º¸±â.
°í±Þ: Àü¹®ÀûÀÎ ÄÚµå ÀÛ¼º, »óÈ£ ¿î¿ë¼º ¹× ´ÙÁß »ç¿ëÀÚ ±â¼úÀÌ ÇÊ¿äÇÕ´Ï´Ù.

ÀÌ ¹®¼­¿¡¼­´Â Microsoft Access µ¥ÀÌÅͺ£À̽º (.mdb) ¹× Microsoft Access ÇÁ·ÎÁ§Æ® (.adp) Àû¿ëµË´Ï´Ù.

¸ðµÎ È®´ë | ¸ðµÎ Ãà¼Ò

¿ä¾à

ƯÁ¤ °æ¿ì¿¡ Microsoft Access·Î Æ®À¬ Â÷¿ø/À§Ä¡ ¼Ó¼ºÀ» ÀúÀåÇϱ⠶§¹®¿¡ Windows API ÇÔ¼ö¸¦ È£ÃâÇÒ ¶§ °°Àº Çȼ¿ Æ®À¬ º¯È¯ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ ¹®¼­¿¡¼­´Â ÀÌ ÀÛ¾÷À» ¼öÇàÇÏ´Â ¹æ¹ýÀ» º¸¿© ÁÝ´Ï´Ù.

Microsoft´Â ¹¬½ÃÀûÀÎ º¸Áõ ¾øÀÌ ¸ñÀûÀ¸·Î¸¸ ÇÁ·Î±×·¡¹Ö ¿¹Á¦¸¦ Á¦°øÇÕ´Ï´Ù. ÀÌ Æ÷ÇÔµÇÁö¸¸, »óǰ¼º ¶Ç´Â ƯÁ¤ ¸ñÀû¿¡ÀÇ ÀûÇÕ¼º¿¡ ´ëÇÑ ¹¬½ÃÀûÀÎµÈ º¸ÁõÀÌ Á¦ÇѵÇÁö ¾Ê½À´Ï´Ù. ÀÌ ¹®¼­¿¡¼­´Â ¸¸µé·Á¸é ¹× ÇÁ·Î½ÃÀú¸¦ µð¹ö±ëÇÏ´Â µ¥ »ç¿ëµÇ´Â µµ±¸ ¹× ¿©±â¼­ ¼³¸íÇÏ´Â ÇÁ·Î±×·¡¹Ö ¾ð¾î¿¡ Àͼ÷ÇÑ »ç¿ëÀÚ¸¦ ´ë»óÀ¸·Î ÇÕ´Ï´Ù. Microsoft Áö¿ø ¿£Áö´Ï¾î´Â »ç¿ëÀÚ¿¡°Ô µµ¿òÀÌ µÇµµ·Ï ƯÁ¤ ÀýÂ÷¿¡ ´ëÇÑ ±â´ÉÀ» ¼³¸íÇÒ ¼ö ÀÖÁö¸¸ Ãß°¡ ±â´ÉÀ» Á¦°øÇϰųª ƯÁ¤ ¿ä±¸ »çÇ׿¡ ¸Âµµ·Ï ÇÁ·Î½ÃÀú¸¦ ±¸¼ºÇÏÁö´Â ÀÌ ¿¹Á¦¸¦ ¼öÁ¤ÇÏÁö ¾Ê½À´Ï´Ù.

Ãß°¡ Á¤º¸

´ÙÀ½ ConvertTwipsToPixels() ÇÔ¼ö¸¦ Æ®À¬ Çȼ¿·Î º¯È¯ÇÒ ¼ö ÀÖ½À´Ï´Ù. Çȼ¿ Ç×»ó Á¤»ç°¢Çü ¾Æ´Õ´Ï´Ù (³ôÀÌ ¹× ³Êºñ ´Ù¸¨´Ï´Ù); (°¡·Î ¶Ç´Â ¼¼·Î) "»ç¿ëÇÏ·Á¸é ¿øÇÏ´Â ¹æÇâÀ¸·Î" Àü´ÞÇÏ´Â µ¥ ÇÊ¿äÇÑ °ÍÀÔ´Ï´Ù.
  1. »õ ¸ðµâÀ» ¸¸µé°í ¼±¾ð ±¸¿ª¿¡¼­ ´ÙÀ½À» ÀÔ·ÂÇϽʽÿÀ:
    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
    						
    Âü°í: ±âÁ¸ Access ¶óÀ̺귯¸®¿¡¼­ Á¤ÀÇµÈ ÀϺΠMicrosoft Windows API ÇÔ¼ö¸¦ ÀÖ½À´Ï´Ù; µû¶ó¼­ »ç¿ëÀÚÀÇ ¼±¾ð Áߺ¹ ¼ö ÀÖ½À´Ï´Ù. Áߺ¹ ÇÁ·Î½ÃÀú À̸§ ¿À·ù ¸Þ½ÃÁö°¡ ³ªÅ¸³¯ °æ¿ì, Á¦°Å ¶Ç´Â Äڵ忡¼­ ¼±¾ð ¹®À» ÁÖ¼®À¸·Î ó¸®ÇϽʽÿÀ.
  2. ´ÙÀ½ ÇÁ·Î½ÃÀú¸¦ ÀÔ·ÂÇÕ´Ï´Ù:
    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
    					
ÀÌ ÇÔ¼ö¸¦ È£ÃâÇÏ·Á¸é, º¯È¯ÇÒ Æ®À¬ ¼ö¿Í °¡·Î ¶Ç´Â ¼¼·Î ÃøÁ¤ ´ÜÀ§¸¦ ³ªÅ¸³»´Â ´Ù¸¥ ¸Å°³ º¯¼ö¸¦ Àü´ÞÇÏ´Â (°¡·Î, 0ÀÌ ¾Æ´Ñ 0 ¼¼¿¡ ´ëÇÑ). ´ÙÀ½ »ùÇÿ¡¼­´Â È£ÃâÀÔ´Ï´Ù:
Function ShowConvert()
   Dim lngOldTwips As Long
   lngOldTwips = 2377
   ShowConvert = ConvertTwipsToPixels(lngOldTwips, 0)
End Function
				

¼Ó¼º

±â¼ú ÀÚ·á: 210590 - ¸¶Áö¸· °ËÅä: 2005³â 6¿ù 23ÀÏ ¸ñ¿äÀÏ - ¼öÁ¤: 2.0
º» ¹®¼­ÀÇ Á¤º¸´Â ´ÙÀ½ÀÇ Á¦Ç°¿¡ Àû¿ëµË´Ï´Ù.
  • Microsoft Access 2000 Standard Edition
Ű¿öµå:?
kbmt kbinfo kbprogramming KB210590 KbMtko
±â°è ¹ø¿ªµÈ ¹®¼­
Áß¿ä: º» ¹®¼­´Â Àü¹® ¹ø¿ª°¡°¡ ¹ø¿ªÇÑ °ÍÀÌ ¾Æ´Ï¶ó Microsoft ±â°è ¹ø¿ª ¼ÒÇÁÆ®¿þ¾î·Î ¹ø¿ªÇÑ °ÍÀÔ´Ï´Ù. Microsoft´Â ¹ø¿ª°¡°¡ ¹ø¿ªÇÑ ¹®¼­ ¹× ±â°è ¹ø¿ªµÈ ¹®¼­¸¦ ¸ðµÎ Á¦°øÇϹǷΠMicrosoft ±â¼ú ÀÚ·á¿¡ ÀÖ´Â ¸ðµç ¹®¼­¸¦ Çѱ۷ΠÁ¢ÇÒ ¼ö ÀÖ½À´Ï´Ù. ±×·¯³ª ±â°è ¹ø¿ª ¹®¼­°¡ Ç×»ó ¿Ïº®ÇÑ °ÍÀº ¾Æ´Õ´Ï´Ù. µû¶ó¼­ ±â°è ¹ø¿ª ¹®¼­¿¡´Â ¸¶Ä¡ ¿Ü±¹ÀÎÀÌ Çѱ¹¾î·Î ¸»ÇÒ ¶§ ½Ç¼ö¸¦ ÇÏ´Â °Íó·³ ¾îÈÖ, ±¸¹® ¶Ç´Â ¹®¹ý¿¡ ¿À·ù°¡ ÀÖÀ» ¼ö ÀÖ½À´Ï´Ù. Microsoft´Â ³»¿ë»óÀÇ ¿À¿ª ¶Ç´Â Microsoft °í°´ÀÌ ÀÌ·¯ÇÑ ¿À¿ªÀ» »ç¿ëÇÔÀ¸·Î½á ¹ß»ýÇÏ´Â ºÎ Á¤È®¼º, ¿À·ù ¶Ç´Â ¼ÕÇØ¿¡ ´ëÇØ Ã¥ÀÓÀ» ÁöÁö ¾Ê½À´Ï´Ù. Microsoft´Â ÀÌ·¯ÇÑ ¹®Á¦¸¦ ÇØ°áÇϱâ À§ÇØ ±â°è ¹ø¿ª ¼ÒÇÁÆ®¿þ¾î¸¦ ÀÚÁÖ ¾÷µ¥ÀÌÆ®Çϰí ÀÖ½À´Ï´Ù.

Çǵå¹é º¸³»±â