vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

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

Fragen zu Tipps & Tricks und Workshops im vb@rchiv
Tipp 2283: Ermitteln der durchschnittlichen Farbhelligkeit eines Bildes oder Bildausschnitts 
Autor: horstfh
 Tipp anzeigenDatum: 20.06.11 19:59

Ändere noch zwei Integer in Long-Typen

Public Function GetAverageBrightness(ByVal theBitmap As Bitmap, _
ByVal Rect As Rectangle) As Short
Dim RGBs As Byte()
Dim SumRGB As Long = 0 ' Geändert zu Long

With theBitmap
' alle RGB-Werte in ein Feld speichern
Dim BmpData As Imaging.BitmapData = .LockBits(Rect, _
Imaging.ImageLockMode.ReadOnly, .PixelFormat)
Dim Size As Integer = BmpData.Stride * .Height
RGBs = New Byte(Size - 1) {}
Dim Pointer As IntPtr = BmpData.Scan0
Marshal.Copy(Pointer, RGBs, 0, Size)
.UnlockBits(BmpData)
End With

For i As Long = 0 To RGBs.Length - 1 ' Geändert zu Long
SumRGB += RGBs(i) ' Summe der RGB-Werte
Next
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tipp 2283: Ermitteln der durchschnittlichen Farbhelligkeit e...3.379horstfh20.06.11 19:59

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 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