vb.net工具档移动 vb移动窗体-成都创新互联网站建设

关于创新互联

多方位宣传企业产品与服务 突出企业形象

公司简介 公司的服务 荣誉资质 新闻动态 联系我们

vb.net工具档移动 vb移动窗体

vb.net 如何移动文件夹?

Microsoft.VisualBasic.FileSystem.Rename(原文件夹完整路径名称,新的文件夹名称)

成都创新互联公司专业为企业提供青云谱网站建设、青云谱做网站、青云谱网站设计、青云谱网站制作等企业网站建设、网页设计与制作、青云谱企业网站模板建站服务,十载青云谱做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。

Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\1")‘当路径不对时会把原文件夹剪切到“D:\2\”下面文件夹名称不变

Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\2")")‘当路径不对时会把原文件夹剪切到“D:\2\”下面文件夹名称 更改为 2

Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2")’当路径相同时只改文件夹名称 不移动文件

如何在VB.net中用程序控制鼠标移动和点击

调用api

在Visual Baisc.net中的声明:

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放

Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动

例:

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在(10,10)模拟鼠标左键按下

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 文件转移

在窗体上放置一个 Timer 控件,Interval 属性设置为 120000(120000毫秒=120秒=2分钟),Enabled 属性设置为 True,添加如下代码:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim dDir1 As New System.IO.DirectoryInfo("C:\a")

dDir1.MoveTo("D:\b")  '移动 C:\a 文件夹所有文件到 D:\b    

End Sub


网站题目:vb.net工具档移动 vb移动窗体
链接分享:http://kswsj.cn/article/dosopdo.html

其他资讯