CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Results 1 to 1 of 1
  1. #1
    Join Date
    Apr 2009

    [VB6] - resolving a flicker... double buffer

    i'm trying doing\simulate a real Opacity in controls(usercontrol). and works better than i thot
    but the problem is that i see a flicker when draw the image and i don't understand how fix that
    i try the doublem buffering and the results aren't correct
    pseudo code:
    1 - clean usercontrol(the original image is in picture1);
    2 - clean picture2. for recive the parent\container capture(that's why i need clean the user control, for hide it and capture what is in back);
    3 - by some reason i MUST use the doevents() for the usercontrol been realy clean(or isn't clean);
    4 - now i use the bitblt() for capture the container and put it in picture2:
    Public Sub CaptureContainer(ByVal DestinationHDC As Long, ByVal SourceHWND As Long, ByVal SourceX As Long, ByVal SourceY As Long, ByVal SourceWidth As Long, ByVal SourceHeight As Long)
        Dim SourceDC As Long
        SourceDC = GetDC(SourceHWND)
        BitBlt DestinationHDC, 0, 0, SourceWidth, SourceHeight, SourceDC, SourceX, SourceY, vbSrcCopy
    End Sub
    5 - now i combine the pixels for do the opacity(i must use these sub for transparency):
    Public Sub TransparentAlphaBlend(ByRef SrcHDC As Long, _
                                     ByRef DstHDC As Long, _
                                     ByRef SrcWidth As Integer, _
                                     ByRef SrcHeight As Integer, _
                                     ByRef Opacity As Integer, _
                                     ByRef TransparentColor As Long)
        Dim x As Long, y As Long
        Dim lngsrcColor As Long, lngdstColor As Long, lngNewColor As Long
        Dim lngAlpha As Long, R As Long, G As Long, B As Long
        Dim SrcRed As Long, SrcBlue As Long, SrcGreen As Long
        Dim DstRed As Long, DstBlue As Long, DstGreen As Long
        'convert the values from 0-100 to 0-255
        lngAlpha = Opacity * 255 / 100
        For x = 0 To SrcWidth - 1
            For y = 0 To SrcHeight - 1
                'geting the source and destination colors\pixels
                lngdstColor = GetPixel(DstHDC, x, y)
                lngsrcColor = GetPixel(SrcHDC, x, y)
                'if source pixel is tranparentcolor then ignore it
                If lngsrcColor <> TransparentColor Then
                    'geting the destinations RGB values
                    DstRed = lngdstColor And 255
                    DstGreen = (lngdstColor And 65535) \ 256
                    DstBlue = (lngdstColor And &HFF0000) \ 65536
                    'geting the source destination RGB values
                    SrcRed = lngsrcColor And 255
                    SrcGreen = (lngsrcColor And 65535) \ 256
                    SrcBlue = (lngsrcColor And &HFF0000) \ 65536
                    'FinalPixel = (AlphaValue * (Source + 256 - Destination)) / 256 + Destination - AlphaValue
                    'now i must combine them with alpha values for make the opacy\fade
                    R = (lngAlpha * (SrcRed + 256 - DstRed)) / 256 + DstRed - lngAlpha
                    G = (lngAlpha * (SrcGreen + 256 - DstGreen)) / 256 + DstGreen - lngAlpha
                    B = (lngAlpha * (SrcBlue + 256 - DstBlue)) / 256 + DstBlue - lngAlpha
                    lngNewColor = RGB(R, G, B)
                    'now that i have the new color, i use it
                    SetPixelV DstHDC, x, y, lngNewColor
                End If
            Next y
        Next x
    End Sub
    and the result is puted in picture2;
    5 - now i draw the results in usercontrol.
    1 - doublebuffer i still see the flicker and bad results(just like black rectangules);
    2 - with that sub or my DIB's sub i have good results, but a flicker
    any advice please?
    Attached Files Attached Files

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Windows Mobile Development Center

Click Here to Expand Forum to Full Width

On-Demand Webinars (sponsored)

We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.