VB6 + VC++ : how to avoid flicker?

M

Marco Segurini

Hi,

I am trying to avoid flicker in this situation:

1) I create a simple VB6 Window application (a void form) and I define
this code for the form (that has the autoredraw property set to false):

'NOTE: this declaration is in another file
Declare Sub InstallMsgHandler Lib _
"E:\TestMsgHandler\Debug\TestMsgHandler.dll" (ByVal lpPC As Long)

Private Sub Form_Load()
InstallMsgHandler (Me.hWnd)
End Sub

Private Sub Form_Paint()
Dim lRet As Long
Dim rectClient As RECT
lRet = GetClientRect(Me.hWnd, rectClient)

Dim hTempDC As Long
hTempDC = GetDC(Me.hWnd)
Dim hbr, hbrOld As Long
hbr = CreateSolidBrush(RGB(255, 0, 0)) 'red
lRet = FillRect(hTempDC, rectClient, hbr)
lRet = DeleteObject(hbr)
lRet = ReleaseDC(Me.hWnd, hTempDC)
End Sub



2) I create a MFC dll and I add a CWnd derived class that subclass the
VB form window:

//memdc.h - //header/implementation for double buffer drawing : see
CODEGURU or CODEPROJECT

#ifndef _MEMDC_H_
#define _MEMDC_H_

//////////////////////////////////////////////////
// CMemDC - memory DC
//
// Author: Keith Rule
// Email: (e-mail address removed)
// Copyright 1996-1997, Keith Rule
//
// You may freely use or modify this code provided this
// Copyright is included in all derived versions.
//
// This class implements a memory Device Context

class CMemDC : public CDC {
private:
CBitmap* m_bitmap;
CBitmap* m_oldBitmap;
CDC* m_pDC;
CRect m_rcBounds;
public:
CMemDC(CDC* pDC, const CRect& rcBounds) : CDC()
{
CreateCompatibleDC(pDC);
m_bitmap = new CBitmap;
m_bitmap->CreateCompatibleBitmap(pDC, rcBounds.Width(),
rcBounds.Height());
m_oldBitmap = SelectObject(m_bitmap);
m_pDC = pDC;
m_rcBounds = rcBounds;
}
~CMemDC()
{
m_pDC->BitBlt(m_rcBounds.left, m_rcBounds.top, m_rcBounds.Width(),
m_rcBounds.Height(),
this, m_rcBounds.left, m_rcBounds.top, SRCCOPY);
SelectObject(m_oldBitmap);
if (m_bitmap != NULL) delete m_bitmap;
}
CMemDC* operator->() {
return this;
}
};

#endif

// CMyCWnd.h

class CMyCWnd : public CWnd
{
DECLARE_DYNAMIC(CMyCWnd)

public:
CMyCWnd();
virtual ~CMyCWnd();

bool init(HWND hwnd);

protected:
DECLARE_MESSAGE_MAP()
public:
afx_msg void OnPaint();
afx_msg BOOL OnEraseBkgnd(CDC* pDC);
};

// MyCWnd.cpp : implementation file
//

#include "stdafx.h"
#include "TestMsgHandler.h"
#include "MyCWnd.h"

#include "memdc.h"

extern "C" void WINAPI InstallMsgHandler(HWND hwnd)
{
static bool bAlreadyInit = false;
if (!bAlreadyInit)
{
static CMyCWnd wnd;
bAlreadyInit = wnd.init(hwnd);
}
}

// CMyCWnd

IMPLEMENT_DYNAMIC(CMyCWnd, CWnd)
CMyCWnd::CMyCWnd()
{
}

CMyCWnd::~CMyCWnd()
{
}

bool CMyCWnd::init(HWND hwnd)
{
return SubclassWindow(hwnd) != 0;
}

BEGIN_MESSAGE_MAP(CMyCWnd, CWnd)
ON_WM_PAINT()
ON_WM_ERASEBKGND()
END_MESSAGE_MAP()

void CMyCWnd::OnPaint()
{
CRect rectClient;
GetClientRect(&rectClient);

CPaintDC dc(this); // device context for painting
CMemDC memdc(&dc, rectClient);

Default(); // this call the visual basic application redraw.

rectClient.DeflateRect(rectClient.Width()/4, rectClient.Height()/4);
CBrush Brush(RGB(0x80,0x80,0x80));
memdc.FillRect(&rectClient, &Brush);
}

BOOL CMyCWnd::OnEraseBkgnd(CDC* /*pDC*/)
{
return FALSE;
}

Running this example I have that VC++ draws on the memory buffer while
VB6 draws on the screen. How may I force VB6 to draw on the replaced
in-memory bitmap ?

Thanks for help.
Marco.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How to capture a form's Image 1
it fails to retrieve fresh userinput 4
How to write and read from streams (Istream) Save webpage as Image 0
RTF Render with Scale 3

Top