Techno: Links

Convert Twips to Píxeles
'''''''''''' Per convertir twips a pixels
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Public Const WU_LOGPIXELSX = 88
Public Const WU_LOGPIXELSY = 90
Public Const X_HOR As Long = &H0
Public Const X_VERT As Long = &H1
'''''''''''' Per convertir twips a pixels

Public Function TwipsToPixels(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)

   Select Case lngDirection
   Case X_HOR ' els pixels no son quadrats
   lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSX)
   Case X_VERT
   lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSY)
   End Select
   lngDC = ReleaseDC(0, lngDC)
   TwipsToPixels = (lngTwips / nTwipsPerInch) * lngPixelsPerInch
End Function

Public Function PixelsToTwips(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)

   Select Case lngDirection
   Case X_HOR ' els pixels no son quadrats
   lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSX)
   Case X_VERT
   lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSY)
   End Select
   lngDC = ReleaseDC(0, lngDC)
   PixelsToTwips = (lngTwips / lngPixelsPerInch) * nTwipsPerInch
End Function

Imprimir texto a la impresora predeterminada con Access Basic (1.x/2.0)
   'Obre el canal de la impressora
   Open "\\estacio4\zebra" For Output As #1

   'Configuració de la impressora
   Print #1, "^XA~TA-008~JSN^LT0^MMT^MNW^MTT^PON^PMN^LH0,0^JMA^PR4,4^MD0^JUS^LRN^CI27^XZ"

   'Nou format d'etiqueta i Llargada Etiqueta
   Print #1, "^XA^LL0200"

   'Amplada
   Print #1, "^PW639"

   'Codi de Barres de la 1ª Etiqueta
   Print #1, "^BY2,3,32^FT133,118^BCN,,N,N"
   Print #1, "^FD>;" & Ref_Imprimir & "^FS"

   'Codi de Barres de la 2ª Etiqueta
   Print #1, "^BY2,3,32^FT357,118^BCN,,N,N"
   Print #1, "^FD>;" & Ref_Imprimir & "^FS"

   'Referència 1ª etiqueta
   Print #1, "^FT162,139^A0N,23,24^FD" & Ref_Maca & "^FS"

   'Referència 2ª etiqueta
   Print #1, "^FT386,139^A0N,23,24^FD" & Ref_Maca & "^FS"

   'Imprimeix el nobre necessari d'etiquetes (Sortida de 2)
   Print #1, "^PQ" & CStr(Q2) & "," & CStr(Q2) & ",1,N^XZ"

   'Tanca el canal de la Impressora
   Close #1

.NET Framework Solutions—In Search of the Lost Win32 API
Per moure una finestra clicant el botó 'BotoDesp' (p.65)

'Constantes para SendMessage

Public Const WM_LBUTTONUP = &H202

Public Const WM_SYSCOMMAND = &H112

Public Const SC_MOVE = &HF010

Public Const MOUSE_MOVE = &HF012

Public Const WM_NCLBUTTONDOWN = &HA1

Public Const HTCAPTION = 2

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Public Declare Function ReleaseCapture Lib "user32" () As Boolean

Private Sub BotoDesp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   BotoDesp.Picture = DirectoriRecursos & "P" & Right(BotoDesp.Picture, 9)
   Clicat = True
   Call SendMessage(Me.hwnd, WM_SYSCOMMAND, MOUSE_MOVE, 0)
End Sub

Private Sub BotoDesp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Clicat And Button = 1 Then
   Call SetWindowPos(Application.hWndAccessApp, HWND_TOP, -200, -200, 10, 10, 0)
   Call ReleaseCapture
   Call SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
   End If
End Sub

Private Sub BotoDesp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   BotoDesp.Picture = DirectoriRecursos & Right(BotoDesp.Picture, 9)
   Clicat = False
End Sub

Espais de color HSL and HSV