VB语言把控件左右 或上下移动 怎么说
作者&投稿:守咐 (若有异议请与网页底部的电邮联系)
手机很慢,回去电脑写给你
让控件移动,就是改变控件的Left和Top值,点第一个按钮移到一个地方,说明是一个固定的地方,那么第一个按钮的Click事件代码为:
Text1.Left=100 '改成你想要的值Text1.Top=100 '改成你想要的值文本框向下移50,是指Top自加50,那么第二个按钮的Click事件代码为:
Text1.Top = Text1.Top + 50
向上移动 即减少top属性的值即可 下则增加
或者可以使用move方法
command1.move command1.left+100,command1.top+100 '向右和下移100
Const vbKeyLeft = 37 ' 方向键←
Const vbKeyUp = 38 ' 方向键↑
Const vbKeyRight = 39 ' 方向键→
Const vbKeyDown = 40 ' 方向键↓
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft '左
Label1.Move Label1.Left - 100, Label1.Top, Label1.Width, Label1.Height
Case vbKeyUp '上
Label1.Move Label1.Left, Label1.Top - 100, Label1.Width, Label1.Height
Case vbKeyRight '右
Label1.Move Label1.Left + 100, Label1.Top, Label1.Width, Label1.Height
Case vbKeyDown '下
Label1.Move Label1.Left, Label1.Top + 100, Label1.Width, Label1.Height
End Select
End Sub
试试这个
这是键盘方向键控制标签移动的例子,需要一个label
Command1.Top =
Command1.Left =
top和left修改
孟坚明可: Const vbKeyLeft = 37 ' 方向键← Const vbKeyUp = 38 ' 方向键↑ Const vbKeyRight = 39 ' 方向键→ Const vbKeyDown = 40 ' 方向键↓ Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyLeft '左 ...
怀仁县13554072408: 在VB中如何实现一个命令按钮向右和向下移动? - ?
孟坚明可: 方一:用Left或Top属性分别控制控件的左边距和上边距,命令按钮C1,如C1.Left=C1.Left+a(若a<0则往左移,反之右移)方二:先将C1的DragMode改为1,再在窗体DragDrop事件中写Source.Move X,Y
怀仁县13554072408: VB怎么让标签不断的上下左右移动 - ?
孟坚明可: 使用timer空间使标签的top属性变大或变小,标签会往下或往上移动,使标签的left属性变大或变小,标签会往右或往左移动,同时使用,标签就会像DVD那样了. 具体怎么移动完全取决于你的想法,没有固定的代码.
怀仁县13554072408: vb中让text中内容左右上下移动 - ?
孟坚明可: VB中的文本框控件的内容的显示格式是固定的,有居左、居右、居中,好像不能左右上下移动,但控件在窗体的位置可以左右上下移动,你可以设置控件在窗体的位置移动.
怀仁县13554072408: VB怎么精确的移动控件 - ?
孟坚明可: 点菜单[工具]-[选项],在选项对话框中打开[通用]项,将[窗体网格设置]中的“对齐控件到网格”的勾去掉.注:微移控件:在选中要移动的控件后,按键盘的Ctrl+上/下/左/右,可以将控件仅移动一个单位.其实对齐控件的话,不一定要设置值或用微移的,可以将某些控件移到大概的一个位置,然后参照某个控件的位置做调整,如将B控件位置参照A控件对齐.操作菜单[格式]-[对齐] / [统一尺寸] / [水平间距] / [垂直间距] 等都可以很快的定位控件显示位置.
怀仁县13554072408: VB中如何编程让窗体在屏幕上左右来回移动 - ?
孟坚明可: 添加一个定时器,定时器移动,超过屏幕自动回来.代码如下:Dim M As Integer '定义变量,确定移动方向 Private Sub Form_Load() Timer1.Interval = 200 '移动时间 0.2秒移一次 Me.Left = 0 '左空初始为0 M = 0 '默认先向右移 End SubPrivate ...
怀仁县13554072408: vb使按钮左右移动 - ?
孟坚明可: 比如有3个按钮,1,2,3,3在1,2之间. 取得1按钮的右边位置,left属性+width属性,2按钮的左位置,就是left属性. 再定位3的left就可以了.Dim a Private Sub Command2_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Form_Click() Timer...
怀仁县13554072408: 在vb中怎样使窗体右移或下移 - ?
孟坚明可: Private Sub CommandButton1_Click() Form1.Left = Form1.Left + 10'窗体右移10像素单位 Form1.Top = Form1.Top + 10'窗体下移10像素单位 End Sub
怀仁县13554072408: VB做一个标签 四个控件 点上向上移动 点左向左 - ?
孟坚明可: 在窗体上放四个命令按钮,command1(上)command2(左)command3(下)command4(右)和一个标签label1. 把代码复制到窗体里即可.程序运行时单击相应的近似,标签控件向那个方向移动. 代码如下:Private Sub Command1_...
怀仁县13554072408: VB6如何在代码中使控件移动 - ?
孟坚明可: 让控件移动,就是改变控件的Left和Top值,点第一个按钮移到一个地方 ,说明是一个固定的地方,那么第一个按钮的Click事件代码为:Text1.Left=100 '改成你想要的值 Text1.Top=100 '改成你想要的值文本框向下移50,是指Top自加50,那么第二个按钮的Click事件代码为:Text1.Top = Text1.Top + 50