Как я могу увидеть изображение в моей картинке? - PullRequest
0 голосов
/ 25 сентября 2018

Я использовал следующий код, чтобы нарисовать то, что я хочу, но когда я использовал этот код, я не могу видеть изображение, которое я установил на моей картинке.Что я должен сделать, чтобы нарисовать на картинке поле с изображением?Пожалуйста, помогите мне с этим.

Public Class Form1
Dim draw As Boolean
Dim DrawColor As Color = Color.Black
Dim DrawSize As Integer = 6
Dim bmp As Bitmap




Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    cbxSize.SelectedIndex = 2
    bmp = New Bitmap(pbDraw.Width, pbDraw.Height)
    pbDraw.Image = bmp
    Dim down = False

End Sub
Private Sub PaintBrush(X As Integer, Y As Integer)
    Using g As Graphics = Graphics.FromImage(pbDraw.Image)
        g.FillRectangle(New SolidBrush(DrawColor), New Rectangle(X, Y, DrawSize, DrawSize))

    End Using
    pbDraw.Refresh()

End Sub

Событие рисования

Private Sub pbtest_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles pbDraw.MouseDown
    draw = True
    PaintBrush(e.X, e.Y)
End Sub

Private Sub pbtest_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles pbDraw.MouseMove
    If draw = True Then
        PaintBrush(e.X, e.Y)
    End If
End Sub

Private Sub pbtest_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles pbDraw.MouseUp
    draw = False
End Sub

Пожалуйста, помогите мне

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...