VB - Рисование объекта поверх изображения диаграммы в PictureBox - PullRequest
Новая
       52

VB - Рисование объекта поверх изображения диаграммы в PictureBox

0 голосов
/ 19 сентября 2019

В настоящее время я работаю над проектом стажировки по неуправляемому программированию для моего текущего места работы на курорте.Я пытаюсь создать инструмент построения диаграмм.В настоящее время у меня есть форма, в которой есть диаграмма и объекты, хранящиеся в PictureBoxes.Код ниже рисует объект, но рисует его несколько раз, пока я не отпущу левую кнопку мыши.Расположение также выключено.Каков наилучший способ запрограммировать это так, чтобы, когда я нажимал на объект PictureBox, он позволил мне нарисовать его в выбранном мной месте на диаграмме PictureBox?

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

'Variables to work with the diagram and objects
Dim bmpDiagram As Bitmap
Dim bmpNewObject As Bitmap
Dim gfxObjectDraw As Graphics
Dim pointNewObject As New Point

Private Sub Pic8Classroom4Chairs_MouseMove(sender As Object, e As MouseEventArgs) Handles pic8Classroom4Chairs.MouseMove

    'Moves the current diagram image and object into bitmaps for use with graphics
    bmpDiagram = picDiagram.Image
    bmpNewObject = My.Resources._8Classroom4Chairs

    'If left mouse button is clicked perform graphics draw of object
    If e.Button.HasFlag(MouseButtons.Left) = True Then
        gfxObjectDraw = Graphics.FromImage(bmpDiagram)
        pointNewObject = e.Location
        gfxObjectDraw.DrawImage(bmpNewObject, pointNewObject)
        picDiagram.Invalidate()
    End If
End Sub
...