vb.net不能拖动窗体,窗口拖动不了

vb.net 多线程执行数据处理和窗体拖动

虽然你的想法是在 LoginBtn_Click 事件中将复杂的操作分离出去以减轻UI的负担, 这很好完全没有问题.

我们提供的服务有：成都网站设计、成都做网站、外贸网站建设、微信公众号开发、网站优化、网站认证、崆峒ssl等。为1000多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的崆峒网站制作公司

但是问题在于 Me.Invoke(dh)这里,若是ChkLogin里面仍然是大规模的操作呢你的代码就又变成将很复杂的操作扔给了UI, 当然会出现窗体无法拖动的情况了.

解决办法很简单, 很多种. 将ChkLogin()里的操作直接放在DelegateLogin()里面吧 me.invoke仅仅只是做简单的轻量的刷新之类的操作就好了.

希望能帮上你的忙.

1、可能是你安装包不全，再找一个安装包试试。另外有些免费(非破解)安装包安装不了一些控件的

2、安装的时候，是不是遗漏了一些组件没选

很简单，通过WindowsAPI，删除窗体菜单项就行了

首先在窗体类中声明API：

Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr

Declare Function RemoveMenu Lib "user32" (ByVal lngHmenu As IntPtr, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer

其次声明API参数常量：

Const MF_BYPOSITION As Integer = H400

然后在窗体类中写入过程：

Private Sub UserForm_Initialize_stopmove() '禁止窗体移动

Dim lngHwnd As IntPtr

Dim lngHmenu As IntPtr

lngHwnd = Me.Handle

If lngHwnd 0 Then

lngHmenu = GetSystemMenu(lngHwnd, False)

RemoveMenu(lngHmenu, 0, MF_BYPOSITION) '这里的0代表菜单中从上往下数第一个菜单项

End If

End Sub

Private Sub UserForm_Initialize_onmove() '恢复窗体移动

Dim lngHwnd As IntPtr

Dim lngHmenu As IntPtr

lngHwnd = Me.Handle

If lngHwnd 0 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不能拖动窗体,窗口拖动不了
分享URL：http://scyanting.com/article/hsdsjj.html