Visual basic paint: Графика в Visual Basic.Net. Объекты Graphics, Реn и Brush

Paint в VB

Пейнт в ВБ. Работает почти все. Кроме рисования прямоугольника вверх и влево. Вывода текст. Все остальное вроде работает. Код без комментариев.
Imports System.Drawing.Drawing2D
Imports System.Drawing.Graphics
Imports System.IO
Public Class Form1
    Private xOld, yOld As Integer
    Dim x1, x2, y1, y2, a, b, a3, b3 As Integer
    Dim gr As Graphics
    Dim a1, b1, a2, b2 As Int16
    Dim ijTochka() As Point
    Dim ijtochka1, ijtochka2, ijkrapka As Point
    Dim ris, dvig, pryamoug, ellips, risfig, active, f1, f2, text1 As Boolean
    Dim figura As String
    Dim fnt As New Font("Times New Roman", 20, FontStyle.Bold)
    Dim sb As New SolidBrush(Color.Red)
    Dim p As New Pen(Color.Black, 1)
    Dim pn As New Pen(Color.White, 1)
    Dim Image1 As New Bitmap(820, 521)
    Dim kadr As New Bitmap(Me.Width, Me.Height)
    Dim bmp As Bitmap
    Dim g As Graphics, grap As Graphics
    Dim st1 As String
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        If text1 = True Then
            gr.DrawString(st1, fnt, Brushes.Black, 50, 50)
        End If
        gr = Graphics.FromImage(kadr)
        'gr = PictureBox1.CreateGraphics
        active = True
        figura = ""
        f1 = False
        f2 = False
       
    End Sub
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        p.Width = TextBox1.Text
        pn.Width = TextBox1.Text
        x1 = e.X
        x2 = e.X
        y1 = e.Y
        y2 = e.Y
        a = 0
        b = 0
        a3 = 0
        b3 = 0
        ijtochka1.X = e.X
        ijtochka1.Y = e.Y
        If active = True Then
            ris = True
        End If
        If (figura = "pryamoug") Or (figura = "ellips") Then
            risfig = True
            ijtochka1.X = e.X
            ijtochka1.Y = e.Y
        End If
        If f2 Then
            f1 = True
            ris = False
            risfig = False
            xOld = e.X() : yOld = e.Y()
        End If
        If text1 = True Then
            gr.DrawString(st1, fnt, Brushes.Black, ijtochka1.X = e.X, ijtochka1.Y = e.Y)
        End If
    End Sub

    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

        If ris Then
            a1 = e.X - x1
            b1 = e.Y - y1
            'If a1 >= 0 And b1 >= 0 Then
            gr.DrawLine(pn, x1, y1, a, b)
            gr.DrawLine(p, x1, y1, e.X, e.Y)
            'Else
            '    ris = False
            ' End If
            a = e.X
            b = e.Y
            PictureBox1.Image = kadr
        End If
        If risfig = True Then
            If figura = "pryamoug" Then
                gr.DrawRectangle(pn, ijtochka1.X, ijtochka1.Y, a1, b1)
                a2 = e.X - ijtochka1.X
                b2 = e.Y - ijtochka1.Y

                gr.DrawRectangle(p, ijtochka1.X, ijtochka1.Y, a2, b2)
                a1 = a2
                b1 = b2
                PictureBox1.Image = kadr
            End If
        End If
        If risfig = True Then
            If figura = "ellips" Then
                gr.DrawEllipse(pn, ijtochka1.X, ijtochka1.Y, a1, b1)
                a2 = e.X - ijtochka1.X
                b2 = e.Y - ijtochka1.Y

                gr.DrawEllipse(p, ijtochka1.X, ijtochka1.Y, a2, b2)
                a1 = a2
                b1 = b2
                PictureBox1.Image = kadr
            End If
        End If
        If f1 Then
            Dim x As Integer = e.X
            Dim y As Integer = e.Y
            gr.DrawLine(p, xOld, yOld, x, y)
            xOld = x : yOld = y
            PictureBox1.Image = kadr
        End If
    End Sub
    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        ris = False
        risfig = False
        'active = False
        f1 = False
    

    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        gr = Graphics.FromImage(kadr)
        'gr = PictureBox1.CreateGraphics
        f1 = False
        f2 = False
        figura = "pryamoug"
        ris = False
        active = False
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        gr = Graphics.FromImage(kadr)
        'gr = PictureBox1.CreateGraphics
        f1 = False
        f2 = False
        figura = "ellips"
        ris = False
        active = False
    End Sub

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        gr = Graphics.FromImage(kadr)
        'gr = PictureBox1.CreateGraphics
        f2 = True
        ris = False
    End Sub

    Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click
        '        Dim rec As New Rectangle(0, 0,
        'MyClass.ClientSize.Width, MyClass.ClientSize.Height)
        '        Dim bp As Brush
        '        bp = New SolidBrush(Color.White)
        '        gr.FillRectangle(bp, rec)
       gr.Clear(Color.White)
        PictureBox1.Image = kadr
    End Sub

    Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click

        Dim color As New Color
        CD1.Color = CD1.Color.Black
        CD1.FullOpen = True
        If CD1.ShowDialog = DialogResult.OK Then ToolStripButton6.BackColor = CD1.Color
        p.Color = CD1.Color
    End Sub

    Private Sub ToolStripLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.Click
        'SFD1.InitialDirectory = "C\"
        'SFD1.Title = "Paint"
        'SFD1.Filter = "Png|*.png; *.htm|Jpg (*.JPG)|*.txt|Все файлы (*.*)|*.*"
        'SFD1.FilterIndex = 2
        'If SFD1.ShowDialog = DialogResult.OK Then MsgBox(SFD1.FileName)
        'Saves the Image Captured
        Image1 = PictureBox1.Image
        SFD1.Filter = "bmp (*.BMP)|*.BMP"
        If SFD1.ShowDialog = DialogResult.OK Then MsgBox(SFD1.FileName)
        Image1.Save(SFD1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Image1 = PictureBox1.Image
        p.Width = TextBox1.Text
        pn.Width = TextBox1.Text
        kadr = New Bitmap(PictureBox1.Width, PictureBox1.Height)
        kadr.MakeTransparent(Color.White)
        gr = Graphics.FromImage(kadr)
        'gr.Clear(Color.White)
        PictureBox1.Image = kadr
    End Sub

    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        openfile.Filter = "Image Png|*.png|Image Jpg|*.jpg"
        If openfile.ShowDialog = DialogResult.Cancel Then Exit Sub
        PictureBox1.Image = Image.FromFile(openfile.FileName) : Me.Text = ("Paint : " & openfile.SafeFileName)
        bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height)
        g = Graphics.FromImage(bmp)
        gr = Graphics.FromImage(kadr)
        'grap = PictureBox1.CreateGraphics
        p.StartCap = Drawing2D.LineCap.Round
        p.EndCap = Drawing2D.LineCap.Round
        g.DrawImage(New Bitmap(openfile.FileName), 0, 0)
        gr.DrawImage(New Bitmap(openfile.FileName), 0, 0)
        PictureBox1.Image = bmp
    End Sub

    Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
        'Dim wid As Integer
        'Dim hgt As Integer
        'Dim X As Integer
        'Dim Y As Integer

        '' Make a Bitmap representing the input image.
        'Dim bm_in As New Bitmap(PictureBox1.Image)
        'wid = bm_in.Width
        'hgt = bm_in.Height

        '' Make the output bitmap.
        'Dim bm_out As New Bitmap(hgt, wid)

        '' Copy the pixel values.
        'For Y = 0 To wid - 1
        '    For X = 0 To hgt - 1
        '        bm_out.SetPixel(hgt - X - 1, Y, _
        '                        bm_in.GetPixel(Y, X))
        '    Next X
        'Next Y

        '' Display the result.
        'PictureBox1.Image = bm_out
        If kadr IsNot Nothing Then
            kadr.RotateFlip(RotateFlipType.Rotate270FlipXY)
            PictureBox1.Image = kadr
        End If
    End Sub

    Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
        If kadr IsNot Nothing Then
            kadr.RotateFlip(RotateFlipType.Rotate90FlipXY)
            PictureBox1.Image = kadr
        End If
    End Sub

    Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click
        If kadr IsNot Nothing Then
            kadr.RotateFlip(RotateFlipType.Rotate180FlipX)
            PictureBox1.Image = kadr
        End If
    End Sub

    Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton10.Click
        If kadr IsNot Nothing Then
            kadr.RotateFlip(RotateFlipType.Rotate180FlipY)
            PictureBox1.Image = kadr
        End If
    End Sub

    Private Sub ToolStripLabel3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel3.Click
        st1 = InputBox("", "", "Введите текст")
        text1 = True
    End Sub
