.NET 4.x Бегущая строка притормаживает при большом количестве символов - Visual Basic .NET
Формулировка задачи:
Доброго времени суток!
Столкнулся с такой проблемой. Бегущая строка начало стопорится. (если символов 1200+) но если изменять шрифт в меньшую строну то продолжает работать
НА форму Label шрифт и размер (Georgia; 36pt; style=Bold, Italic)
Прикрепил
Как сделать чтобы продолжало работать при большем количестве символов и размера шрифта?
Листинг программы
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Try
- LabelБегущаяСтрока.Text = IO.File.ReadAllText(Application.StartupPath & "\text.ini", System.Text.Encoding.Default)
- Catch ex As Exception
- End Try
- LabelБегущаяСтрока.AutoSize = True
- LabelБегущаяСтрока.Location = New Point(Me.Width, 2)
- Timer1.Interval = 3
- Timer2.Interval = 200
- Timer1.Start()
- Timer2.Start()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- If LabelБегущаяСтрока.Left + LabelБегущаяСтрока.Width <= 0 Then
- LabelБегущаяСтрока.Left = Me.Width
- End If
- LabelБегущаяСтрока.Left = LabelБегущаяСтрока.Left - 25
- End Sub
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- Try
- LabelБегущаяСтрока.Text = IO.File.ReadAllText(Application.StartupPath & "\text.ini", System.Text.Encoding.Default)
- Catch Ex As Exception
- End Try
- End Sub
Решение задачи: «.NET 4.x Бегущая строка притормаживает при большом количестве символов»
textual
Листинг программы
- LabelБегущаяСтрока.AutoSize = False 'True
- LabelБегущаяСтрока.Width = 30000
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д