Newsgroup: it.comp.appl.access
Titolo: usare la clipboard in access

sto cercando di usare una funziona che copia alcuni dati nella clipboard
l'esempio era in vb ma in vba mi da errore non riconosce l'oggetto
avete mai usato la clipboard in access? avete un esempio?
Grazie.



 ha scritto nel messaggio
news:c5oe17$2m4$1...@lacerta.tiscalinet.it...

ClipBoard a parte cosa devi fare....?
Io ho una Classe già fatta che si appoggia alle API di gestione ClipBoard
ma non è detto che faccia quello che vuoi tu....?
@Alex.


devo creare da codice vba una bitmap in c:\ da allegare poi ad una email che
il cliente mi invierà in caso di errori per vedere la schermata dell'errore.
per mandare la email non ce problema solo che usavo un esempio in vb6 che
faceva questo preso dal sito comune ma il codice preso e messo in vba dice
oggetto non conosciuto "clipboard"
sai aiutarmi? grazie.

 ha scritto nel messaggio
news:c5p4p3$sgi$1...@lacerta.tiscalinet.it...

Come sempre no dovresti proporre tu la soluzione, ma spiegare il fine.
Clipboard o meno se vai sul sito di Lebans trovi un'esempio di come
salvare lo Sfondo in bmp o wmf non ricordo.....!
PEr usare Clipboard servono le API e sicuramente l'utilizzo dell'Handle
nonchè dell'Hdc, cosa che in Access si ricava con altre API :
HWND devi prima spostare il Focus sull'Oggetto con l'API GetFocus
poi ricavare l'Hwnd
Per l'HDC devi usare GetDC, ma la sua gestione non è sempre elementare.
Prova quello già fatto 
www.lebans.com
@Alex.

 ha scritto nel messaggio
news:c5pc08$4e0bh$2...@ID-163946.news.uni-berlin.de...

Nel portaTazza è meglio.
Ti ricordi quel post di qualche anno fà a riguardo del Portatazza...?
@Alex.
**************************************************
DICHIARAZIONI API PER CLIPBOARD
**************************************************
Private Declare Function IsClipboardFormatAvailable _
    Lib "user32" _
    (ByVal uFormat As Integer) As Integer
Private Declare Function OpenClipboard _
    Lib "user32" _
    (ByVal hWnd As Long) As Integer
Private Declare Function GetClipboardData _
    Lib "user32" _
    (ByVal uFormat As Integer) As Long
Private Declare Function GlobalSize _
    Lib "kernel32" _
    (ByVal hMem As Long) As Integer
Private Declare Function GlobalLock _
    Lib "kernel32" _
    (ByVal hMem As Long) As Long
Private Declare Sub MoveMemory _
    Lib "kernel32" Alias "RtlMoveMemory" _
    (ByVal strDest As Any, _
    ByVal lpSource As Any, _
    ByVal Length As Long)
Private Declare Function GlobalUnlock _
    Lib "kernel32" _
    (ByVal hMem As Long) As Integer
Private Declare Function CloseClipboard _
    Lib "user32" () As Integer
Private Declare Function GlobalAlloc _
    Lib "kernel32" _
    (ByVal uFlags As Integer, ByVal dwBytes As Long) As Long
Private Declare Function EmptyClipboard _
    Lib "user32" () As Integer
Private Declare Function SetClipboardData _
    Lib "user32" _
    (ByVal uFormat As Integer, ByVal hData As Long) As Long
Private Declare Function GlobalFree _
    Lib "kernel32" _
    (ByVal hMem As Long) As Long
Private Const GMEM_MOVABLE = &H2&
Private Const GMEM_DDESHARE = &H2000&
Private Const CF_TEXT = 1
'Error return codes from Clipboard2Text
Private Const CLIPBOARDFORMATNOTAVAILABLE = 1
Private Const CANNOTOPENCLIPBOARD = 2
Private Const CANNOTGETCLIPBOARDDATA = 3
Private Const CANNOTGLOBALLOCK = 4
Private Const CANNOTCLOSECLIPBOARD = 5
Private Const CANNOTGLOBALALLOC = 6
Private Const CANNOTEMPTYCLIPBOARD = 7
Private Const CANNOTSETCLIPBOARDDATA = 8
Private Const CANNOTGLOBALFREE = 9

 **************************************************
tutte e 12 le hai prese!
Complimenti
;<)
--
a.cara

 ha scritto nel messaggio
news:c5r1m3$4m1ld$1...@ID-163946.news.uni-berlin.de...

Quando ce vò ce vò.....!
Ciao Buon Week End.
@Alex.