End Class
(adsbygoogle = window.adsbygoogle || []).push({});

Графика в Visual Basic.Net. Объекты Graphics, Реn и Brush

Урок из серии  «Программирование на Visual Basic.NET  для школьников»

Здравствуйте, дорогой читатель. В этом уроке мы начнем изучать графические методы языка программирования Visual Basic.Net, которые позволяют создавать рисунки на форме или элементах управления.

Графические методы языка программирования Visual Basic.Net существенно отличаются от графических операторов предшествующей версии Visual Basic 6.  Теперь  для создания рисунка вы должны непосредственно использовать графические службы GDI+,  доступные через пространство имен System.Drawing.

На этом уроке вы узнаете, как создать объекты Graphics (Область рисования), Реn (Перо) и Brush (Кисть), необходимые для рисования.

Создание объектов Graphics , Реn  и Brush

Прежде чем использовать графические методы класса System.Drawing.Graphics для рисования примитивных фигур, вы должны в вашем коде создать объекты Graphics (Область рисования), Реn (Перо) и Brush (Кисть).

  1. Объект Graphics(Область рисования) позволяет выбрать в качестве области рисования определенный элемент управления и обладает методами рисования графических фигур.Объект Graphics можно создать тремя различными способами.

    Первый способ состоит в использовании метода CreateGraphics() формы или элемента управления, на котором надо отобразить графику. Например, создадим объект Graph2 типа Graphics, а затем укажем определенный элемент управления в качестве области рисования. Обычно в качестве области рисования выбирается размещенное на форме графическое поле (например, PictureBox1):

    Dim Graph2 As Graphics
    Graph2 = Me.PictureBox1.CreateGraphics()
    

    Второй способ используется для создания растрового изображения, которое можно сохранить как графический файл. Сначала необходимо объявить создание растрового изображения Image1 определенного размера, затем объявить создание объекта Graph2 типа Graphics из растрового изображения Image1 и, наконец, присвоить свойству Image формы или элемента управления (например, PictureBox1.Image)значение Image1.

    Dim Image1 As New Bitmap(200, 200)
    Dim Gpaph2 As Graphics = Graphics.FromImage(Image1)
    PictureBox1.Image = Image1
    

    Третий способ использует событие Paint формы или элемента управления, которое происходит при их создании или обновлении. В обработчике этого события одним из аргументов является e типа System.Windows.Forms.PaintEventArgs. В программном коде обработчика события можно объявить создание объекта Graph2 типа Graphics как свойства аргумента e.

    Dim Graph2 As Graphics = e.Graphics
    
  2. Объект Pen(Перо) определяет цвет и ширину линии рисования. В разделе объявления переменных необходимо определить имя объекта (например, Pen1), установить цвет (например» красный Color.Red) и ширину линии в пикселях (например, 3):
    Dim Pen1 AsNew Pen(Color.Red, 3)
    

    Затем, если необходимо,  можно установить новые значения цвета и ширины линии, например:

    Pen1.Color = Color.Green
    Pen1.Width = 15
    

    Объект Pen передается как один из аргументов в методы, которые не заполняют фигуру цветом, а рисуют контур фигуры.

  3. Объект Brush(Кисть) определяет цвет и стиль закрашивания прямоугольников, окружностей и других замкнутых фигур.Сначала необходимо в разделе объявления переменных определить имя объекта (например, Brush2) и установить тип закраски и цвет (например, сплошная закраска синего цвета SolidBrush(Color.Blue)):
    Dim Brush2 As New SolidBrush(Color.Blue)
    

    Если необходимо,  можно будет поменять цвет закраски (например, на пурпурный):

    Brush2.Color=Color.Megenta
    

    Объект Brush передается как аргумент в методы, которые выполняют цветную заливку.

