VB6 - Copia e Incolla

[FinalFantasy]

Come effettuo il comando CRTL+C (copia) e CRTL+V (incolla) con un immagine messa in un picturebox?

io faccio così

ClipBoard.SetData Picture1.Picture

Però nn va

Poi...faccio ClipBoard.GetData dell'immagine e la voglio mettere in un RichTextBox, ma mi restituisce un numero a quattro cifre...

Mi date qlk porzione di codice per capire bene il funzionamento?

Grassie anticipatamente

[ans]

l'immagine è caricata? penso di si...

fai prima un clear della clipboar: Clipboard.Clear

per il past mi sa te l'ho già spiegato, invia il messaggi WM_PASTE alla richtextbox tramite SendMessage, usa il visualizzatore api di vb per le dichiarazioni della funzione e della costante.

[FinalFantasy]

Ma sto send message come lo uso? E come uso WM_PASTE? Aiutami nella stesura del codice PLZZ

[ans]

SendMessage(RichTextBox1.Hwnd,WM_PASTE,0&,0&)

[FinalFantasy]

Mi dice Expected: =

Dove lo devo mettere sto =?

[xegallo]

o togli le parentesi o ci metti un call davanti

anche se :quipy:

[FinalFantasy]

Ma mi restituisce un altro errore

Sum or Funcion not defined

In altre parole nn esiste il comando

[xegallo]

ma la declare l'hai fatta?
anche se secondo me non è il metodo migliore per risolvere il problema l'uso degli appunti

[FinalFantasy]

nn ho fatto un declare perché nn so da doev iniziare!
Ma un sito abbastanza fornito di sorgenti VB nn c'è?
Perchè HTML nn si munisce di sorgenti C/C++ VB? (sarebbe un ottima idea invece :gren: )

[FinalFantasy]

Ho fatto questo piccolo programma x fare 1 test

Private Sub Form_Load()
Clipboard.Clear
Clipboard.SetData Image1.Picture
RichTextBox1.SelRTF = Clipboard.GetData
End Sub

L'immagine me la mette in memoria, infatti quando io vado nel paint e faccio CTRL+V mi copia uqello ke c'è nella ImageBox. Ma il problema sta nel pastarlo nella RTFBox.

Ora io dico: come si usa questo SendMessage? Helpmee!!