Bildschirmhelligkeit erhöhen/verringern

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Leseratte.

    Bildschirmhelligkeit erhöhen/verringern

    Hallo,
    ich habe eine Frage. Ich möchte ein Programm bastel, welches (unter anderem) die Bildschirmhelligkeit verändert. Ich habe einen Code für VB 6 gefunden, habe aber keine Ahnung, wie ich den Übersetzen muss. Da k0ommt ein feher mit any & einer mit Ole_color/Olecolor
    Könnt ihr euch den mal ansehen :?:

    VB.NET-Quellcode

    1. Option Explicit
    3. Public Declare Sub CopyMemory Lib "kernel32" Alias _
    4. "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    6. Public Structure OLECOLOR ' Hier hab ich schonn rausbekommen, wie man den Bereich macht
    7. Dim RedOrSys As Byte
    8. Dim green As Byte
    9. Dim blue As Byte
    10. Dim Type As Byte
    11. End Structure 'Bis hier
    13. Public Function getCol(VBColor As Long) As OLECOLOR
    14. CopyMemory getCol, VBColor, Len(getCol)
    15. End Function
    17. Public Function changeBrightness(lngDiff As Long, c As OLE_COLOR) As OLE_COLOR
    18. Dim col As OLECOLOR
    19. Dim red As Long, green As Long, blue As Long
    20. col = getCol(c)
    21. red = col.RedOrSys: green = col.green: blue = col.blue
    22. If Abs(lngDiff) > 255 Then changeBrightness = c
    23. red = red + lngDiff
    24. green = green + lngDiff
    25. blue = blue + lngDiff
    26. If red < 0 Then red = 0
    27. If red > 255 Then red = 255
    28. If green < 0 Then green = 0
    29. If green > 255 Then green = 255
    30. If blue < 0 Then blue = 0
    31. If blue > 255 Then blue = 255
    32. changeBrightness = RGB(red, green, blue)
    33. End Function

    Danke im Vorraus

    Leseratte

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Leseratte“ () aus folgendem Grund: Keine durchsreichung im VB-Tag

    As Any wird zu As Object und As Long wird zu As Integer(VB6 ist As Long 32 Bit und bei .Net As Int...glaub ich zumindest...:P)
    Type Structure kenn ich nicht,...ich dachte VB 6 wäre Type und Structure .Net
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    jvbsl schrieb:

    Type Structure kenn ich nicht,...ich dachte VB 6 wäre Type und Structure .Net
    Mist! Das Type sollte eig. durchgetrichen sein: Type Structure
    Aber das probier ich mal aus. Danke
    EDIT: Schade, hat auch nicht geklappt. Ich habe einen anderen Code gefunden, dort kommt jetzt kein Fehler, aber passieren tut auch nix:

    VB.NET-Quellcode

    1. Option Explicit On
    2. Public Class Form1
    4. Private Ramp1(0 To 255, 0 To 2) As Integer
    5. Private Ramp2(0 To 255, 0 To 2) As Integer
    6. Private Declare Function GetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, ByVal lpv As Object) As Long
    7. Private Declare Function SetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, ByVal lpv As Object) As Long
    8. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Object, ByVal Source As Object, ByVal Length As Long)
    10. Public Function Int2Lng(ByVal IntVal As Integer) As Long
    11. CopyMemory(Int2Lng, IntVal, 2)
    12. End Function
    13. Public Function Lng2Int(ByVal Value As Long) As Integer
    14. CopyMemory(Lng2Int, Value, 2)
    15. End Function
    20. Private Sub Set(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butt1.Click
    21. Dim iCtr As Integer
    22. Dim lVal As Long
    23. GetDeviceGammaRamp(Me.CreateGraphics.GetHdc, Ramp1(0, 0))
    24. For iCtr = 0 To 255
    25. lVal = Int2Lng(Ramp1(iCtr, 0))
    26. Ramp2(iCtr, 0) = Lng2Int(Int2Lng(Ramp1(iCtr, 0)) / 2)
    27. Ramp2(iCtr, 1) = Lng2Int(Int2Lng(Ramp1(iCtr, 1)) / 2)
    28. Ramp2(iCtr, 2) = Lng2Int(Int2Lng(Ramp1(iCtr, 2)) / 2)
    29. Next iCtr
    30. SetDeviceGammaRamp(Me.CreateGraphics.GetHdc, Ramp2(0, 0))
    32. End Sub
    33. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Leseratte“ ()

Facebook
Telefonspende