Объекты Pen, Brush и Graphics потребляют системные ресурсы. Поэтому, после окончания их использования, необходимо  всегда вызывать Dispose()

Выбор цвета

Цвет устанавливается как значение свойства Color. Можно установить цвет с использованием нескольких десятков цветовых констант. Ниже приведены примеры установки зеленого цвета для объекта Pen1 (перо) и желтого цвета для объекта Brush2 (кисть).

Pen1.Color = Color.Green
Brush2.Color = Color.Yellow

Для установки цвета в 24-битовой палитре цветов RGB используется метод Color.FromArgb(Red, Green, Blue), аргументами которого являются три числа в диапазонах от 0 до 255 (интенсивность красного, зеленого и синего цветов). Например, так можно установить пурпурный цвет для кисти Brush2.

Brush2.Color = Color.FromArgb(255, 0, 255)

Цвет пера или кисти можно установить и с использованием элемента управления ColorDialog, для этого данный элемент управления необходимо поместить на форму и вести в программный код следующие строки:

ColorDialog1.ShowDialog()
Pen1.Color = ColorDialog.Color

После заполнения первой строки программного кода появится диалоговое окно Цвет. Вторая строка программного кода присваивает перу цвет, который можно выбрать в диалоговом окне Цвет с помощью мыши из палитры 48 основных цветов.


