vb.net文子左右移动 vb窗体上下左右移动的代码

请问怎么用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 = 10

Command1.Caption = "开始"

Label1.Caption = ""

Label1.AutoSize = True

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time

Label1.Left = Label1.Left - 10

If Label1.Left + Label1.Width = 0 Then Label1.Left = Me.Width

End Sub

相关问答

Q1: 你好，请教一下vb.net中想实现标签自动从左到右移动如何实现，我是新手

见下面代码vb.net文子左右移动，放置定时器vb.net文子左右移动，按钮vb.net文子左右移动，标签各一个

Public Class Form1

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

        If Label1.Right  Me.Width Then

            Label1.Left += 10'移动距离

        Else

            Label1.Left = 0

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '开启或者关闭定时器

        Timer1.Interval = 1000 '1秒

        If Timer1.Enabled = False Then

            Timer1.Start() '开定时器

        Else

            Timer1.Stop() '关定时器

        End If

    End Sub

End Class

Q2: 高分求助，如何在VB.NET中做任意角度的旋转字体

文字编辑结束后，选择“移动”工具（工具箱第一个工具，快捷键V），然后按Ctrl+T快捷键进行“自由变换”，会在文字上出现控制框，把鼠标移到控制框外边指针就会变成旋转的样式，按住鼠标左键拖动就可以进行任意角度旋转了。

Q3: 在vb中怎样使label标签框左右来回移动

利用定时器Timer来实现

Option Explicit

'移动方向标志

Dim GoLeft As Boolean

Private Sub Form_Load()

    '为了更好的演示效果，移除Label文字周围的空隙

    Label1.AutoSize = True

    

    '启动定时器

    Timer1.Interval = 50

    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

    With Label1

        '如果Label1到达窗体最左侧，则向右移动

        If (.left + .Width)  Me.ScaleWidth Then GoLeft = False

        

        '如果Label1到达窗体最右测，则向左移动

        If .left  0 Then GoLeft = True

        

        If GoLeft Then

            '向左移动5个像素

            .Move Label1.left + Screen.TwipsPerPixelX * 5

        Else

            '向右移动5个像素

            .Move Label1.left - Screen.TwipsPerPixelX * 5

        End If

    End With

End Sub

Q4: VB中，如何让标签在窗体中反复的左右移动.

在窗体上添加一个Timer控件,Interval属性设置为100

Dim flag As Boolean

Private Sub Form_Load()

flag = False

End Sub

Private Sub Timer1_Timer()

If Not flag And Label1.Left + Label1.Width = Me.ScaleWidth Then

Label1.Left = Label1.Left + 200

If Label1.Left + Label1.Width = Me.ScaleWidth Then flag = True

Else

Label1.Left = Label1.Left - 200

If Label1.Left = 0 Then flag = False

End If

End Sub

Q5: vb文本框中内容左右移动代码

怎么个移动法？其实有更好的，建议你用label和picture来组合实现 。

如果实在要这么做，可以这样：

Dim N As Integer

Dim S As String

Private Sub Form_Load()

S = "欢迎光临。"

Text1.Text = S

End Sub

Private Sub Command1_Click() '右移

N = N + 1

Text1.Text = String(N, " ") S

End Sub

Private Sub Command2_Click() '左移

N = N - 1

If N 0 Then N = 0

Text1.Text = String(N, " ") S

End Sub

关于vb.net文子左右移动和vb窗体上下左右移动的代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。