VBNet - Форум - UserControl и анимация

Вопрос: UserControl и анимация Добавлено: 11.11.07 16:39

Автор вопроса: Лисица | ICQ: 389290309

Подскажите, пожалуйста! Передо мной стоит задача, используя UserControl сделать анимацию. Я нарисовала свою схему, а вот дальше не имею представления, как ее анимировать. Каким образом менять координаты, перерисовывать, чтобы получилась анимация.
Код сделал следующий:

Dim i As Integer = 1
    Dim MJA As Graphics
    Dim BBrush As New SolidBrush(Color.Black)
    Dim AFont As New Font("Garamond", 20, FontStyle.Regular, GraphicsUnit.Pixel, 0)
    Public Sub UserControl1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        Dim MJA As Graphics = e.Graphics
'Р1
        MJA.DrawLine(Pens.Black, 150, 80, 250, 80) 'гориз1 линия
        MJA.DrawLine(Pens.Black, 150, 80, 150, 110) 'левая линия
        MJA.DrawLine(Pens.Black, 250, 80, 250, 110) 'правая линия
        MJA.DrawLine(Pens.Black, 150, 110, 250, 110) 'гориз2 линия
        MJA.DrawString("P1", AFont, BBrush, 188, 90) '"P1"
        '''''''''''''''''''''''''
        'вниз
        MJA.DrawLine(Pens.Black, 200, 110, 200, 130) ' линия соединения
        '''''''''''''''''''''''''
        'Р2
        MJA.DrawLine(Pens.Black, 150, 130, 250, 130) 'гориз1 линия
        MJA.DrawLine(Pens.Black, 150, 130, 150, 160) 'левая линия
        MJA.DrawLine(Pens.Black, 250, 130, 250, 160) 'правая линия
        MJA.DrawLine(Pens.Black, 150, 160, 250, 160) 'гориз2 линия
        MJA.DrawString("P2", AFont, BBrush, 188, 140) '"P2"
        '''''''''''''''''''''''''

Помогите, плиз!!!
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: VisualPaul ICQ: 402519798 Вопросов: 12 Ответов: 111	Профиль \| \| #1	Добавлено: 11.11.07 20:52
	У тебя Visual BASIC . NET ? Ответить

Номер ответа: 2 Автор ответа: Лисица ICQ: 389290309 Вопросов: 1 Ответов: 1	Профиль \| \| #2	Добавлено: 11.11.07 23:12
	Да, у меня Visual BASIC . NET Ответить

Страница: 1 |