Class that Enables Drag '& Drop of Internet Links from IE to a List Control

Environment: VC6 , Window98

1. Insert Following Routine into the Main App.

BOOL CPerfectGetApp::InitInstance()
{
	CoInitialize(NULL);

    if (!AfxOleInit())
    {
        AfxMessageBox("Ole Initialization Failed");
        return FALSE;
    }

    .....

}


int CPerfectGetApp::ExitInstance() 
{
	CoUninitialize();
	
	return CWinApp::ExitInstance();
}


2. In the main dialog header file.

#include "GetList.h"		 

#define IDC_GET_LIST	4321		// define any constant. ;-)

class CPerfectGetDlg : public CResizingDialog
{

    ....

// Attributes
protected:
	CGetList m_ctrGetList;

    ....
}


3. In the main dialog cpp file.

////////////////////////
// OnCreate
///////////////////////
int CPerfectGetDlg::OnCreate(LPCREATESTRUCT lpCreateStruct) 
{

	....

	
	// Create GetList control.
	m_ctrGetList.Create(
		LVS_REPORT | WS_VISIBLE | WS_CHILD,
			CRect( 10, 10 , 460, 200),	
			this, IDC_GET_LIST);

	m_ctrGetList.SetTextColor(RGB(255,255,255));
	m_ctrGetList.SetTextBkColor(RGB(69,83,103));
	m_ctrGetList.SetBkColor(RGB(69,83,103));


	// List Control Header Initializing.
	LV_COLUMN Lvc;

	Lvc.mask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM;
	Lvc.fmt = LVCFMT_LEFT;
	
	// First Column.
	Lvc.pszText = (LPTSTR)(LPCSTR)"Internet Link";
	Lvc.cx = 440; 
	Lvc.iSubItem = 0;
	m_ctrGetList.InsertColumn(0, &Lvc);


	// Set Extended style.
	m_ctrGetList.SetExtendedStyle( 
		LVS_EX_ONECLICKACTIVATE |
		LVS_EX_FULLROWSELECT | 
		LVS_EX_UNDERLINEHOT | 
		LVS_EX_INFOTIP |
		LVS_EX_FLATSB  |
		LVS_EX_GRIDLINES |
		LVS_EX_CHECKBOXES 
		);
	
	...
}


4. Just use it. ;-)

Downloads