vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Bilder auf einer Form verschieben Teil3 
Autor: bauer
Datum: 17.12.10 17:29

Innenleben der Prozedur aus Teil2

 ' ----------------------------------------------------------------------------
 ' ------------------------------------
        ' Verarbeitung 
        ' ---------------------------------------------------------------------
        ' -------------------------------------------
 
        For y As Integer = 0 To l_AddOnSizeZeroBased.Height
 
            For x As Integer = 0 To l_AddOnSizeZeroBased.Width
 
                'Zielpunkt ausrechnen 
                l_DestinationX = pMergePoint.X + x
                l_DestinationY = pMergePoint.Y + y
 
                If (0 <= l_DestinationX) _
                    And (0 <= l_DestinationY) _
                    And (l_DestinationX <= l_DestinationSizeZeroBased.Width) _
                    And (l_DestinationY <= l_DestinationSizeZeroBased.Height) _
                    Then
 
                    'AddOnPixel ermitteln 
                    l_AddOnPixel = l_AddOn.GetPixel(x, y)
 
                    'Farbdifferenz zum Hintergrund 
                    If GetColorDistance(l_AddOnNBackColor, l_AddOnPixel) >= _
                      pDistanceThresHold Then
                        'Kein Hintergrundpixel
 
                        'Bisheriges Zielpixel holen 
                        l_DestinationPixelCurrent = l_Destination.GetPixel(x, y)
 
                        'Mischfarbe herstellen aus bisherigem Pixel und 
                        ' zuzufuegendem Pixel 
                        l_DestinationPixelNew = GetBlendColor( _
                          l_DestinationPixelCurrent, pOP1, l_AddOnPixel, pOP2)
 
                        'Zielpixel mit neuem Inhalt versehen 
                        l_Destination.SetPixel(l_DestinationX, l_DestinationY, _
                          l_DestinationPixelNew)
 
                    Else
                        'Farbdistanz ist zu Gross, somit Hintergrund Pixel, 
                        ' vergiss es 
                    End If
                Else
                    'Zielpunkt liegt ausserhalb vom Zielbild
                    'Vergiss es 
                End If
 
            Next
 
        Next
 
        Return l_Destination
 
    End Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bilder auf einer Form verschieben1.547xater17.12.10 08:50
Re: Bilder auf einer Form verschieben1.110Christoph197217.12.10 08:58
Re: Bilder auf einer Form verschieben1.125xater17.12.10 09:30
Re: Bilder auf einer Form verschieben1.158bauer17.12.10 11:58
Re: Bilder auf einer Form verschieben1.090xater17.12.10 12:06
Re: Bilder auf einer Form verschieben1.269bauer17.12.10 12:08
Re: Bilder auf einer Form verschieben1.085xater17.12.10 12:13
Re: Bilder auf einer Form verschieben1.072bauer17.12.10 12:13
Re: Bilder auf einer Form verschieben1.102xater17.12.10 12:37
Re: Bilder auf einer Form verschieben1.231bauer17.12.10 16:38
Re: Bilder auf einer Form verschieben1.146xater17.12.10 16:40
Re: Bilder auf einer Form verschieben1.092bauer17.12.10 16:47
Re: Bilder auf einer Form verschieben - Source Teil11.224bauer17.12.10 17:26
Re: Bilder auf einer Form verschieben Coding Teil21.125bauer17.12.10 17:28
Re: Bilder auf einer Form verschieben Teil31.079bauer17.12.10 17:29
Re: Bilder auf einer Form verschieben Teil41.044bauer17.12.10 17:29
Re: Bilder auf einer Form verschieben Teil51.067bauer17.12.10 17:30
Re: Bilder auf einer Form verschieben Teil61.153bauer17.12.10 17:32
Re: Bilder auf einer Form verschieben Teil71.141bauer17.12.10 17:32
Re: Bilder auf einer Form verschieben Teil8 und Ende1.094bauer17.12.10 17:36
Re: Bilder auf einer Form verschieben / Update1.314bauer20.12.10 09:45
Re: Bilder auf einer Form verschieben / Update1.028xater20.12.10 09:50
Re: Bilder auf einer Form verschieben1.030bauer21.12.10 07:55

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel