文字をスクロールさせるには

2年 ago
夏樹, 風
1 minute

VBでは、Labelコントロールを使用してテキストスクロール機能を実装できます。以下にサンプルコードを示します。

  1. フォームにLabelコントロールを配置して、lblScrollという名前を付けます。
  2. ラベルコントロールのAutoSizeプロパティをFalseに設定し、幅をフォームの幅に設定します。
  3. フォームの_Loadイベントに下記のコードを追加する：
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Timer1.Interval = 100 ' 设置定时器的间隔，控制滚动速度
    Timer1.Start() ' 启动定时器
End Sub
  1. タイマーコントロールの Tick イベントに以下のコードを追加してください。
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    lblScroll.Left -= 1 ' 每次定时器触发，使Label控件向左移动一个像素
    If lblScroll.Left + lblScroll.Width < 0 Then ' 判断Label控件是否移出窗体左边界
        lblScroll.Left = Me.Width ' 如果移出窗体左边界，将Label控件放置到窗体右边界
    End If
End Sub

上記コードを使用すると、Labelコントロールは常に左にスクロールし、フォームの左端に達すると、再びフォームの右端に移動してスクロールを続けます。必要に応じて、タイマーの間隔を調整してスクロール速度を制御できます。

bannerAds