[DllImport("Coredll.dll", SetLastError=true)]
static extern int SetClipboardData(int uFormat, IntPtr hMem);
<DllImport("coredll.dll")> Shared Function SetClipboardData(ByVal uFormat As Integer, ByVal hMem As IntPtr) As Integer
End Function
None.
Do you know one? Please contribute it!
None.
Please add some!
<DllImport("coredll.dll")> Shared Function OpenClipboard(ByVal hWndNewOwner As Integer) As Boolean
End Function
<DllImport("coredll.dll")> Shared Function CloseClipboard() As Boolean
End Function
<DllImport("coredll.dll")> Shared Function EmptyClipboard() As Boolean
End Function
<DllImport("coredll.dll")> Shared Function SetClipboardData(ByVal uFormat As Integer, ByVal hMem As IntPtr) As Integer
End Function
Enum uFormat
CF_TEXT = 1
CF_BITMAP = 2
CF_SYLK = 4
CF_DIF = 5
CF_TIFF = 6
CF_OEMTEXT = 7
CF_DIB = 8
CF_PALETTE = 9
CF_PENDATA = 10
CF_RIFF = 11
CF_WAVE = 12
CF_UNICODETEXT = 13
End Enum
Private Sub WriteToClipboard(ByVal text As String)
Dim pText As IntPtr = Marshal.StringToHGlobalUni(text)
OpenClipboard(Nothing)
EmptyClipboard()
Dim hReturn = SetClipboardData(uFormat.CF_UNICODETEXT, pText)
CloseClipboard()
' If SetClipboardData succeeds, the system owns the object identified by the hMem parameter.
' The application may not write to or free the data
If hReturn <> 0 Then
Marshal.FreeHGlobal(pText)
End If
End Sub