В этом уроке вы узнали, как создать объекты Graphics (Область рисования), Реn (Перо) и Brush (Кисть), необходимые для рисования, как выбрать цвет.

На следующем уроке мы познакомимся с графическими методами для рисования геометрических фигур.

Следующий урок: Базовые фигуры и графические методы

До встречи на следующем уроке.

Visual Basic.Net, графические методы DrawLine, DrawEllipse …

Урок из серии: «Программирование на Visual Basic.NET для школьников»

В прошлом уроке мы познакомились с объектами, необходимыми для рисования и с графическими методами языка Visual Basic.NET.

В этом уроке  рассказывается  о  графической системой координат, вы узнаете где нужно размещать графический программный код,  научитесь применять графические методы DrawLine, DrawEllipse и DrawlRectangle.

Справочная информация

Методом DrawLine рисуется отрезок прямой линии . Параметрами этого метода, кроме пера, являются координаты двух точек — начала и конца линии.

Методом DrawRectangle создается прямоугольник . Параметрами этого метода являются перо, координаты верхнего левого угла, ширина и высота.

Метод DrawEllipse используется для создания эллипса .Эллипс создается как геометрическая фигура, вписанная в прямоугольник. То есть самого прямоугольника на рисунке не видно, но параметры эллипса одновременно являются параметрами такого прямоугольника.

Рисование линий, прямоугольников и других фигур производится в компьютерной системе координат, начало которой расположено в верхнем левом углу области рисования. Ось X направлена вправо, а ось Y направлена вниз. Единицей измерения по умолчанию является точка (пиксель).

Компьютерная система координат графического поля шириной 300 точек и высотой 200 точек приведена на рисунке.

Где размещать графический программный код?

Графические методы не следует вызывать в обработчике события Form_Load. Программный код этой процедуры выполняется только один раз при загрузке формы. Если будет изменен размер формы или форма будет скрыта диалоговым окном или другой формой, рисунок перерисовываться не будет. Рисунок также исчезнет, если вы минимизируете окно формы, а затем снова его развернете.

Формы и элементы управления имеют событие Paint, происходящее каждый раз, когда они должны быть перерисованы, например, при первом отображении формы или когда форма закрывается другим окном.

Любой код, который пишется для отображения графики, обычно размещается в обработчике событий Paint, чтобы каждый раз, при обновлении формы, графика также перерисовывалась.

Проект «Система координат»

