大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
From1.Height = "100" '窗体高度
成都创新互联服务项目包括招远网站建设、招远网站制作、招远网页制作以及招远网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,招远网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到招远省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
From1.Width = "100" '窗体宽度
From1.Location = New Point(500, 100) ’移动窗体(横坐标,纵坐标)
新建一窗体FORM2,在原窗体FORM1的在mousemove事件中增加FORM2.left=XX,FORM2.TOP=YY.XX,yy是鼠标的坐标.
1、无边框窗体也就是无标题栏窗体,对于这样的窗体移动需要编程实现。
2、vb有两种办法实现,一直接编程实现,二调用windows API编程实现。
3、这里示例直接编程实现:
Option Explicit
Dim BolIsMove As Boolean, MousX As Long, MousY As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then BolIsMove = True
MousX = X
MousY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim CurrX As Long, CurrY As Long
If BolIsMove Then
CurrX = Me.Left - MousX + X
CurrY = Me.Top - MousY + Y
Me.Move CurrX, CurrY
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
BolIsMove = False
End Sub
'点击窗口的任何位置拖动窗体
Dim ctX As Single, ctY As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ctX = X: ctY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Left = Me.Left + X - ctX
Me.Top = Me.Top + Y - ctY
End If
End Sub
vs本身是用了类似DockPanel的组件 用于处理多文档编辑的UI环境...
如果想获得类似的组件 wpf好像提供了现成的控件...
第三方的也可以使用dotnetbar组件...在.net 2.0环境下就可以用
每次移动标签时,先判断一下标签的右边是否达到了窗体的右边,如果达到了,改变运动方向,向下移动,方法与向左移动相似。
然后还是判断,标签下边是否达到了窗体的下边,如果是,就改变方向。
判断使用
If Me.Label1.Bottom = Me.Bottom Then
End If
If Me.Label1.Right = Me.Right Then
End If
另两个分别是top,left
需要说明一下的是,当你用标签与窗体四边比较时,可能要适当有个间距,要不然就完全重合了。
间距大小,你就自己根据需要调整就可以了。