Visual Basic 2012 Excel 2013 Einen Bildausschnitt separatieren programmieren von Selzer-McKenzie SelMcKenzie

Visual Basic 2012 Excel 2013 Einen Bildausschnitt separatieren programmieren von Selzer-McKenzie SelMcKenzie

Video: http://youtu.be/VJDZqbwNYpw

 

 

 

 

Author D.Selzer-McKenzie

Heute zeige ich Ihnen,wie Sie aus einem Bild einen Ausschnitt aus diesem Bild separieren und als neues Bild verwenden können.

Der Source-Code ist anschliessend und nur sehr klein.

 

 

    ‚Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ‚Button1.Click

        ‚Zeichnen = Me.CreateGraphics()

        ‚Dim NeuBild As New Bitmap(Bild.Image, 600, 600)

        'virtuelles Neubild unbedingt gross machen, verbessert die Auflösung

        ‚Dim MeinBildinhalt As TextureBrush = New TextureBrush(Bild.Image)

        ‚Dim NeuerRahmen As Rectangle = New Rectangle(40, 45, 160, 130)

        ‚Zeichnen.FillPie(MeinBildinhalt, NeuerRahmen, 300, 90)

        ‚Zeichnen.DrawImage(NeuBild, 300, 50, 300, 300)

        ‚Button1.Image = MeinBildinhalt.Image

    ‚End Sub