Создайте проект в котором в графическом поле на форме рисуется компьютерная система координат. Объект Graphics (Область рисования) создать первым способом, т.е. с использованием метода СreateGraphics() элемента управления PictureBox.

  1. Создайте проект под именем «система координат»
  2. Поместите на форму :
    • Графическое поле PictureBox1, которое будет использоваться в качестве области рисования;
    • Кнопку Button1  для создания обработчика события рисования осей и вывода шкал  компьютерной  системы координат.
  3. Установите размеры графического поля PictureBox1: присвоить свойству Width значение 300, а свойству Height – значение 200.
  4. Объявите переменные
    Dim Graph2 As Graphics
    Dim Pen1 As New Pen(Color.Red, 2)
    Dim drawFont As New Font("Arial", 7)
  5. Создайте обработчик Button1_Click события рисования осей и вывода шкал компьютерной системы координат
    Graph2 = Me.PictureBox1.CreateGraphics()
    Graph2.Clear(Color.White)
    
    'Рисование осей         '
    'Ось(X)
    Graph2.DrawLine(Pen1, 0, 0, 300, 0)
    'Ось Y
     Graph2.DrawLine(Pen1, 0, 0, 0, 200)
    'Pen2.DashStyle = Drawing2D.DashStyle.Dash
    For X = 0 To 300 Step 20
        'Засечки на оси X
        Graph2.DrawLine(Pen1, X, 0, X, 10)
        ' Вывод шкалы  оси X
        Graph2.DrawString(X, drawFont, drawBrush, X, 10)
        'Graph2.DrawLine(Pen2, X, 0, X, 200)
    Next
    
    For Y = 0 To 200 Step 20
        'Засечки на оси Y
        Graph2.DrawLine(Pen1, 0, Y, 10, Y)
        ' Вывод шкалы  оси Y
        Graph2.DrawString(Y, drawFont, drawBrush, 10, Y)
        'Graph2.DrawLine(Pen2, 0, Y, 300, Y)
    Next
  6. Запустите проект .  Осуществить щелчок на кнопке, появятся оси со шкалами компьютерной системы координат.  Сверните окно на панель задач и снова разверните. Как видите,  рисунок на форме не обновился.
  7. Завершите работу приложения.
Проект «Мои фигуры «

Создайте проект в котором на форме рисуется линия, эллипс и заполненный цветом прямоугольник. Фигуры должны перерисовываться, когда форма будет перекрываться другим окном или минимизироваться.

  1. Создайте проект с именем Мои фигуры. Увеличьте  размер формы. Вам понадобится место для создания графических фигур.
  2. Измените свойство Text формы Form1 на значение Рисование фигур.
  3. Область рисования, т.е. объект Graphics, создадим третьим способом, используя событие Paint формы.
    • Откройте окно Редактор кода, для этого выполните команду Посмотреть код в контекстном меню формы или щелкните в Обозревателе решений на кнопке Просмотреть код.
    • В редакторе кода слева в раскрывающемся списке Имя класса выберите Form1 Events — это список событий вашего проекта, ассоциированных с объектом Form1.
    • Справа в раскрывающемся списке Имя метода выберите событие Paint.

    В Редакторе кода появится процедура события Form1_Paint. Это место, где вы должны ввести код программы, который должен исполняться при обновлении формы Visual Basic.

  4. Рисуем три графические фигуры — красную линию, синий прямоугольник, зеленый  эллипс. Для этого в событийной процедуре Form1_Paint введите следующий код:
     'Определяем текущий элемент (Форму) в качестве области для рисования
     Dim Graph2 As Graphics
     Graph2 = Me.CreateGraphics
    
     'Описываем Перо, рисуем линию и эллипс
     Dim myPen1 As New Pen(Color.Red, 2)
     Dim myPen2 As New Pen(Color.Blue, 2)
     Dim myPen3 As New Pen(Color.Green, 2)
     Graph2.DrawLine(myPen1, 20, 30, 100, 80)
     Graph2.DrawEllipse(myPen2, 10, 100, 110, 80)
     Graph2.DrawRectangle(myPen3, 120, 10, 140, 80)
    
     'Освобождаем ресурсы, используемые объектами Graphics,Pen и Brush
     myPen1.Dispose()
     myPen2.Dispose()
     myPen3.Dispose()
     Graph2.Dispose()
  5. Сохраните проект. Запустите приложение и проверьте его работу. Visual Basic загрузит форму и выполнит событие Paint этой формы. Ваша форма будет выглядеть примерно так.
  6. Минимизируйте форму, а затем снова восстановите ее размер. Событие Paint формы снова выполнится, и графические фигуры обновятся.
  7. Завершить работу приложения.

В этом уроке было показано применение графических методов DrawLine, DrawEllipse и DrawlRectangle

В дополнение к приведенным здесь методам, которые создают пустые или «незаполненные» фигуры, существует несколько методов, которые рисуют фигуры, автоматически заполняемые каким-либо цветом. Эти методы обычно имеют префикс «Fill» (заполнить): FillRectangle, FillEllipse и FillPolygon. Их мы рассмотрим на следующем уроке.

