Bild teilweise transparent machen und auf anderes Bild blitten

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Aeonos.

    Bild teilweise transparent machen und auf anderes Bild blitten

    Hi Leute ich bins mal wieder ^^

    IMO stehe ich vor dem Problem, dass ich über ein Bild ein anderes blitten möchte,
    aber so, dass das neue Bild nur zu einem bestimmten Prozentsatz sichtbar ist.
    Also sowas wie bei Photoshop mit dem Color/Gardient/Pattern Overlay mit
    einer bestimmten Opacity. Das soll also nur so ein Schimmer von dem einen
    auf dem anderen Bild angezeigt werden.

    Weiß jemand wie man das realisieren könnte.

    LoL ^^ hab ne Lösung gefunden

    Wenn jemand das gleiche Problem hat, einfach drei Pictureboxen anlegen, deren AutoRedraw auf True setzen
    und dann das hier einfügen

    Visual Basic-Quellcode

    1. Private Type BLENDFUNCTION
    2. BlendOp As Byte
    3. BlendFlags As Byte
    4. SourceConstantAlpha As Byte
    5. AlphaFormat As Byte
    6. End Type
    7. ' BlendOp:
    8. Private Const AC_SRC_OVER = &H0
    9. ' AlphaFormat:
    10. Private Const AC_SRC_ALPHA = &H1
    12. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
    13. lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
    15. Private Declare Function AlphaBlend Lib "MSIMG32.dll" ( _
    16. ByVal hdcDest As Long, _
    17. ByVal nXOriginDest As Long, _
    18. ByVal nYOriginDest As Long, _
    19. ByVal nWidthDest As Long, _
    20. ByVal nHeightDest As Long, _
    21. ByVal hdcSrc As Long, _
    22. ByVal nXOriginSrc As Long, _
    23. ByVal nYOriginSrc As Long, _
    24. ByVal nWidthSrc As Long, _
    25. ByVal nHeightSrc As Long, _
    26. ByVal lBlendFunction As Long _
    27. ) As Long
    29. Private Sub Form_Paint()
    30. Dim lBlend As Long
    31. Dim bf As BLENDFUNCTION
    33. ' Draw the first picture:
    34. bf.BlendOp = AC_SRC_OVER
    35. bf.BlendFlags = 0
    36. bf.SourceConstantAlpha = 255
    37. bf.AlphaFormat = 0
    38. CopyMemory lBlend, bf, 4
    40. AlphaBlend Picture3.hDC, 0, 0, _
    41. Picture1.ScaleWidth \ Screen.TwipsPerPixelX, _
    42. Picture1.ScaleHeight \ Screen.TwipsPerPixelY, _
    43. Picture1.hDC, 0, 0, _
    44. Picture1.ScaleWidth \ Screen.TwipsPerPixelX, _
    45. Picture1.ScaleHeight \ Screen.TwipsPerPixelY, _
    46. lBlend
    48. ' Now draw the second picture with 50% transparency over the top:
    49. bf.SourceConstantAlpha = 128
    50. CopyMemory lBlend, bf, 4
    52. AlphaBlend Picture3.hDC, 0, 0, _
    53. Picture2.ScaleWidth \ Screen.TwipsPerPixelX, _
    54. Picture2.ScaleHeight \ Screen.TwipsPerPixelY, _
    55. Picture2.hDC, 0, 0, _
    56. Picture2.ScaleWidth \ Screen.TwipsPerPixelX, _
    57. Picture2.ScaleHeight \ Screen.TwipsPerPixelY, _
    58. lBlend
    60. End Sub