vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

Fortgeschrittene Programmierung
Re: Umwandlung in schwarz-weiss 
Autor: Zardoz
Datum: 25.04.16 21:28
Hallo jopeku,
probier' mal dies:
Controls: Picturebox mit Bild 
  Dim x1&, y1&, Color1&, Rot&, Gruen&, Blau&, Grau&
 
  With Picture1
    .ScaleMode = vbPixels
    .AutoRedraw = True
    For y1 = 0 To .ScaleHeight - 1
      For x1 = 0 To .ScaleWidth - 1
        Color1 = .Point(x1, y1)
        Rot = (Color1 And vbRed)
        Gruen = (Color1 And vbGreen) \ &H100
        Blau = (Color1 And vbBlue) \ &H10000
        Grau = (Rot * 77 + Gruen * 150 + Blau * 28) / 255
        Picture1.PSet (x1, y1), IIf(Grau < 128, vbBlack, vbWhite)
      Next x1
      If (y1 Mod 100) = 0 Then DoEvents
    Next y1
  End With
Mit Api-Funktionen läßt sich das Programm noch beschleunigen.

Gruss,

Zardoz

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Umwandlung in schwarz-weiss1.849jopeku25.04.16 18:44
Re: Umwandlung in schwarz-weiss1.107Manfred X25.04.16 19:20
Re: Umwandlung in schwarz-weiss1.039jopeku25.04.16 21:03
Re: Umwandlung in schwarz-weiss1.057Manfred X25.04.16 21:22
Re: Umwandlung in schwarz-weiss1.049Zardoz25.04.16 21:28
Re: Umwandlung in schwarz-weiss1.003Manfred X25.04.16 21:45
Re: Umwandlung in schwarz-weiss1.011Zardoz25.04.16 21:55
Re: Umwandlung in schwarz-weiss1.030Manfred X25.04.16 22:09
Re: Umwandlung in schwarz-weiss1.186jopeku26.04.16 07:58
Re: Umwandlung in schwarz-weiss1.246Blackbox27.04.16 18:48
Re: Umwandlung in schwarz-weiss1.113jopeku27.04.16 20:20

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-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