CISA FotoGallery

Statistiche

Tot. visite contenuti : 895798
Home Articoli tecnici General La ClipBoard in VBA

La ClipBoard in VBA

CODICE

L'oggetto ClipBoard in VBA è gestibile in modo completo tramite API, ma in modo semplice anche se limitato usando il Metodo Runcommand :

 

RunCommand acCmdCopy/acCmdPaste

 

Ovviamente serve attivare preventivamente il controllo testo dal quale copiare e successivamente il controllo nel quale eseguire la funzione "Incolla".

Per copiare il contenuto di un Controllo [txtCopy] nella ClipBoard:

   Call CopyClipboard(Me.txtCopy)

Per incollare il contenuto della ClipBoard nel Controllo [txtPaste]

   Call PasteClipboard(Me.txtPaste)

Le due funzioni:

Sub CopyClipboard(ctrSource As Access.Control)
   On Error Resume Next
   
ctrSource.SetFocus
   ctrSource.SelStart = 0
   ctrSource.SelLength = Len(ctrSource.Value)
   DoCmd.RunCommand acCmdCopy
End Sub

Sub
PasteClipboard(ctrDestination As Access.Control)
   On Error Resume Next
   
ctrDestination .SetFocus
   DoCmd.RunCommand acCmdPaste
End Sub


Alessandro