Форум Команды NeTTeam

Форум команды программирования на vb.net
Текущее время: 29-03, 17:41

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Графика
СообщениеДобавлено: 19-08, 15:55 
Не в сети
Администратор
Аватара пользователя

Зарегистрирован: 19-07, 19:51
Сообщения: 128
Откуда: пгт.Ванино
Код:
Перерисовывание лини...

Private Sub MyForm_Paint (ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
    ' Во-вторых, мы должны получить доступ к объекту, позволяющему рисовать на форме - Graphics
    ' Он передаётся в параметре e:
    Dim g As Graphics = e.Graphics
    ' Для рисования мы используем объект Pen размера 1 пиксель чёрного цвета
    Dim blackPen As New Pen (Color.Black, 1)
    ' Далее, мы должны задать координаты линии
    Dim x1 As Single = 100
    Dim y1 As Single = 50
    Dim x2 As Single = 100
    Dim y2 As Single = 550
    ' Рисуем линию!
    g.DrawLine (blackPen, x1, y1, x2, y2)
End Sub



Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения

Найти:
Перейти:  
cron
Powered by Forumenko © 2006–2014
Русская поддержка phpBB