同济大学
罗筱波
---- 在当今的网络时代，超联接无所不在，在各种各样的软件上我们都可以看到它的存在，这几乎成了一个必不可少的一项宣传内容。如果能在自己的程序中加入一个超联接，那么会使我们的程序带上鲜明的网络特征。但是在vc6.0中并没有提供一个用于制作超联接的控件，因此只有自己编写实现此功能的
程序。下面是本人编写的一个实现超联接的类，希望能与大家分享。
---- 制作思路是：从类CStatic 派生出一个子类CsuperLinkCtrl，然后为子类CsuperLinkCtrl加入适当的函数使其能响应鼠标的消息和实现超联接的功能。制作过程如下：
---- 一、首先从类CStatic 派生出一个子类CsuperLinkCtrl，用classwizard生成的头文件具体代码如下：
class CSuperLinkCtrl : public CStatic
{
// Construction
public:
CSuperLinkCtrl();
CSuperLinkCtrl(COLORREF
clickedtextcor,COLORREF moveontextcor,COLORREF
ordinarytextcor);
// Attributes
public:
COLORREF m_crText; //超联接文本的颜色
// Operations
public:
// Overrides
// ClassWizard generated virtual function overrides
//{{AFX_VIRTUAL(CSuperLinkCtrl)
//}}AFX_VIRTUAL
// Implementation
public:
BOOL SetLinkAddress(CString linkaddress);
//用于设置超联接的地址
void MouseLeave(void);
void MouseEnter(void);
void SetLinkCursor(HCURSOR hCursor);
//用于设置超联接的鼠标形状
void SetSuperLink(BOOL setlink);
virtual ~CSuperLinkCtrl();
// Generated message map functions
protected:
CString m_linktext; // shell 调用的联接参数
BOOL m_bClicked; // 鼠标是否单击超联接
HCURSOR m_hCursor; // 鼠标移动到超联接上时的鼠标形状
//{{AFX_MSG(CSuperLinkCtrl)
afx_msg HBRUSH CtlColor(CDC* pDC,
UINT nCtlColor);
afx_msg void OnLButtonDown(UINT
nFlags, CPoint point);
afx_msg BOOL OnSetCursor(CWnd* pWnd,
UINT nHitTest, UINT message);
afx_msg void OnMouseMove(UINT nFlags, CPoint point);
//}}AFX_MSG
DECLARE_MESSAGE_MAP()
private:
BOOL m_bcaptured; //捕捉鼠标移动
COLORREF m_clickedtextcor; //单击超联接后文本的颜色
COLORREF m_moveontextcor; //鼠标移动到超联接时的文本的颜色
COLORREF m_ordinarytextcor; //未激活超联接时文本的颜色
LOGFONT m_lf;
CFont m_font; //超联接上的文本的字体
};
---- 二、为类编写实现文件
---- 在类的两个重载构造函数中完成类的初始化工作
CSuperLinkCtrl::CSuperLinkCtrl()
{
m_bClicked=FALSE;
m_bcaptured=FALSE;
m_clickedtextcor=RGB(0,255,255);
m_moveontextcor=RGB(0,255,0);
m_ordinarytextcor=RGB(0,0,255);
m_crText=m_ordinarytextcor;
// 设置初始化字体颜色
::GetObject((HFONT)GetStockObject
(DEFAULT_GUI_FONT),sizeof(m_lf),&m_lf);
//取得当前的缺省字体
m_lf.lfUnderline = TRUE;
//为当前缺省字体加入下划线
BOOL bCreated = m_font.CreateFontIndirect(&m_lf);
// 创建超联接字体
ASSERT(bCreated);
m_hCursor=NULL; &