Следующий урок: Графические методы FillRectangle, FillEllipse и FillPolygon

Visual Basic.Net, графические методы

Урок из серии: «Программирование на Visual Basic.NET для школьников»

В прошлом уроке вы узнали, как создать в вашем коде объекты Graphics (Область рисования), Реn (Перо) и Brush(Кисть), необходимые для создания рисунка. Познакомились с графической системой координат.

На этом уроке вы познакомитесь с графическими методами класса System.Drawing.Graphics, которые используются  в Visual Basic.Net  для рисования графических фигур.


Замкнутые фигуры, такие как прямоугольники или эллипсы, состоят из двух частей — из контура и из внутренней области. Контур рисуется с использованием заданного пера, а внутренняя область закрашивается с использованием заданной кисти.

Перечень базовых фигур и графических методов класса System.Drawing.Graphics

Фигура Метод Описание
Линия DrawLine() Линия, построенная по двум точкам. Аргументами являются перо определенного цвета и толщины (например, Реn1), а также координаты концов линии X1, Y1 и Х2, Y2:
Graph2.DrawRectangle(Реn1, X1, Y1, Х2, Y2)
Прямоугольник DrawRectangle() Аргументами являются перо определенного цвета и толщины (например, Pen1), а также координаты левого верхнего угла X1, Y1, ширина Width и высота Height:
Graph2.DrawRectangle(Реn1, XI, Y1, Width, Height)
Закрашенный прямоугольник FillRectangle() Закраска прямоугольника с использованием кисти определенного цвета. Например:
Graph2.FillRectangle(Brush2,X1, Y1, Width, Height)
Многоугольник DrawPolygon() Сложная фигура с произвольным числом вершин и сторон (хранящихся в массиве)
Окружность/эллипс DrawEllipse() Округлая фигура, вписанная в прямоугольник.
Аргументами являются перо определенного цвета и толщины (например, Реn1), а также координаты левого верхнего угла описанного прямоугольника X1, Y1, ширина With и высота Height:
Graph2.DrawEllipse(Pen1,X1, Y1, Width, Height)
Закрашенный эллипс FillEllipse() Закраска окружности или эллипса с использованием кисти определенного цвета. Например:
Graph2.FillEllipse(brush2, X1, Y1, Width, Height)
Точка DrawRectangle(Реn1, X1 , Y1 , 1 , 1 ) или DrawEllipse(Pen1, X1, Y1, 1, 1) Для рисования точки с заданными координатами X1 и Y1 можно использовать методы DrawRectangle и DrawEllipse, в которых аргументы Width и Height равны 1.
Дуга DrawArc Изогнутая линия с двумя точками (часть эллипса)
Стирание изображения Graph2.Clear() Стирание  изображения в области рисования, например, белым цветом:
Graph2.Сlеаг(Соlоr.White)
Рисование текста на форме

Текст на форме можно отобразить с помощью элемента управления Label. Однако, существуют случаи, когда требуется нарисовать текст вручную с помощью методов графики. Например, для того, чтобы текст был наклонным, не получится использовать элемент управления Label, но можно использовать графические методы для рисования текста под любым углом.

Чтобы нарисовать текст на форме или элементе управления, используется графический метод DrawString. Аргументами метода являются строка текста, шрифт, кисть и координаты начала строки.

Объекты шрифт (например , drawFont) и кисть (например, drawBrush) необходимо сначала объявить, а затем использовать в качестве аргументов.

Пример рисования текста в левом верхнем углу области рисования:

Dim drawFont As New Font(“Arial”,12)
Dim drawBrush As New SolidBrush(Color.Brack)
Graph2.DrawString(“Текст”, drawFont, drawBrush, 0, 0)

Чтобы нарисовать текст под углом, необходимо использовать метод RotateTransform.

Метод RotateTransform принимает один аргумент — угол, на который следует повернуть текст. Преобразование выполняется в строке кода, следующей за методом RotateTransform; можно также использовать его для поворота фигур или линий, созданных с помощью других методов рисования.

Поворота текста на 45 градусов:

Graph2.Graphics.RotateTransform(45)
Graph2.Graphics.DrawString("Текст", drawFont, drawBrush,100, 0)

