vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 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 - Fortgeschrittene
Re: danke, aber........ 
Autor: Drapondur
Datum: 04.01.05 16:48
Hi,

jetzt hab ich mich umsonst abgemüht
Naja, vielleicht doch nicht ganz.
Mir fiel auf, dass der VB6-Code beim Aufruf von GammaAufhellen genau das Gegenteil bewirkt, wohingegen er hier scheinbar das richtige bewirkt. Scheinbar deswegen, weil die Api-Funktionen ein Array aus WORD - Daten brauchen.
Deswegen glaube ich, dass man 
    Private Ramp1(255, 2) As UInt16
    Private Ramp2(255, 2) As UInt16
    Private Declare Function GetDeviceGammaRamp Lib "gdi32" (ByVal hdc As _
      IntPtr, ByRef lpv As UInt16) As Integer
    Private Declare Function SetDeviceGammaRamp Lib "gdi32" (ByVal hdc As _
    IntPtr, ByRef lpv As UInt16) As Integer
und in GammaAuhellen
            For iCtr = 0 To 255
                'lVal = Ramp1(iCtr, 0)
                Ramp2(iCtr, 0) = Convert.ToUInt16(Convert.ToInt32(Ramp1(iCtr, _
                  0)) / b)
                Ramp2(iCtr, 1) = Convert.ToUInt16(Convert.ToInt32(Ramp1(iCtr, _
                1)) / b)
                Ramp2(iCtr, 2) = Convert.ToUInt16(Convert.ToInt32(Ramp1(iCtr, _
                1)) / b)
            Next iCtr
schreiben müsste.
Ändert man den Code entsprechend, wird der Bildschirm wie im VB6-Beispiel abgedunkelt, was dann freilich dem Methodennamen wiederspricht.
Ciao
D.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
umgang mit hdc(?!)1.455motroxx03.01.05 21:58
Re: umgang mit hdc(?!)896Maywood04.01.05 11:20
danke, aber........739motroxx04.01.05 14:33
Re: danke, aber........728ModeratorDaveS04.01.05 14:59
Re: danke, aber........661Drapondur04.01.05 16:48
Re: danke, aber........718ModeratorDaveS04.01.05 16:55
Danke!705motroxx04.01.05 17:19
Upsala....713motroxx04.01.05 17:54
Re: Upsala....688ModeratorDaveS04.01.05 19:14
Re: Upsala....665motroxx04.01.05 19:26
Re: Upsala....699ModeratorDaveS04.01.05 19:47
Re: Upsala....707motroxx04.01.05 20:10
Re: Upsala....692Drapondur04.01.05 20:26
Re: Upsala....689motroxx04.01.05 21:10

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