dotNETportal.cz

Ahoj všem, mám problém a prosím o radu.Tento kód je dle mého správný avšak nic se po kliknutí na tlačítko neděje:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim myBitmap As New Bitmap(PictureBox3.Image)
        Dim g As Graphics = Graphics.FromImage(myBitmap)

        g.DrawLine(Pens.Yellow, 5, 5, 100, 100)
        g.Dispose()

        PictureBox3.Image = myBitmap
        PictureBox3.Refresh()
End Sub

Kód by měl vykreslit žlutou čáru na PictureBox3 kde je načten obrázek, čili čára by měla být na obrázku, bohužel se nic neděje :(. Děkuji za případné rady.

A to kvôli tomu musíte robiť obrázok navyše ? Skúste :

Dim g As Graphics = Graphics.FromImage(PictureBox3.Image)
...
g.Flush()
g.Dispose()
PictureBox3.Invalidate()