В этом уроке вы познакомились с графическими методами, которые используются  в Visual Basic.Net  для отображения графических фигур, методом DrawString для отображения текста.

В следующем уроке будет показано применение графических методов DrawLine, DrawEllipse и DrawlRectangle для рисования на форме линии, эллипса и прямоугольника.

До встречи на следующем уроке.

Visual basic 6 Paint Code Скачать бесплатно для Windows

MSDN 15 Бесплатное ПО

Code Samples предоставляет группу хорошо систематизированных и задокументированных примеров кода.

4 Exhedra Solutions, Inc. Коммерческий

С легкостью используйте передовые графические методы, такие как фракталы, изображения и DirectX.

Корпорация Майкрософт 1 Бесплатное ПО

Code Metrics PowerTool — это утилита командной строки, которая вычисляет показатели кода.

536 Microsoft 39 244 Бесплатное ПО

Если вы можете представить себе компьютерную программу, вы, вероятно, сможете создать ее с помощью Visual Basic Express «!

117 Microsoft 21 210 Бесплатное ПО

Visual Basic 2008 Express Edition SDK для разработки.NET-приложений.

8 Microsoft 149 Бесплатное ПО

Вводный видео и текстовый урок по языку программирования Visual Basic.

1 MSDN 39 Бесплатное ПО

Итак, это хороший набор обучающей информации для начала программирования.

АппДев Продактс, ООО Коммерческий

Из этого курса вы узнаете, как использовать Visual Studio 2005.

1 Microsoft 16 Бесплатное ПО

Вводный видеоурок по Visual Basic 2008 Express Edition.

2 Microsoft 109 Бесплатное ПО

Видеоурок, который проведет вас через процесс создания программы V Basic.

2 Artinsoft 122 Условно-бесплатное ПО

VBUC включает мощные возможности для ускорения процесса преобразования кода.

1 Aivosto Oy 8 Условно-бесплатное ПО

Project Analyzer — это анализатор, оптимизатор и документатор исходного кода Visual Basic.Обнаружить мертвый код ….

vbCity.com, ООО 28 Бесплатное ПО

Автономная утилита и надстройка для печати исходного кода Visual Basic в цвете и ч / б. Позволяет у ….

Навыки ПК 18 Условно-бесплатное ПО

Бухгалтерское программное обеспечение с исходным кодом Visual Basic.

Aardvark Software, Inc.1 Условно-бесплатное ПО

Polisher читает файлы или проекты исходного кода Visual Basic.

Aardvark Software, Inc. Условно-бесплатное ПО

Pretty Printer создает списки исходного кода Visual Basic в настраиваемом формате.

6 Formula Software, Inc. 62

Позволяет сравнивать и объединять код Visual Basic, встроенный в проект VBA.

5 AGORA Software BV 223 Условно-бесплатное ПО

Он позволяет быстрее создавать лучший код Visual Basic.

1 Программа Windswept 11

Проверять проекты Visual Basic 6 на мертвый код, неиспользуемые переменные и орфографические ошибки.

100 StarPrint Limited 23 Условно-бесплатное ПО

Создает распечатки для приложений Visual Basic и их исходного кода.

36 Генератор окна сообщений Бесплатное ПО

Эта программа генерирует код для отображения окна сообщения в Visual Basic 4.

.

Visual Basic 6.0 Пример архива

