锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net拖动 vb怎么移动窗口( 二 )

IT技术Festung


End Sub
Private Sub UserForm_Initialize_onmove() '恢复窗体移动
Dim lngHwnd As IntPtr
Dim lngHmenu As IntPtr
lngHwnd = Me.Handle
If lngHwnd0 Then
lngHmenu = GetSystemMenu(lngHwnd, True)
RemoveMenu(lngHmenu, 0, MF_BYPOSITION) '这里的0与禁止代码中的数值同步，原因时虽然表面上删除了菜单项，实则为隐藏了菜单项，各个菜单的索引值并没有变，所以0依然代表初始菜单的第一个菜单项，即被删除的那个菜单项
End If
End Sub
然后如果你的窗口菜单是动态变化的，建议声明常数：
Const MF_BYPOSITION As Integer = H0
然后使用相关的Windows功能的常数进行删除菜单 。常数需要自行查看winuser.h头文件
如果找不到该头文件，可以看这里：网页链接
其余信息详见MSDN：网页链接
最后说一下，不建议前面网友说的重写WndProc的方法，因为这样拦截标题栏点击消息会导致窗体本身的菜单也无法显示出来，有损窗体功能 ， 并且像双击左上角图标关闭窗体这样的功能也会跟着拦截消息的操作一起被吞掉 。
在VB.NET中实现文件的拖放 本文介绍了在VB NET中如何实现接受拖放的文件 即从资源管理器中拖放到应用程序中的时候 自动获取拖放的文件 文中的例子是一个接受拖放文件显示文件内容的VB NET实例程序 引言
对于文本格式的文件 vb.net拖动我们可以直接拖到记事本中就可以看到内容 各种类型的图片 拖到Photoshop中 就可以直接对其编辑 我们如何在VB NET开发的程序也实现上述效果呢vb.net拖动？
思路
我们知道 每一个Windows的应用程序都有一个消息队列 程序的主体接受系统的消息 然后分发出去（给一个form 或者一个控件） 接受者有相应的程序来处理消息 在 NET的Form中 默认情况下程序是不翻译这些消息的 也就是说默认我们的Class是不加入应用程序的消息泵 能不能把我们的Form Class加入应用程序的消息泵呢vb.net拖动？可以vb.net拖动！
在 NET中 任何一个实现IMessageFilter 接口的类 可以添加到应用程序的消息泵中 以在消息被调度到控件或窗体之前将它筛选出来或执行其他操作 使用 Application 类中的 AddMessageFilter 方法 可以将消息筛选器添加到应用程序的消息泵中
于是我们在程序加载的时候 调用Application AddMessageFilter（Me） 然而 默认情况下一个Form或者控件是不能接受拖放的文件的 我们调用一个WIN API DragAcceptFiles源码天空 这个API可以设置对应的控件是否能接受拖放的文件 然后可以用DragQueryFile查询拖放到的文件列表 也就是拖放文件地具体路径和文件名
代码
Imports System Runtime InteropServices
Public Class Form
Inherits System Windows Forms Form
Implements IMessageFilter
API申明
Const WM_DROPFILES = H拖放文件消息
DllImport（ shell dll ） Public Shared Sub DragFinish（ByVal hDrop As Integer）
End Sub
DllImport（ shell dll ） Public Shared Sub DragAcceptFiles（ByVal hwnd As Integer ByVal fAccept As Boolean）
End Sub
DllImport（ shell dll ） Public Shared Function DragQueryFile（ByVal HDROP As Integer ByVal UINT As Integer ByVal lpStr As System Text StringBuilder ByVal ch As Integer） As Integer
End Function
Private Sub Form _Load（ByVal sender As System Object ByVal e As System EventArgs） Handles MyBase Load
Application AddMessageFilter（Me）
DragAcceptFiles（TextBox Handle ToInt True）
End Sub
Function PreFilterMessage（ByRef m As Message） As Boolean Implements IMessageFilter PreFilterMessage
If m Msg = WM_DROPFILES Then
设置拖放的动作
Dim nfiles As Int
nfiles = DragQueryFile（m WParam ToInt Nothing ）

推荐阅读


上一篇：电影迅雷免费下载，迅雷电影怎么下载电影

下一篇：gis中的几何网络，arcgis几何网络分析没反应