C#/VB:文字移动

最新推荐文章于 2020-12-17 15:39:27 发布

智者知已应修善业

最新推荐文章于 2020-12-17 15:39:27 发布

阅读量949

点赞数

本文链接：https://blog.csdn.net/xianfajushi/article/details/48206369

版权

        private void 定时_Tick(object sender, EventArgs e)
        { 
            new Thread
                (
                    delegate()
                        { 
                            移动字幕.BeginInvoke(new Action<string>((字符串) => 字幕(字符串)), "");
                        }
                ).Start();
        }
        private void 字幕(string 内容)
        { 
            if (!移动字幕.Visible)
                 移动字幕.Visible = true;
            if (内容 != "")
                移动字幕.Text = 内容;
            移动字幕.Left -= 1;
            if (移动字幕.Right < 0)
                移动字幕.Left = this.Width; 
        }
        vb:
    Public Sub 启动定时器()
        Dim 定时 As New TimerCallback(AddressOf Me.定时事件)
        Dim 时间控件 As Timer
        时间控件 = New Timer(定时, Nothing, TimeSpan.FromSeconds(1), TimeSpan.FromSeconds(1))
    End Sub
    Public Sub 定时事件(ByVal state As Object)
        Me.BeginInvoke(
            New Action(
                       Sub()
                           '移动字幕.Left -= 4
                           'If 移动字幕.Right < 0 Then 移动字幕.Left = Me.Width
                           移动字幕.Left += 4
                           If 移动字幕.Right > Me.Width Then 移动字幕.Left = 0
                       End Sub
                      )
                   )
        Me.BeginInvoke(
            New Action(
                       Sub()
                           移动字幕.Top -= 4
                           If 移动字幕.Bottom < 0 Then 移动字幕.Top = Me.Height
                           '移动字幕.Top += 4
                           'If 移动字幕.Bottom > Me.Height Then 移动字幕.Top = 0
                       End Sub
                      )
                   )
    End Sub