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

GetLink sample image

Environment: VC6 , Window98

Using OLE Drag and Drop, this control enables you to drag and drop any link from Internet Explorer (IE) directly to a list control. You can even drag the icon from the IE address bar so that the current Web page's URL is inserted into the list control!

Here is sample list control that get the Internet link from Internet Explorer.


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. ;-)



If you drag any link to your new program, your new GetList object show the fully qualified URL.

Downloads

Download demo project - 21 Kb
Download source - 3 Kb


Comments

  • Good and easy sample

    Posted by Legacy on 06/18/2003 12:00am

    Originally posted by: A.Beug

    Thanks, the example I've been looking for days.
    Easy and helpful. Good work.

    Reply
  • great, thanks

    Posted by Legacy on 07/13/2001 12:00am

    Originally posted by: Keith Craigie

    good job, very useful

    Reply
  • how to get the caption of the url

    Posted by Legacy on 06/28/2001 12:00am

    Originally posted by: young

    I can get the address but how to get the caption of the url

    Reply
  • DOWNLOAD A PARTICULAR LINK

    Posted by Legacy on 04/15/2000 12:00am

    Originally posted by: venkat-sra

    How to download a particular link from a web page after drag & drop it ?  
    

    Reply
  • how to drag and drop picture's url

    Posted by Legacy on 03/16/2000 12:00am

    Originally posted by: Rain Huang

    some pictures have no links, but i want to get the link of the picture itself.
    for example: http://www.microsoft.com/logo.jpg
    NetVampire can, how can i do?

    Reply
  • Good, but…

    Posted by Legacy on 12/20/1999 12:00am

    Originally posted by: Cody

    This works well; however, it will put ANYTHING from Internet Explorer into the list box, including plain text. A good way to filter out text is to use the Shell LightWeight API function ::PathIsURL() to determine if it is a URL/link.

    Reply
Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • 10 Rules that Make or Break Enterprise App Development Projects In today's app-driven world, application development is a top priority. Even so, 68% of enterprise application delivery projects fail. Designing and building applications that pay for themselves and adapt to future needs is incredibly difficult. Executing one successful project is lucky, but making it a repeatable process and strategic advantage? That's where the money is. With help from our most experienced project leads and software engineers, …

  • IT decision support impacts all aspects of technology management, from governance and strategy to budgets and resource planning. IT decision support effectiveness often falls prey to data-driven challenges that make it difficult to understand the data in context. These challenges: overwhelming data volumes, heterogeneous data types, and growing data complexity. This Forrester Consulting Paper reports the three key findings from their study conducted, on behalf of BDNA, to test the hypothesis that data …

Most Popular Programming Stories

More for Developers

Latest Developer Headlines

RSS Feeds