100分相送,api高手請進........

Question

只听说要写Shell Extensions，我也不会

Answer 1

很難嗎?文件拖入程序用lv_OLEDragDrop很容易就可以做到,我想著個逆過程不會難到那裡去吧,隻是我不知道罷了
那位高手有相關檢驗指點一下吧

Answer 2

试一试看吧，API好像能获得鼠标指向的程序据柄

Answer 3

htu(黄土)　
     謝謝,請給個例子給我學習

Answer 4

TreeView有个方法是HitTest,她就是用来定位你所选的NODE的！里面有两个参数（X，Y）照你的意思说的话可以要转换坐标的，试试吧！

Answer 5

up....up.....累的沒力氣up了,那位仁兄幫幫手,up一下也好啊..........

Answer 6

基本已经完成，包括目录，文件存取权限，文件备份以及单个或成批文件从sql提取到指定目录，文件预览，查询，文件在各个分类之间的剪切，拷贝,文件默认图标在listview的显示
现在是想加多一点更方便的功能而已，就差不知道如何获得鼠标放下所在位置的绝对路径了，知道以后我就可以把选中的文件提取到鼠标放下的地方，或者桌面或者目录

Answer 7

songyangk(小草)　
我的api只停留在使用现成模块的水准，请问是否有这样的API函数，有的话如何用，贴个例子吧。

Answer 8

暂时还没有，但可以给你提供一个思路，比如在拖动后用SetCaputre(好象是这么写吧) 函数拦截所有鼠标事件，在Mouse_Up事件里取鼠标位置，再判断鼠标位置的活动窗体。

Answer 9

复杂，太麻烦了，比我想象的男多了
实在不行就只好放弃这个小功能了（下决心啃下api）

Answer 10

小草：
还有什么高见吗？一起研究一下吧
我的程序基本功能都已经完成，这个只是锦上添花的小功能而已
不过我觉得获取绝对路径还是很有用的，没办法，不熟悉API，没思路
再帮忙看看吧

Answer 11

to: hnlzh(吸海垂虹)　不要放弃，也许你离成功只差一步，得几天看看

Answer 12

Private Sub ListView1_OLESetData(Data As MSComctlLib.DataObject, DataFormat As Integer)
    '要确保指定文件在磁盘上存在，否则会提示文件找不到
    '如果文件数据保存在数据库中，则先要取出保存在磁盘上
    Data.Files.Add ListView1.SelectedItem.Text
End SubPrivate Sub ListView1_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
    AllowedEffects = vbDropEffectCopy
    Data.Clear
    Data.SetData , vbCFFiles
End Sub

Answer 13

ltpao(啊炮)　:
先謝謝你的幫助.這種方法我想應該是可以的,但問題是:
所有文件都保存在sqlserver中,按上面的方法就要先提取出來,然後在寫到指定的地方去,最後刪除提取的臨時文件,這樣效率很低,如果是幾個2m左右的大文件就要先喝點咖啡等待鼠標由沙漏變回箭頭了
如果能夠直接得到鼠標up時的絕對路徑就會好很多了....

Answer 14

Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
        "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long'剪贴版处理函数
Private Declare Function EmptyClipboard Lib "user32" () 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 SetClipboardData Lib "user32" (ByVal wFormat _
        As Long, ByVal hMem As Long) As Long
Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat _
        As Long) As Long
Private Declare Function IsClipboardFormatAvailable Lib "user32" _
        (ByVal wFormat As Long) As LongPrivate Declare Function DragQueryFile Lib "shell32.dll" Alias _
        "DragQueryFileA" (ByVal hDrop As Long, ByVal UINT As Long, _
        ByVal lpStr As String, ByVal ch As Long) As Long
