VBNet - Форум - Помогите пожалуйста с диалоговыми окнами

Вопрос: Помогите пожалуйста с диалоговыми окнами Добавлено: 15.11.11 11:37

Автор вопроса: Кирилл

Здравствуйте!! Помогите пожалуйста найти ошибку, работал с книгой и не могу найти там ошибку чтобы программа начала работать. Заранее благодарен!!!
Код:

Public Class Form1
    Dim Лист As Bitmap
    Dim Гр, Граф As Graphics 'Объекты класса Graphics над Листом и над формой
    Dim Кисть As New SolidBrush(Color.Black) 'Цвет карандаша поначалу черный
    Dim Толщина As Integer = 3 'Толщина карандаша. Поначалу = 3.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Лист = New Bitmap(Me.Width, Me.Height)
        Гр = Graphics.FromImage(Лист)
        Граф = Me.CreateGraphics
    End Sub

    Private Sub button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button1.Click
        ColorDialog1.ShowDialog()
        Кисть.Color = ColorDialog1.Color
    End Sub

    Private Sub button2_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If SaveFileDialog1.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Лист.Save(SaveFileDialog1.FileName)

    End Sub

    Private Sub button3_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Гр.DrawImage(New Bitmap(OpenFileDialog1.FileName), 10, 10)
        Граф.DrawImage(New Bitmap(OpenFileDialog1.FileName), 10, 10)

    End Sub

    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles NumericUpDown1.ValueChanged
        Толщина = NumericUpDown1.Value
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles MyBase.MouseMove

        Гр.FillEllipse(Кисть, e.X, e.Y, Толщина, Толщина)
        Граф.FillEllipse(Кисть, e.X, e.Y, Толщина, Толщина)

    End Sub

End Class
Ответить

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

Номер ответа: 1 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #1	Добавлено: 16.11.11 10:02
	как минимум самая критическая ошибка в том, что в коде присутствует не английские буквы Ответить

Номер ответа: 2 Автор ответа: Кирилл Вопросов: 2 Ответов: 3	Профиль \| \| #2	Добавлено: 16.11.11 14:02
	Исправил все руссие буквы на английские, но все равно выдает :"Ссылка на объект не указывает на экземпляр объекта." Ответить

Номер ответа: 3 Автор ответа: Sergey Вопросов: 4 Ответов: 5	Профиль \| \| #3	Добавлено: 16.11.11 14:57
	А на какой строке указывает ошибку? Ответить

Номер ответа: 4 Автор ответа: Кирилл Вопросов: 2 Ответов: 3	Профиль \| \| #4	Добавлено: 16.11.11 15:01
	Гр.FillEllipse(Кисть, e.X, e.Y, Tolchina, Tolchina) когда начинаешь рисовать и когда пытаюсь загрузить картинку Ответить

Номер ответа: 5 Автор ответа: Sergey Вопросов: 4 Ответов: 5	Профиль \| \| #5	Добавлено: 16.11.11 15:35
	Может быть не то, но сделал так: Imports System.Drawing Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles MyBase.MouseMove Dim gra As Graphics = CreateGraphics() gra.FillRectangle(New SolidBrush(Color.Red), e.X, e.Y, Толщина, Толщина) 'Гр.FillEllipse(Кисть, e.X, e.Y, Толщина, Толщина) 'Граф.FillEllipse(Кисть, e.X, e.Y, Толщина, Толщина) End Sub Или что-то другое должно было быть? Цвет красный поставил, но можно и брать значение... Ответить

Номер ответа: 6 Автор ответа: Кирилл Вопросов: 2 Ответов: 3	Профиль \| \| #6	Добавлено: 16.11.11 17:30
	Ну в общем так, только рисовать при нажатии и чтобы цвет менять можно. а в общем так!! Спасибо Ответить

Номер ответа: 7 Автор ответа: Sergey Вопросов: 4 Ответов: 5	Профиль \| \| #7	Добавлено: 16.11.11 18:22
	При нажатии. Это нужно событие мышки отслеживать нажатие и отпускание. Взять какую-нибудь переменную и ставить её в True или False соответственно нажатию или отпусканию мышки. Цвет менять через диалог. Ответить

Страница: 1 |