社区应用 最新帖子 精华区 社区服务 会员列表 统计排行 社区论坛任务 迷你宠物
发帖 回复
« 返回列表上一主题下一主题
  • 3031阅读
  • 3回复

又有点小收获了..VB拖放操作
jackal
级别: 经院高中
发帖
369
铜板
3800
人品值
215
贡献值
0
交易币
0
好评度
305
信誉值
0
金币
0
所在楼道
只看楼主 更多操作 0 发表于: 2006-06-12
还是很简单的.为了我的软件写的更完美先 A4cOnG,  
c(e>Rmh  
抄别人的..嘎嘎~~~~ 6tndC o;`  
抓图如下拉: ,|B-Nq  
H#DvCw  
8lL|j  
FORM代码如下: tKeTHj;jO  
复制代码
  1. Option Explicit
  2. ' A demo project of DragDrop file routines. This demo shows the difference
  3. ' between using a subclassed dragdrop routine and an OLE dragdrop routine.
  4. ' written by Bryan Stafford of New Vision Software?
  5. ' this demo is released into the public domain "as is" without
  6. ' warranty or guaranty of any kind. In other words, use at
  7. ' your own risk.
  9. Private Const GWL_WNDPROC As Long = (-4&)
  10.  
  11. ' API call to alter the class data for this window
  12. Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hWnd&, _
  13.                                         ByVal nIndex&, ByVal dwNewLong&)
  15. Private Sub Form_Load()
  17. ' register picture1 as a window that accepts dragdrop files
  18. DragAcceptFiles qqq.hWnd, 1&
  20. ' take control of message processing by installing our message handling
  21. ' routine into the chain of message routines for picture1
  22. procOld = SetWindowLong(qqq.hWnd, GWL_WNDPROC, AddressOf WindowProc)
  23.                  
  24. End Sub
  26. Private Sub Form_Unload(Cancel As Integer)
  28. ' give message processing control back to VB
  29. ' if you don't do this you WILL crash!!!
  30. Call SetWindowLong(qqq.hWnd, GWL_WNDPROC, procOld)
  32. End Sub
  34. Public Sub DropFiles(ByVal hDrop&)
  36. Dim sFileName$, nCharsCopied&
  38. ' make some space for the file name
  39. sFileName = String$(MAX_PATH, vbNullChar)
  40. ' pass the file handle (hDrop), the index of the file if more than 1 was passed (we
  41. ' still use index zero since we only care about the first file in the list), the variable
  42. ' that will accept the file name and the amount of space that that variable is dimentioned for.
  43. nCharsCopied = DragQueryFile(hDrop, 0&, sFileName, MAX_PATH)
  45. ' clean up after ourselves bu closing the file handle
  46. DragFinish hDrop
  48. ' if there were chars copied, get the file name and try to load it into the picturbox
  49. If nCharsCopied Then
  50.   sFileName = Left$(sFileName, nCharsCopied)
  52.   ' incase it's not a valid picture display the error message
  53.   qqq.Text = sFileName
  54. End If
  56. Exit Sub
  58. End Sub
"J`&"_CyZ  
 +l/v`=C  
复制代码
  2. Option Explicit
  3. ' A demo project of DragDrop file routines. This demo shows the difference
  4. ' between using a subclassed dragdrop routine and an OLE dragdrop routine.
  5. ' written by Bryan Stafford of New Vision Software?
  6. ' this demo is released into the public domain "as is" without
  7. ' warranty or guaranty of any kind. In other words, use at
  8. ' your own risk.
  10. ' See the comments at the end of this module for a brief explaination of
  11. ' what subclassing is.
  13. ' max length of a path string on the system
  14. Public Const MAX_PATH As Long = 260&
  16. ' the messages that we want to catch
  17. Public Const WM_DROPFILES As Long = &H233&
  20. ' this var will hold a pointer to the original message handler so we MUST
  21. ' save it so that it can be restored before we exit the app. if we don't
  22. ' restore it.... CRASH!!!!
  23. Public procOld As Long
  25. '
  26. Public Declare Function CallWindowProc& Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc&, _
  27.                                   ByVal hWnd&, ByVal Msg&, ByVal wParam&, ByVal lParam&)
  28.                                  
  29. ' drag and drop files APIs
  30. Public Declare Sub DragAcceptFiles Lib "shell32.dll" (ByVal hWnd&, ByVal fAccept&)
  31.                    
  32. Public Declare Function DragQueryFile& Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop&, ByVal iFile&, _
  33.                                                       ByVal lpszFile$, ByVal cch&)
  34. Public Declare Sub DragFinish Lib "shell32.dll" (ByVal hDrop&)
  36. 'WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!!
  37. '
  38. ' Do NOT try to step through this function in debug mode!!!!
  39. ' You WILL crash!!! Also, do NOT set any break points in this function!!!
  40. ' You WILL crash!!! Subclassing is non-trivial and should be handled with
  41. ' EXTREAME care!!!
  42. '
  43. ' There are ways to use a "Debug" dll to allow you to set breakpoints in
  44. ' subclassed code in the IDE but this was not implimented for this demo.
  45. '
  46. 'WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!!
  48. Public Function WindowProc(ByVal hWnd As Long, ByVal iMsg As Long, _
  49.                               ByVal wParam As Long, ByVal lParam As Long) As Long
  50.  
  51. ' this is *our* implimentation of the message handling routine
  53. ' determine which message was recieved
  54. Select Case iMsg
  55.  
  56.   ' grab the message that tells us when a file was dropped on the picturebox
  57.   Case WM_DROPFILES
  58.     ' call the sup that we defined in the form module passing wParam which is the handle to the file
  59.     frmDragDropFiles.DropFiles wParam
  60.    
  61.     ' return zero to windows and get out
  62.     WindowProc = False
  63.     Exit Function
  64.    
  65. End Select
  67. ' pass all messages on to VB and then return the value to windows
  68. WindowProc = CallWindowProc(procOld, hWnd, iMsg, wParam, lParam)
  70. End Function
  72. ' What is subclassing anyway?
  73. '
  74. ' Windows runs on "messages". A message is a unique value that, when
  75. ' recieved by a window or the operating system, tells either that
  76. ' something has happened and that an action of some sort needs to be
  77. ' taken. Sort of like your nervous system passing feeling messages
  78. ' to your brain and the brain passing movement messages to your body.
  79. '
  80. ' So, each window has what's called a message handler. This is a
  81. ' function where all of the messages FROM Windows are recieved. Every
  82. ' window has one. I mean EVERY window. That means every button, textbox,
  83. ' picturebox, form, etc... Windows keeps track of where the message
  84. ' handler (called a WindowProc [short for PROCedure]) in a "Class"
  85. ' structure associated with each window handle (otherwise known as hWnd).
  86. '
  87. ' What happens when a window is subclassed is that you insert a new
  88. ' window procedure in line with the original window procedure. In other
  89. ' words, Windows sends the messages for the given window to YOUR WindowProc
  90. ' FIRST where you are responsible for handling any messages you want to
  91. ' handle. Then you MUST pass the remaining messages on to the default
  92. ' WindoProc. So it looks like this:
  93. '
  94. ' Windows Message Sender --> Your WindowProc --> Default WindowProc
  95. '
  96. ' A window can be subclassed MANY times so it could look like this:
  97. '
  98. ' Windows Message Sender --> Your WindowProc --> Another WindowProc _
  99. ' --> Yet Another WindowProc --> Default WindowProc
  100. '
  101. ' You can also change the order of when you respond to a message by
  102. ' where in your routine you pass the message on to the default WindowProc.
  103. ' Let's say that you want to draw something on the window AFTER the
  104. ' default WindowProc handles the WM_PAINT message. This is easily done
  105. ' by calling the default proc before you do your drawing.   Like so:
  106. '
  107. ' Public Function WindowProc(Byval hWnd, Byval etc....)
  108. '
  109. '   Select Case iMsg
  110. '   Case SOME_MESSAGE
  111. '     DoSomeStuff
  112. '
  113. '   Case WM_PAINT
  114. '     ' pass the message to the defproc FIRST
  115. '     WindowProc = CallWindowProc(procOld, hWnd, iMsg, wParam, lParam)
  116. '
  117. '     DoDrawingStuff ' <- do your drawing
  118. '
  119. '     Exit Function ' <- exit since we already passed the
  120. '               '   measage to the defproc
  121. '
  122. '   End Select
  123. '
  124. '   ' pass all messages on to VB and then return the value to windows
  125. '   WindowProc = CallWindowProc(procOld, hWnd, iMsg, wParam, lParam)
  126. '
  127. ' End Function
  128. '
  129. '
  130. ' This is just a basic overview of subclassing but I hope it helps if
  131. ' you were fuzzy about the subject before reading this.
  132. '
XIbZ_G^ +D  
>a,D8M?  
注释倒是挺多滴!!呵呵....开心哦...
评价一下你浏览此帖子的感受

精彩
感动
搞笑
开心
愤怒
无聊
灌水
回复 引用
举报顶端
枫
级别: 经院博士
发帖
3975
铜板
4727
人品值
1147
贡献值
565
交易币
0
好评度
3833
信誉值
0
金币
0
所在楼道
学一楼
只看该作者 1 发表于: 2006-06-12
深奥 eZLEdTScM  
UtQey ;w  
这个是干傻用的？
引用
 
我的身体给了一个连畜生都不如的男人【连载】

引用
想找我？如果我即不在 石家庄经济学院论坛www.uebbs.net，也不在宿舍，那，我肯定是在去的路上

引用

  30元/月 这个地方的签名广告位就是你的 保证点击效果
回复 引用
举报顶端
jackal
级别: 经院高中
发帖
369
铜板
3800
人品值
215
贡献值
0
交易币
0
好评度
305
信誉值
0
金币
0
所在楼道
只看该作者 2 发表于: 2006-06-12
就是拖放用的嘛。。。。 QEhn  
ttzNv>L,  
把一个文件拖进去，然后就能显示文件的路径啊。。 2 }r=DAe0  
<EpL<K%  
别的没有了。
回复 引用
举报顶端
ヾ1.嗰rёn
级别: 终身会员
发帖
3743
铜板
8
人品值
493
贡献值
9
交易币
0
好评度
3746
信誉值
0
金币
0
所在楼道
只看该作者 3 发表于: 2006-06-12
学习~~~ _\ToA9m  
看代码不是要问他干吗用 0 =j }`  
是用来学习的 !Rn6x $_  
只有多看看代码才能编出好的代码~ &9p!J(C  
就是不懂VB Z<-_Y]4j  
还是顶一下~
回复 引用
举报顶端
发帖 回复
« 返回列表上一主题下一主题
描述
快速回复
您目前还是游客，请 登录 或 注册
如果您在写长篇帖子又不马上发表，建议存为草稿
认证码:
验证问题：
10+5=?，请输入中文答案:十五