VB LABEL的上移与下移
因此上移是 LABEL1.top=LABEL1.top -100 下移是用LABEL1.top=LABEL1.top +100 之所以不动是你没对他定义事件,也就是说你应该定义他在发生某个事件时移动 你可以在窗体上添加两个timer控件,在form_load 中写代码, 如下:Private Sub Form_Load()Timer1.Interval = 100 '100可以任意修改 它控制...
vb 中单击command1,label1向窗体左上角移动的代码
Private Sub Command1_Click() '左上角 Label1.Left = 0 Label1.Top = 0 End Sub Private Sub Command2_Click() '中央 Label1.Left = (Form1.ScaleWidth - Label1.Width) \/ 2 Label1.Top = (Form1.ScaleHeight - Label1.Height) \/ 2 End Sub Private Sub Command3_Click() '右上...
VB 编制程序,当点击命令按钮时,标签框左右移动
Private Sub Command1_Click()If Command1.Caption = "左" Then If Label1.Left <= 0 Then Command1.Caption = "右"Else Label1.Left = Label1.Left - 120 End If ElseIf Command1.Caption = "右" Then If Label1.Left >= Form1.Width - Label1.Width Then Command1.Caption = "左...
请问怎么用vb编一个让窗体上的文字左右移动程序
新建工程,一个按钮,一个label,一个timer Private Sub Command1_Click()If Command1.Caption = "开始" Then Command1.Caption = "停止"Else Command1.Caption = "开始"End If Timer1.Enabled = Not Timer1.Enabled End Sub Private Sub Form_Load()Timer1.Enabled = False Timer1.Interval = 1...
vb编程中在控件label1上点击左键移动鼠标使整个窗体也一移动,编码怎么...
添加一个label控件 '窗体代码 Private downx As Long Private downy As Long Private xx As Long Private yy As Long Private MouseDown As Boolean Private Sub label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)downx = X downy = Y MouseDown = True End ...
VB label控件移动问题
1，如果每间隔一段时间增加Left属性，看到的效果就是向右移动。2，如果每间隔一段时间减少Left属性，看到的效果就是向左移动。3，如果每间隔一段时间增加Top属性，看到的效果就是向下移动。4，如果每间隔一段时间减少Top属性，看到的效果就是向上移动。要产生每间隔一段时间，去移动控件，通常用Timer控件...
用VB编写简单的程序,实现字体的上下滚动
在窗体上键timer控件一个，label一个复制以下代码：label用来写上你需要的字幕 Option Explicit Private Sub Form_Load()Timer1.Interval = 100 Label1.Top = Me.ScaleHeight End Sub Private Sub Timer1_Timer()Label1.Move Label1.Left, Label1.Top - 50 If Label1.Top + Label1.Height < 0...
VB label窗口移动问题
'-Label1.Width 表示当Label1在向左移动的过程中，完全进入到窗体的左边，此时Label1已超出了窗体的范围，恰好看不到Label1 Label1.Left = Form1.Width'将Label1移动到窗体的右侧，当还是不位于窗体范围，再向左移动的话就恰好能看到Label1 Else Label1.Left = Label1.Left - 100 End If ...
VB程序设计'要求单上移按钮 标签上移100 单击下移 标签下移100
是这样吗 Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyUp Then Label1.Top = Label1.Top - 100 End If If KeyCode = vbKeyDown Then Label1.Top = Label1.Top + 100 End If End Sub
VB中如何让label移动到左上角
VB6.0可使用Move方法移动Label控件到指定位置。代码如下：Private Sub Command1_Click() Label1.Move 0, 0, 1200, 398End SubMove 方法，用以移动 MDIForm、Form 或控件。语法：说明：只有 left 参数是必须的。但是，要指定任何其它的参数，必须先指定出现在语法中该参数前面的全部参数。例如，如...
