vb点虐 菜单滑动 vb移动按钮

VB.NET怎么可以限制窗体不能被鼠标随便拖动位置

很简单，通过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点虐 中怎样实现窗口标题栏上面的文字滚动

字符拼凑法:

dim Title as string="播放歌曲播放歌曲"

dim S as string=""

for I as integer=0 to Title.length-1

S=Title.Substring(i,iif(Title.length-i0,title.length-i,1)

next

vb点虐 中如何添加滚动条，像在VB6中那样的。不是窗体本身的滚动条

建立滚动条的方法如下：

（1）将鼠标移到ToolBox内的WinForm标签页的HscrollBar控件上，单击鼠标左键。

（2）将指针移至窗体中适当的位置，按住鼠标左键并拖动鼠标将HscrollBar控件调整到合适的大小放开左键。

（3）同样，再在Form上设置一个VscrollBar控件。