[VB] Leggere il CLIPBOARD DATI

[jabjoint]

Come faccio ad ottenere i dati(non immagini ma neanche testo, dati binari) che ho salvato da vb con il clipboard?????

uso le API??? COME???? Grazie a nastro!

Un idea, per quelli che sbagliano:

Il programmatore di questo sito potrebbe automaticamente spostare tutte le discussioni presenti nel forum "programmazione" che anno come titolo "[VB]" nel "sotto forum di VB"

[optime]

usa l'oggetto.... clipboard

[jabjoint]

l' oggetto clipboard ??? Sicuro che mi permette di leggere dati binari? Se si... come??? Grazie mille

[optime]

ma tu come li salvi?

[jabjoint]

in un file binario. Ma nn sono capace ad ottenere i dati se nn le immaggini e testo

[optime]

no. come fai a metterli nella clipboard. o ho capito male?

[jabjoint]

No, aspetta quello che mi occorre a me è ottenere dei dati binari che ho salvato con il computer con VB.

ad esempio copio un file, penso me lo salvi nella clipboard... ecco una volta copiato nel clipboard, io da VB devo ottenere questi dati. Capito?

[jabjoint]

mi sebra di essere stato chiaro...

[Berello]

E' interessante quasto thread.
Ho dato un'occhiata a VB e alla guida in linea.
Usando l'oggetto Clipboard non credo che puoi leggere dati diversi da immagini o testo (che sia testo semplice o RTF).
Sicuramente bisogna trovare un'API.
Prova vedere su www.allapi.net, forse lì troverai qualcosa.
Se trovo la soluzione ti scrivo subito...
Ciao!

[Berello]

Forse puoi usare quest'API:
Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long

Per VB.Net è:
System.Windows.Forms.Clipboard


Questo è un esempio che ho trovato sul sito http://www.allapi.net/apilist/GetClipboardData.shtml :

Private Const CF_TEXT = 1
Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Long, ByVal ByteLen As Long)
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hStrPtr As Long, lLength As Long, sBuffer As String
    OpenClipboard Me.hwnd
    hStrPtr = GetClipboardData(CF_TEXT)
    If hStrPtr <> 0 Then
        lLength = lstrlen(hStrPtr)
        If lLength > 0 Then
            sBuffer = Space$(lLength)
            CopyMemory ByVal sBuffer, ByVal hStrPtr, lLength
            MsgBox sBuffer, vbInformation
        End If
    End If
    CloseClipboard
End Sub

Spero che ti sarà utile (ora lo leggo anch'io ).
Ciao!