How to get clipboard data size?

[yxq]

Hello
I want to get Windows clipboard data size, seem to use the function
"GetClipboardDa taSize".

Could anyone please tell how to do using vb.net?

Thanks

[Cor]

Hi

Nice link about all from clipboard, dragging, I fin it very complete

http://msdn.microsoft.com/library/en...ardSupport.asp

I hope this helps,

Cor

[yxq]

Thanks

But i dont know how to get the size.

I found the vb6 code to get text and image size, but how to get all data
size?

'***
Private Declare Function OpenClipboard Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function IsClipboardForm atAvailable Lib "user32" _
(ByVal wFormat As Long) As Long
Private Declare Function GetClipboardDat a Lib "user32" _
(ByVal wFormat As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" _
(ByVal lpString As Long) As Long
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA " _
(ByVal hObject As Long, ByVal nCount As Long, _
ByRef lpObject As Any) As Long
Private Declare Sub RtlMoveMemory Lib "kernel32" _
(ByRef Destination As Any, ByRef Source As Any, _
ByVal Length As Long)

Private Type Bitmap ' 24 bytes
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type

Private Const CF_TEXT As Long = &H1
Private Const CF_BITMAP As Long = &H2

Private Sub Form_Load()
Dim TextPtr As Long
Dim DataPtr As Long
Dim ClipboardText As String
Dim hDIB As Long
Dim BMInfo As Bitmap
Dim DIBSize As Long
' Try and open the clipboard
If (OpenClipboard( Me.hwnd)) Then
If (IsClipboardFor matAvailable(CF _TEXT)) Then
TextPtr = GetClipboardDat a(CF_TEXT)

' De-reference the pointer
Call RtlMoveMemory(D ataPtr, ByVal TextPtr, &H4)

Debug.Print "CF_TEXT size: " & BytesToDisplay( lstrlen(DataPtr ))
Else
Debug.Print "No text in clipboard buffer"
End If

If (IsClipboardFor matAvailable(CF _BITMAP)) Then
hDIB = GetClipboardDat a(CF_BITMAP)

If (GetObject(hDIB , Len(BMInfo), BMInfo)) Then
' Get data and BMIH size
DIBSize = (BMInfo.bmWidth Bytes * BMInfo.bmHeight ) + 40

' Append palette size if required
If ((BMInfo.bmBits Pixel <= 8) And (BMInfo.bmBitsP ixel > 0))
Then _
DIBSize = DIBSize + (2 ^ BMInfo.bmBitsPi xel) * 4

Debug.Print "CF_BITMAP size: " & BytesToDisplay( DIBSize)
Else
Debug.Print "Error getting Bitmap information..."
End If
Else
Debug.Print "No DIB in clipboard buffer"
End If

' Make sure we close the clipboard before quitting
Call CloseClipboard
End If
End Sub

Private Function BytesToDisplay( ByVal inSize As Variant, _
Optional ByVal inShowBytes As Boolean = False) As String
Dim CheckSize As Variant, LastSize As Variant ' Coerced into decimal
Dim LoopSize As Long

CheckSize = CDec(1)
For LoopSize = 0 To 8
LastSize = CheckSize
CheckSize = (2 ^ 10) ^ LoopSize
If (CheckSize > inSize) Then Exit For
Next LoopSize

' Byte, KiloB., MegaB., GigaB., TeraB., PetaB., ExaB., ZettaB., YottaB.
BytesToDisplay = Format(inSize / IIf(LoopSize < 9, LastSize, CheckSize),
IIf(LoopSize > 1, "0.00", "0")) & " " & Choose(LoopSize , _
"bytes", "kb", "Mb", "Gb", "Tb", "Pb", "Eb", "Zb", "Yb")

If (inShowBytes And (LoopSize > 1)) Then _
BytesToDisplay = BytesToDisplay & (" (" & _
Format(inSize, "#,###,###,###, ###,###,###,### ,###") & " bytes)")
End Function
'***

"Cor" <no*@non.com> дÈëÓʼþ news:uQ******** ******@tk2msftn gp13.phx.gbl...

Hi

Nice link about all from clipboard, dragging, I fin it very complete

http://msdn.microsoft.com/library/en...ardSupport.asp
I hope this helps,

Cor