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
Danke im Vorraus
Leseratte
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
- Option Explicit
- Public Declare Sub CopyMemory Lib "kernel32" Alias _
- "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
- Public Structure OLECOLOR ' Hier hab ich schonn rausbekommen, wie man den Bereich macht
- Dim RedOrSys As Byte
- Dim green As Byte
- Dim blue As Byte
- Dim Type As Byte
- End Structure 'Bis hier
- Public Function getCol(VBColor As Long) As OLECOLOR
- CopyMemory getCol, VBColor, Len(getCol)
- End Function
- Public Function changeBrightness(lngDiff As Long, c As OLE_COLOR) As OLE_COLOR
- Dim col As OLECOLOR
- Dim red As Long, green As Long, blue As Long
- col = getCol(c)
- red = col.RedOrSys: green = col.green: blue = col.blue
- If Abs(lngDiff) > 255 Then changeBrightness = c
- red = red + lngDiff
- green = green + lngDiff
- blue = blue + lngDiff
- If red < 0 Then red = 0
- If red > 255 Then red = 255
- If green < 0 Then green = 0
- If green > 255 Then green = 255
- If blue < 0 Then blue = 0
- If blue > 255 Then blue = 255
- changeBrightness = RGB(red, green, blue)
- End Function
Danke im Vorraus
Leseratte
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Leseratte“ () aus folgendem Grund: Keine durchsreichung im VB-Tag