Newsgroup: it.comp.appl.access
Titolo: Come Copiare una stringa negli appunti?

Salve,
mi chiedevo se era possibile creare un pulsante che mi mi copia un campo
(stringa) negli appunti.
Ho provato con Visual Basic 6 ed esiste il comando Clipboard, ma in Access
questo comando nen è disponibile. Come fare?
Grz.

"Fabrix Wind" <

http://support.microsoft.com/default.aspx?scid=kb;en-us;210216
Ciao.

 (stringa) negli appunti.
A che ti serve?
Antonio

 ha scritto nel messaggio
news:77eZ9.53114$ZE.14...@twister2.libero.it...


 ha scritto nel messaggio
news:xkeZ9.53188$ZE.14...@twister2.libero.it...


 CTRL + C, usare un pulsante che lo copia automaticamente?
No!
A che ti serve?
Se io so che quello che è scritto in un controllo deve essere copiato da
un'altra parte, lo faccio da codice senza passare dagli appunti
Antonio

 CTRL + C, usare un pulsante che lo copia automaticamente?
Prima di tutto si risponde DOPO il quoting (anto', stavolta mi ti sei
rincitrullito ;-)
Poi forse dovresti studiarti un po' i riferimenti ai controlli prima di
complicarti la vita.
Sib

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:1NLZ9.98473$0v.28...@news1.tin.it...

Innanzi tutto avevo chiesto un aiuto e non una critica su quello che volevo
ottenere.
Poi scrivere prima o dopo il quoting non ha certo importanza visto che avete
ugualmente capito cosa volevo.
Ringrazio infinitamente Warp che è l'unico che ha capito il problema.

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:1NLZ9.98473$0v.28...@news1.tin.it...

uh?
Antonio

 Ringrazio infinitamente Warp che è l'unico che ha capito il problema.
mi pare doveroso.
Sib

 ha scritto nel messaggio
news:SaOZ9.59176$ZE.16...@twister2.libero.it...

Scusa, mi sono rincitrullito io,
 non avevo letto bene il tuo messaggio :-P
Sib

 mi pare doveroso.
ciao Davide 
Questo qui mo ho so segnato sulla lavagnetta colonna cattivi
--
a.cara 
Togli qualcosa dall'email

 Ringrazio infinitamente Warp che è l'unico che ha capito il problema.
pfui, e' non e', ovviamente, per Warp
Normalmente in questi casi e' perche' non ci si e' spiegati.
ohhh. "cidi" che palle sta riga bianca prima della risposta,
ma continuo ad obbedire
smack, smciuck


Crei un modulo e copi la parte qui sotto.
Per l'utilizzo, in qualunque funzione o maschera scrivi cosě:
ClipBoard_SetText( "Tua stringa da copiare in clipboard" )
********************************************************
' la parte qui seguente č per copiare nella clipboard
Private Const GHND = &H42
Private Const CF_TEXT = 1
Private Const CF_ANSIONLY = &H400&
Private Const CF_APPLY = &H200&
Private Const CF_BITMAP = 2
Private Const CF_DIB = 8
Private Const CF_DIF = 5
Private Const CF_DSPBITMAP = &H82
Private Const CF_DSPENHMETAFILE = &H8E
Private Const CF_DSPMETAFILEPICT = &H83
Private Const CF_DSPTEXT = &H81
Private Const CF_EFFECTS = &H100&
Private Const CF_ENABLEHOOK = &H8&
Private Const CF_ENABLETEMPLATE = &H10&
Private Const CF_ENABLETEMPLATEHANDLE = &H20&
Private Const CF_ENHMETAFILE = 14
Private Const CF_FIXEDPITCHONLY = &H4000&
Private Const CF_FORCEFONTEXIST = &H10000
Private Const CF_GDIOBJFIRST = &H300
Private Const CF_GDIOBJLAST = &H3FF
Private Const CF_HDROP = 15
Private Const CF_INITTOLOGFONTSTRUCT = &H40&
Private Const CF_LIMITSIZE = &H2000&
Private Const CF_LOCALE = 16
Private Const CF_MAX = 17
Private Const CF_METAFILEPICT = 3
Private Const CF_NOFACESEL = &H80000
Private Const CF_NOSCRIPTSEL = &H800000
Private Const CF_NOSIMULATIONS = &H1000&
Private Const CF_NOSIZESEL = &H200000
Private Const CF_NOSTYLESEL = &H100000
Private Const CF_NOVECTORFONTS = &H800&
Private Const CF_NOOEMFONTS = CF_NOVECTORFONTS
Private Const CF_NOVERTFONTS = &H1000000
Private Const CF_OEMTEXT = 7
Private Const CF_OWNERDISPLAY = &H80
Private Const CF_PALETTE = 9
Private Const CF_PENDATA = 10
Private Const CF_PRINTERFONTS = &H2
Private Const CF_PRIVATEFIRST = &H200
Private Const CF_PRIVATELAST = &H2FF
Private Const CF_RIFF = 11
Private Const CF_SCALABLEONLY = &H20000
Private Const CF_SCREENFONTS = &H1
Private Const CF_BOTH = (CF_SCREENFONTS Or CF_PRINTERFONTS)
Private Const CF_SCRIPTSONLY = CF_ANSIONLY
Private Const CF_SELECTSCRIPT = &H400000
Private Const CF_SHOWHELP = &H4&
Private Const CF_SYLK = 4
Private Const CF_TIFF = 6
Private Const CF_TTONLY = &H40000
Private Const CF_UNICODETEXT = 13
Private Const CF_USESTYLE = &H80&
Private Const CF_WAVE = 12
Private Const CF_WYSIWYG = &H8000
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags&, ByVal _
  dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) _
  As Long
Private Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) _
  As Long
Private Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, _
  ByVal lpString2 As Any) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" _
  (ByVal lpString As String) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) _
  As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal Hwnd As Long) _
  As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As _
  Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat _
  As Long, ByVal hMem As Long) As Long
Public Function ClipBoard_SetText(strCopyString As String) As Boolean
  Dim hGlobalMemory As Long
  Dim lpGlobalMemory As Long
  Dim hClipMemory As Long
  ' Allocate moveable global memory.
  '-------------------------------------------
  hGlobalMemory = GlobalAlloc(GHND, Len(strCopyString) + 1)
  ' Lock the block to get a far pointer
  ' to this memory.
  lpGlobalMemory = GlobalLock(hGlobalMemory)
  ' Copy the string to this global memory.
  lpGlobalMemory = lstrcpy(lpGlobalMemory, strCopyString)
  ' Unlock the memory and then copy to the clipboard
  If GlobalUnlock(hGlobalMemory) = 0 Then
    If OpenClipboard(0&) <> 0 Then
      Call EmptyClipboard
      hClipMemory = SetClipboardData(CF_TEXT, hGlobalMemory)
      ClipBoard_SetText = CBool(CloseClipboard)
    End If
  End If
End Function