锐客网

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

vb.net随意拖动 vb代码move方法移动窗口

IT技术窗体

VB.net如何让按钮在窗体随机移动按钮对象.left=rnd*100
按钮对象.top=rnd*100
把100这个值替换成实际窗体大小即可
vb ， net怎么实现拖拽文件到文本框和粘贴复制？第一步vb.net随意拖动 ， 点击VS工具
请点击输入图片描述
【vb.net随意拖动 vb代码move方法移动窗口】第二步vb.net随意拖动，打开后vb.net随意拖动，新建一个Windows窗体应用程序
请点击输入图片描述
第三步，新建完毕后 ， 如图所示
请点击输入图片描述
第四步，拖动文本框与按钮，如图示
请点击输入图片描述
第五步 ， 将剪贴板复制与粘贴代码输入 ， 如图示
请点击输入图片描述
第六步，运行程序
请点击输入图片描述
7
第七步，点击按钮，成功从剪贴板中复制与粘贴操作
请点击输入图片描述
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 lngHwnd0 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 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实现控件自由移动Dim i As Integer
For i = 0 To Me.Width - Button1.Width'me为容器，典型的是form1
Button1.Left= 1
Windows.Forms.Application.DoEvents()
Next
原理:不断地变化button1的X轴，使其向右移，同样，只要控制好其x,y轴 ， 就可以变化button的变化
如果是做小游戏，建议弄成类吧，把其中的左（右）移或对角其它移动弄成其接口，以便操作 。
由于涉及内容太多，不再详述 。原理都一样
关于vb.net随意拖动和vb代码move方法移动窗口的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：如何查询服务器端口号？ 怎么查服务器口号

    下一篇：包含asp.net的repeater的词条