Private Declare Function DragQueryPoint Lib "shell32.dll" (ByVal _
        hDrop As Long, lpPoint As POINTAPI) As Long
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags _
        As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As _
        Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As _
        Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As _
        Long) As Long
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" _
        (Destination As Any, Source As Any, ByVal Length As Long)上
     If SetClipboardData(CF_HDROP, hGlobal) Then
                clipCopyFiles = True
            End If
        End If
        Call CloseClipboard
    End If
'确定剪贴版的数据格式是文件，并打开剪贴版
   If IsClipboardFormatAvailable(CF_HDROP) Then
        If OpenClipboard(0&) Then
            hDrop = GetClipboardData(CF_HDROP)
            '获得文件数
            nFiles = DragQueryFile(hDrop, -1&, "", 0)
      
            ReDim Files(0 To nFiles - 1) As String
            filename = Space(MAX_PATH)
         
            '确定执行的操作类型为拷贝操作
     tfStr.wFunc = FO_COPY
     '目的路径设置为File1指定的路径
            tfStr.pTo = Form1.File1.Path
         
            For i = 0 To nFiles - 1
  '根据获取的每一个文件执行文件拷贝操作
                Call DragQueryFile(hDrop, i, filename, Len(filename))
                Files(i) = TrimNull(filename)
                tfStr.pFrom = Files(i)
                SHFileOperation tfStr
            Next i
            Form1.File1.Refresh
            Form1.Dir1.Refresh
         
            Call CloseClipboard
        End If
        clipPasteFiles = nFiles
    End If我是乱贴的，你有问题，我当然要帮你，尽管不正确，是吧

Answer 15

dzbswl(白雪儿)
   你老人家又年輕又漂亮又熱心又厲害,謝謝...不過沒用,問題還是沒解決.

Answer 16

hnlzh(吸海垂虹)
把你的程序发给我老人家看看吧，OK？

Answer 17

我有一個想法,在鼠標up時如果可以用sendmessage觸發一個vb的OLEDragDrop時間,那樣就可以通過這個事件獲得覺得路徑
但我是api菜鳥,不知如何實現,那位高人再指點?

Answer 18

hnlzh(吸海垂虹)　
婆婆我又帮你找了一个，供你参考啊，我老眼昏花，看不懂，一会我吃完饭回来发给你

Answer 19

如何将listview中显示出来的记录拖到treeview中去
Option Explicit
Private Sub Form_Load()
TreeView1.Nodes.Add , , "aa", "aa"
TreeView1.Nodes.Add , , "bb", "bb"
ListView1.ListItems.Add , , "cc"
ListView1.ListItems.Add , , "dd"
ListView1.OLEDragMode = ccOLEDragAutomatic
ListView1.LabelEdit = lvwManual
End Sub
Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
  ListView1.DragIcon = ListView1.SelectedItem.CreateDragImage
  ListView1.Drag vbBeginDrag
End If
End Sub
Private Sub TreeView1_DragDrop(Source As Control, x As Single, y As Single)
If Not TreeView1.DropHighlight Is Nothing Then
  TreeView1.Nodes.Add TreeView1.DropHighlight.Key, tvwChild, GetNextKey() & ListView1.SelectedItem.Text, ListView1.SelectedItem.Text
  TreeView1.DropHighlight.Expanded = True
End If
End Sub
Private Sub TreeView1_DragOver(Source As Control, x As Single, y As Single, State As Integer)
Set TreeView1.DropHighlight = TreeView1.HitTest(x, y)
End Sub
Private Function GetNextKey() As String
Dim sNewKey As String
Dim iHold As Integer
Dim i As Integer
On Error GoTo myerr
iHold = Val(TreeView1.Nodes(1).Key)
For i = 1 To TreeView1.Nodes.Count
    If Val(TreeView1.Nodes(i).Key) > iHold Then
      iHold = Val(TreeView1.Nodes(i).Key)
    End If
Next
iHold = iHold + 1
sNewKey = CStr(iHold) & "_"
GetNextKey = sNewKey
Exit Function
myerr:
GetNextKey = "1_"
End Function