tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re: WIAからのファイルのドラッグについて
投稿日： 2008/09/09(Tue) 14:46
投稿者： K.J.K.
例えば、

Private Declare Function GetClipboardFormatName _
    Lib "user32.dll" Alias "GetClipboardFormatNameA" _
(ByVal FormatID As Long, ByVal Buffer As String, ByVal Length As Long) As Long

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, _
    Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim iLoop As Integer
    If Data.GetFormat(vbCFFiles) Then
        Set Picture1.Picture = LoadPicture(Data.Files(1))
    Else
        For iLoop = &HC000 To &HFFFF
            If Data.GetFormat(iLoop) Then Debug.Print GetFormatName(iLoop)
        Next iLoop
    End If
End Sub

Private Function GetFormatName(ByVal FormatID As Integer) As String
    Dim sBuffer As String
    Dim iID As Long
    sBuffer = String$(256&, vbNullChar)
    iID = CLng(FormatID) & &HFFFF&
    If GetClipboardFormatName(iID, sBuffer, 255&) Then
        GetFormatName = Strings.Left$(sBuffer, InStr(1&, sBuffer, vbNullChar) - 1&)
    End If
End Function

などして、実際に使われているデータ転送のフォーマットを調べてみるとか。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。