Как сделать анимацию с точкой или линией в VB 2008
Я раньше немного работал на VB6, а сейчас поставил себе Visual Studio 2008 и он поддерживает VB 2008.
Как я не искал элемент управления Shape, который был в VB6, в 2008 его так и не нашел и поэтому не могу
понять какую надо вызвать процедуру, чтобы двигать дапустим точку. Вообще у меня
появилась необходимость сделать небольшую прогу по неисправности устройства.
Другими словами тест неисправности в аппаратуре. Мне нужно проводить линии и оживлять
их с помощью таймера, демонстрируя этим самым визуальный проход сигналов в радио-схеме.
В VB6 я это легко делал с помощью элемента Line меняя его свойство и подставляя в Timer.
Чем можно заменить этот элемент в VB 2008
Пробовал рисовать линии вызывая в форме событие Paint и вводя код рисования например:
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.DrawLine(Pens.Black, 26, 25, 400, 25)
Но эту линию никак не удается заставить двигаться так как на нее нет объявлений или может быть я чего то не правильно делаю. Вроде бы ерунда, но опыта мало и все встало.
Кто поможет в этом вопросе буду признателен.
Как я не искал элемент управления Shape, который был в VB6, в 2008 его так и не нашел и поэтому не могу
понять какую надо вызвать процедуру, чтобы двигать дапустим точку. Вообще у меня
появилась необходимость сделать небольшую прогу по неисправности устройства.
Другими словами тест неисправности в аппаратуре. Мне нужно проводить линии и оживлять
их с помощью таймера, демонстрируя этим самым визуальный проход сигналов в радио-схеме.
В VB6 я это легко делал с помощью элемента Line меняя его свойство и подставляя в Timer.
Чем можно заменить этот элемент в VB 2008
Пробовал рисовать линии вызывая в форме событие Paint и вводя код рисования например:
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.DrawLine(Pens.Black, 26, 25, 400, 25)
Но эту линию никак не удается заставить двигаться так как на нее нет объявлений или может быть я чего то не правильно делаю. Вроде бы ерунда, но опыта мало и все встало.
Кто поможет в этом вопросе буду признателен.
можно использовать лист бокс пролистывая рисунки плучишь анимацию
Из хелпа VB2008
' Visual Basic 2008
' Using Label controls.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Line1 As New System.Windows.Forms.Label
Dim Line2 As New System.Windows.Forms.Label
' Draw a horizontal line 14 pixels from the top of the form.
Line1.Location = New System.Drawing.Point(0, 14)
Line1.Size = New System.Drawing.Size(Me.Width, 1)
Line1.BorderStyle = BorderStyle.None
Line1.BackColor = System.Drawing.Color.Red
Line1.Text = ""
Controls.Add(Line1)
' Draw a vertical line 14 pixels from the left of the form.
Line2.Location = New System.Drawing.Point(14, 0)
Line2.Size = New System.Drawing.Size(1, Me.Height)
Line2.BorderStyle = BorderStyle.None
Line2.BackColor = System.Drawing.Color.Blue
Line2.Text = ""
Controls.Add(Line2)
End Sub
' Visual Basic 2008
' Using Label controls.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Line1 As New System.Windows.Forms.Label
Dim Line2 As New System.Windows.Forms.Label
' Draw a horizontal line 14 pixels from the top of the form.
Line1.Location = New System.Drawing.Point(0, 14)
Line1.Size = New System.Drawing.Size(Me.Width, 1)
Line1.BorderStyle = BorderStyle.None
Line1.BackColor = System.Drawing.Color.Red
Line1.Text = ""
Controls.Add(Line1)
' Draw a vertical line 14 pixels from the left of the form.
Line2.Location = New System.Drawing.Point(14, 0)
Line2.Size = New System.Drawing.Size(1, Me.Height)
Line2.BorderStyle = BorderStyle.None
Line2.BackColor = System.Drawing.Color.Blue
Line2.Text = ""
Controls.Add(Line2)
End Sub