Дополнение (The Hard Way) Адам Веманн Выполняет сложение любых двух положительных чисел. Может складывать числа больше 2147483647 (максимальный диапазон для переменной типа данных Long). Скачать
Расчет денег Эрик Остерхельдт, он же Deep Arctic Рассчитывает деньги и показывает одно использование для различных типов валюты. Скачать
Пример Color Spy Patorjk Показывает несколько способов сделать цветного шпиона. Скачать
Пример сжатия слота Это пример сжатия RunLength, а также незаконченная работа по сжатию LZW. Скачать
Создание элементов управления во время выполнения Столкновение Пример создания элементов управления во время выполнения, как их перетаскивать и как удалять. Скачать
Перетащить и отпустить Patorjk Вы когда-нибудь хотели знать, как перетаскивать изображения из изображений? Посмотрите этот пример. Скачать
Элементы управления перетаскиванием ChiChis В этом примере показано, как дать пользователю возможность легко перемещать элементы управления во время выполнения. Скачать
E-Note Flyman Это пример маленькой записной книжки.На создание уходит меньше 5 минут, довольно круто и весело играть. [Отсутствует]
Получить тег ID3v2 с Mp3 Эрик Остерхельдт, он же Deep Arctic Получает информацию из MP3, такую ​​как название, исполнитель, альбом и т. Д. Скачать
GetTickCount Пример ChiChis Довольно простой пример вызова API GetTickCount для получения количества времени, прошедшего с момента загрузки Windows. Скачать
Как создать точки восстановления системы прохладное место Как создавать точки восстановления системы (для Windows XP). Используется инструментарий управления Windows (WMI). который, как мне сказали, присутствует только в Windows 2000 / XP. Скачать
Key Logger Patorjk В этом примере показан один из способов регистрации нажатых клавиш на пользовательской клавиатуре. Скачать
Пример рисования линии Джим Простой способ рисовать линии на форме с помощью мыши. Он вообще не использует таймеры или коробки с картинками. Еще лучше, это всего лишь несколько строк кода. Скачать
Пример перетаскивания элемента списка Эдуардо Морчилло В этом примере показано, как перетаскивать элементы ListBox с помощью функций из comctl32.dll. Скачать
Пример перетаскивания элемента списка Patorjk В этом примере показан один из способов перетаскивания элементов из одного списка и помещения их в другой. Скачать
Оценщик математических выражений Адам Веманн Показывает для вычисления математических выражений, заданных строкой.Пример: «5 * (3 + 1)» = «20». [patorjk.com Победитель конкурса VB Contest] Скачать
Пример MCI Мэтт Харт Пример того, как воспроизводить файлы mid и avi без пользовательских элементов управления. [Отсутствует]
MouseOver MouseOut Пример гозер Этот пример был написан, чтобы показать различные способы использования API для перемещения мыши в событии mousemove.Как создание обнаружения, когда мышь входит и покидает объект. Скачать
Мп3-плеер Джейсон Хенсли Базовый пример использования модуля класса MP3 [Джейсона] для создания MP3-плеера, который использует winmm.dll (использует Api). Это было сделано с использованием Visual Basic 6.0, но должно работать с любым 32-разрядным Visual Basic. Скачать
MPlay3 Hostyle Исходный код с mPlay3. Показывает основные функции воспроизведения mp3: кнопки воспроизведения, паузы, остановки, отключения звука, предыдущего файла и следующего файла (воспроизведение). Он также имеет загруженный последний каталог. Скачать
Шифрование строки гозер Другой способ зашифровать и расшифровать текст.Этот немного сложнее, чем другой. Скачать
Шифрование строки Дракула X Пример того, как зашифровать и расшифровать текст. Скачать
Системная информация Крейг Джаспер-младший Пример получения системной информации. [Сделано для Win2000] Скачать
Общесистемные горячие клавиши Крейг Джаспер-младший Пример общесистемных горячих клавиш без стороннего контроля. [VB5 и выше] [Отсутствует]
Пример управления полосой вкладок и полосой выполнения Patorjk Это небольшой пример того, как использовать элемент управления tabstrip и индикатор выполнения. Скачать
Пример оставшегося времени Patorjk Это пример того, как рассчитать, сколько времени потребуется для выполнения определенных задач. Идея будет работать только с вещами этот цикл снова и снова. Скачать
Пример Treeview Шон Н. Пример, показывающий, как использовать элемент управления Treeview, найденный в MSComCtl.ocx. Скачать
Измеритель ресурсов Windows Эрик Остерхельдт, он же Deep Arctic Счетчик ресурсов, который отображает физическую, виртуальную и файловую память подкачки. [Отсутствует]
Время работы Windows Эрик Остерхельдт, он же Deep Arctic Пример, показывающий, как узнать, как долго работает Windows (в месяцах, неделях, часах, минутах и ​​секундах). [Отсутствует]
Количество слов Эрик Остерхельдт, он же Deep Arctic Показывает способ подсчета количества слов в текстовом поле. Использует некоторый Windows API. Скачать
Количество слов Эрик Остерхельдт, он же Deep Arctic Показывает другой способ подсчета количества слов в текстовом поле.Здесь не используются функции Windows API. [Отсутствует]
.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *