用VC++實(shí)現(xiàn)超鏈接技術(shù)

1、用VC實(shí)現(xiàn)超鏈接技術(shù) 在網(wǎng)絡(luò)日益普及的今天，我們使用形形色色的軟件過(guò)程中，總能發(fā)現(xiàn)在這些軟件中都增加了一種實(shí)用功能超鏈接。使用超鏈接我們可以方便的在應(yīng)用程序中提供網(wǎng)址與電子郵件地址，方便用戶快捷升級(jí)，登錄網(wǎng)址瀏覽最新信息，發(fā)送郵件提供合理建議等等。這里所說(shuō)的超鏈接是指用給定的地址從應(yīng)用程序中啟動(dòng)瀏覽器或電子郵件軟件的功能，本文將在對(duì)話框中插入超鏈接，闡述超鏈接的實(shí)現(xiàn)方法。實(shí)現(xiàn)超鏈接，有些程序員們要說(shuō)這簡(jiǎn)單，只要使用API函數(shù)ShellExecute調(diào)用瀏覽器軟件或相應(yīng)的電子郵件軟件就可以實(shí)現(xiàn)。但這并不是一個(gè)好的實(shí)現(xiàn)方法，首先，每一個(gè)操作系統(tǒng)的瀏覽器不盡相同，簡(jiǎn)單的調(diào)用方法不能很好的解決這一問(wèn)題

2、；其次，不能實(shí)現(xiàn)良好的界面。一、實(shí)現(xiàn)良好的界面一個(gè)界面良好的超鏈接，在對(duì)話框中實(shí)現(xiàn)時(shí)可以實(shí)現(xiàn)顏色的變換，即正常時(shí)為一種顏色，光標(biāo)移到超鏈接控件上時(shí)顯示另一種顏色，訪問(wèn)過(guò)的超鏈接又顯示一種顏色。響應(yīng)WM_CTLCOLOR_REFLECT消息，修改響應(yīng)函數(shù)如下可以實(shí)現(xiàn)顏色的變換。HBRUSH CHLink:CtlColor(CDC* pDC, UINT nCtlColor)/ TODO: Change any attributes of the DC hereif(m_bPointing)/m_bPointing為BOOL變量，光標(biāo)指向超鏈接控件為TRUE。pDC->SetTextColor

3、(m_cPointingColor);/m_cPointingColor為COLORREF變量，光標(biāo)指向超鏈接控件時(shí)的控件的顏色。elseif(m_bVisited)/m_bVisited為BOOL變量，超鏈接被訪問(wèn)過(guò)為TRUE。pDC->SetTextColor(m_cVisitedColor);/m_cVisitedColor為COLORREF變量，超鏈接被訪問(wèn)后的控件的顏色。 elseif(m_bNormal)/m_bNormal為BOOL變量，超鏈接正常狀態(tài)為TRUE。pDC->SetTextColor(m_cNormalColor);/m_cNormalColor為COL

4、ORREF變量，超鏈接正常狀態(tài)的顏色。 / TODO: Return a different brush if the default is not desiredpDC->SetBkMode(TRANSPARENT);return (HBRUSH)GetStockObject(NULL_BRUSH);/ HLink.h : header file/ CHLink windowclass CHLink : public CStatic/ Constructionpublic:void SetUnderline(BOOL Underline);void SetTipTitle(CStrin

5、g tipStr);void SetWindowTitle(CString tStr);LONG GetRegKey(HKEY key, LPCTSTR subkey, LPTSTR retdata);HINSTANCE GotoURL(LPCTSTR url, int showcmd);void SetLinkCur();void SetPointingColor(COLORREF PointingColor);void SetVisitedColor(COLORREF VisitedColor);void SetNormalColor(COLORREF NormalColor);void

6、SetURL(CString strURL);CHLink();private:void AutoSizeWindow();CString m_strURL;COLORREF m_cPointingColor;COLORREF m_cVisitedColor;COLORREF m_cNormalColor;BOOL m_bVisited;BOOL m_bPointing;BOOL m_bNormal;BOOL m_bUnderLine;BOOL m_bAdjustFit;BOOL m_Title;BOOL m_tip;CFont m_Font;CToolTipCtrl m_ToolTip;HC

7、URSOR m_cursor;/ Attributespublic:/ Operationspublic:/ Overrides/ ClassWizard generated virtual function overrides/AFX_VIRTUAL(CHLink)public:virtual BOOL PreTranslateMessage(MSG* pMsg);protected:virtual void PreSubclassWindow();/AFX_VIRTUAL/ Implementationpublic:virtual CHLink();/ Generated message

8、map functionsprotected:/AFX_MSG(CHLink)afx_msg void OnMouseMove(UINT nFlags, CPoint point);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_MSGDECLARE_MESSAGE_MAP();/ HLink.c

9、pp : implementation file/#include "stdafx.h"#include "llll.h"#include "HLink.h"#ifdef _DEBUG#define new DEBUG_NEW#undef THIS_FILEstatic char THIS_FILE = _FILE_;#endif/ CHLinkCHLink:CHLink()m_cNormalColor=RGB(0,0,255);m_cPointingColor=RGB(0,125,155);m_cVisitedColor=RGB(8

10、5,26,139);m_bNormal=TRUE;m_bVisited=FALSE;m_bPointing=FALSE;m_Title=FALSE;m_tip=FALSE;m_bUnderLine=TRUE;m_bAdjustFit=TRUE;CHLink:CHLink()m_Font.DeleteObject();BEGIN_MESSAGE_MAP(CHLink, CStatic)/AFX_MSG_MAP(CHLink)ON_WM_MOUSEMOVE()ON_WM_CTLCOLOR_REFLECT()ON_WM_LBUTTONDOWN()ON_WM_SETCURSOR()/AFX_MSG_M

11、APEND_MESSAGE_MAP()/ CHLink message handlersvoid CHLink:SetURL(CString strURL)m_strURL=strURL;if(!m_Title)SetWindowText(m_strURL);AutoSizeWindow();if(!m_tip)m_ToolTip.UpdateTipText(strURL, this, 1);Invalidate();void CHLink:PreSubclassWindow()/ TODO: Add your specialized code here and/or call the bas

12、e classDWORD dwStyle = GetStyle();:SetWindowLong(GetSafeHwnd(), GWL_STYLE, dwStyle | SS_NOTIFY);m_cursor=AfxGetApp()->LoadStandardCursor(IDC_ARROW);LOGFONT lf;GetFont()->GetLogFont(&lf);lf.lfUnderline = m_bUnderLine;m_Font.CreateFontIndirect(&lf);SetFont(&m_Font);CRect rect;GetClie

13、ntRect(rect);m_ToolTip.Create(this);m_ToolTip.AddTool(this, m_strURL, rect, 1);SetLinkCur();CStatic:PreSubclassWindow();HBRUSH CHLink:CtlColor(CDC* pDC, UINT nCtlColor)/ TODO: Change any attributes of the DC hereif(m_bPointing)pDC->SetTextColor(m_cPointingColor);elseif(m_bVisited)pDC->SetTextC

14、olor(m_cVisitedColor);elseif(m_bNormal)pDC->SetTextColor(m_cNormalColor);/ TODO: Return a different brush if the default is not desiredpDC->SetBkMode(TRANSPARENT);return (HBRUSH)GetStockObject(NULL_BRUSH);void CHLink:SetPointingColor(COLORREF PointingColor)m_cPointingColor=PointingColor;void C

15、HLink:SetVisitedColor(COLORREF VisitedColor)m_cVisitedColor=VisitedColor;void CHLink:SetNormalColor(COLORREF NormalColor)m_cNormalColor=NormalColor;void CHLink:OnMouseMove(UINT nFlags, CPoint point)/ TODO: Add your message handler code here and/or call defaultCStatic:OnMouseMove(nFlags, point);CRect

16、 rect;GetClientRect(rect);if (!rect.PtInRect(point)m_bPointing = FALSE;ReleaseCapture();else / Cursor has just moved over controlm_bPointing = TRUE;SetLinkCur();SetCapture();Invalidate();void CHLink:AutoSizeWindow()if(m_bAdjustFit)CRect rect;GetWindowRect(rect);CWnd *pParent=GetParent();if(pParent)p

17、Parent->ScreenToClient(rect);CString strText;GetWindowText(strText);CDC* pDC=GetDC();CFont* oldFont=pDC->SelectObject(&m_Font);CSize strExtent=pDC->GetTextExtent(strText);pDC->SelectObject(oldFont);ReleaseDC(pDC);DWORD dwStyle = GetStyle();if (dwStyle & SS_CENTERIMAGE)rect.Deflat

18、eRect(0, (rect.Height() - strExtent.cy)/2);elserect.bottom = rect.top + strExtent.cy;if (dwStyle & SS_CENTER)rect.DeflateRect(rect.Width() - strExtent.cx)/2, 0);elseif (dwStyle & SS_RIGHT)rect.left = rect.right - strExtent.cx;elserect.right = rect.left + strExtent.cx;SetWindowPos(NULL, rect.

19、left, rect.top, rect.Width(), rect.Height(), SWP_NOZORDER);void CHLink:OnLButtonDown(UINT nFlags, CPoint point)/ TODO: Add your message handler code here and/or call defaultint result = (int)GotoURL(m_strURL, SW_SHOW);m_bVisited = (result > HINSTANCE_ERROR);Invalidate();CStatic:OnLButtonDown(nFla

20、gs, point);BOOL CHLink:PreTranslateMessage(MSG* pMsg)/ TODO: Add your specialized code here and/or call the base classm_ToolTip.RelayEvent(pMsg);return CStatic:PreTranslateMessage(pMsg);void CHLink:SetLinkCur()m_cursor=AfxGetApp()->LoadCursor(IDC_CURSOR);BOOL CHLink:OnSetCursor(CWnd* pWnd, UINT n

21、HitTest, UINT message)/ TODO: Add your message handler code here and/or call default:SetCursor(m_cursor);return TRUE;/return CStatic:OnSetCursor(pWnd, nHitTest, message);HINSTANCE CHLink:GotoURL(LPCTSTR url, int showcmd)TCHAR keyMAX_PATH + MAX_PATH;HINSTANCE result = ShellExecute(NULL, _T("open

22、"), url, NULL,NULL, showcmd);if (UINT)result <= HINSTANCE_ERROR) if (GetRegKey(HKEY_CLASSES_ROOT, _T(".htm"), key) = ERROR_SUCCESS) lstrcat(key, _T("shellopencommand");if (GetRegKey(HKEY_CLASSES_ROOT,key,key) = ERROR_SUCCESS)TCHAR *pos;pos = _tcsstr(key, _T(""%1"");if (pos = NULL)pos = strstr(key, _T("%1");if (pos = NULL)pos = key+lstrlen(key)-1;else*pos = '0'else*pos = '0' / Remove the parameterlstrcat(pos, _T(" ");lstrcat(pos, url);result = (HINSTANCE) WinExec(key,showcmd);return result;