1.3.3  小试牛刀--编程实现写邮件超级链接（1）

实例功能 编程实现写邮件超级链接

源码路径 光盘\yuanma\1\Link

本实例的目的是，使用Visual C++ 6.0开发一个实现写邮件超级链接的应用程序。

1. 设计MFC窗体

使用Visual C++ 6.0创建一个MFC项目后，根据本实例的需要设计一个窗体，命名为IDD_ HLSAMPLE_DIALOG，如图1-16所示。

图1-16  创建的窗体

2. 具体编码

设计好窗体之后，接下来开始讲解具体的编码过程。

(1) 在文件HyperLink.h中定义继承于类CStatic的类CHyperLink，并设置与超链接相关的样式变量，例如鼠标形状、是否访问过等。具体代码如下：

1. class CHyperLink : public CStatic  
2. {  
3. public:  
4. CHyperLink();  
5. virtual ~CHyperLink();  
6. // 属性  
7. public:  
8.  
9. public:  
10. //设定URL  
11. void SetURL(CString strURL);  
12. CString GetURL() const;  
13. //设定颜色  
14. void SetColours(COLORREF crLinkColour, COLORREF crVisitedColour,   
15. COLORREF crHoverColour=-1);  
16. //获得连接颜色  
17. COLORREF GetLinkColour() const;  
18. //获得被访问后的颜色  
19. COLORREF GetVisitedColour() const;  
20. //获得鼠标移动上以后的颜色  
21. COLORREF GetHoverColour() const;  
22.  
23. //设定是否被访问过  
24. void SetVisited(BOOL bVisited=TRUE);  
25. //获得是否被访问过  
26. BOOL GetVisited() const;  
27.  
28. //设定鼠标形状  
29. void SetLinkCursor(HCURSOR hCursor);  
30. //获得鼠标形状  
31. HCURSOR GetLinkCursor() const;  
32. //设定是否有下划线  
33. void SetUnderline(BOOL bUnderline=TRUE);  
34. //获得是否有下划线  
35. BOOL GetUnderline() const;  
36. //设定是否是自动改变大小  
37. void SetAutoSize(BOOL bAutoSize=TRUE);  
38. BOOL GetAutoSize() const;  
39.  
40. public:  
41. virtual BOOL PreTranslateMessage(MSG *pMsg);  
42. protected:  
43. virtual void PreSubclassWindow();  
44. //}}AFX_VIRTUAL  
45.  
46. protected:  
47. //连接到URL  
48. HINSTANCE GotoURL(LPCTSTR url, int showcmd);  
49. //打印错误  
50. void ReportError(int nError);  
51. //获得注册表信息  
52. LONG GetRegKey(HKEY key, LPCTSTR subkey, LPTSTR retdata);  
53. //调整位置  
54. void PositionWindow();  
55. //设定默认的鼠标形状  
56. void SetDefaultCursor();  
57.  
58. // 变量  
59. protected:  
60. COLORREF m_crLinkColour, m_crVisitedColour; // 超级链接颜色  
61. COLORREF m_crHoverColour;                           // 鼠标停留颜色  
62. BOOL     m_bOverControl;                            // 是否鼠标移到控件上  
63. BOOL     m_bVisited;                                // 是否被访问  
64. BOOL     m_bUnderline;                              // 是否有下划线  
65. BOOL     m_bAdjustToFit;                            // 是否自动调整控件大小  
66. CString  m_strURL;                                  // URL  
67. CFont    m_Font;                                        // 设定字体  
68. HCURSOR  m_hLinkCursor;                             // 光标  
69. CToolTipCtrl m_ToolTip;                             // 提示文字  
70. protected:  
71. afx_msg HBRUSH CtlColor(CDC *pDC, UINT nCtlColor);  
72. afx_msg BOOL OnSetCursor(CWnd *pWnd, UINT nHitTest, UINT message);  
73. afx_msg void OnMouseMove(UINT nFlags, CPoint point);  
74. //}}AFX_MSG  
75. afx_msg void OnClicked();  
76. DECLARE_MESSAGE_MAP()  
77. };  

1.3.3  小试牛刀--编程实现写邮件超级链接（2）

(2) 在文件HyperLink.cpp中定义类成员函数的具体实现，接下来开始讲解此文件的具体实现过程。

① 定义函数OnMouseMove和OnSetCursor实现鼠标移动事件，具体代码如下：

1. //鼠标移动事件  
2. void CHyperLink::OnMouseMove(UINT nFlags, CPoint point)   
3. {  
4. CStatic::OnMouseMove(nFlags, point);  
5. //判断鼠标是否在控件上方  
6. if (m_bOverControl)          
7. {  
8. CRect rect;  
9. GetClientRect(rect);  
10.  
11. if (!rect.PtInRect(point))  
12. {  
13. m_bOverControl = FALSE;  
14. ReleaseCapture();  
15. RedrawWindow();  
16. return;  
17. }  
18. }  
19. else                      // 鼠标移过控件  
20. {  
21. m_bOverControl = TRUE;  
22. RedrawWindow();  
23. SetCapture();  
24. }  
25. }  
26. BOOL CHyperLink::OnSetCursor(  
27. CWnd* /*pWnd*/,   
28. UINT /*nHitTest*/,   
29. UINT /*message*/)   
30. {  
31. if (m_hLinkCursor)  
32. {  
33. ::SetCursor(m_hLinkCursor);  
34. return TRUE;  
35. }  
36. return FALSE;  
37. }  

② 定义函数PreSubclassWindow()实现鼠标移动事件，具体代码如下：

1. void CHyperLink::PreSubclassWindow()   
2. {  
3. // 获得鼠标单击事件  
4. DWORD dwStyle = GetStyle();  
5. ::SetWindowLong(GetSafeHwnd(), GWL_STYLE, dwStyle | SS_NOTIFY);  
6.  
7. // 如果URL为空，设定为窗体名称  
8. if (m_strURL.IsEmpty())  
9. GetWindowText(m_strURL);  
10.  
11. // 同时检查窗体标题是否为空，如果为空则设定为URL  
12. CString strWndText;  
13. GetWindowText(strWndText);  
14. if (strWndText.IsEmpty()) {  
15. ASSERT(!m_strURL.IsEmpty());      
16. SetWindowText(m_strURL);  
17. }  
18.  
19. // 创建字体  
20. LOGFONT lf;  
21. GetFont()->GetLogFont(&lf);  
22. lf.lfUnderline = m_bUnderline;  
23. m_Font.CreateFontIndirect(&lf);  
24. SetFont(&m_Font);  
25.  
26. PositionWindow();               // 调整窗体大小  
27. SetDefaultCursor();             // 设定默认鼠标形状  
28.  
29. //创建提示信息  
30. CRect rect;   
31. GetClientRect(rect);  
32. m_ToolTip.Create(this);  
33. m_ToolTip.AddTool(this, m_strURL, rect, TOOLTIP_ID);  
34.  
35. CStatic::PreSubclassWindow();  
36. }  

1.3.3  小试牛刀--编程实现写邮件超级链接（3）

③ 定义函数SetURL()和GetURL()，分别设置链接的URL地址并获取URL。具体代码如下：

1. //设定URL   
2. void CHyperLink::SetURL(CString strURL)  
3. {  
4. m_strURL = strURL;  
5. if (::IsWindow(GetSafeHwnd())) {  
6. PositionWindow();  
7. m_ToolTip.UpdateTipText(strURL, this, TOOLTIP_ID);  
8. }  
9. }  
10. CString CHyperLink::GetURL() const  
11. {   
12. return m_strURL;     
13. }  
14.  

④ 定义SetColours()、GetLinkColour()、GetVisitedColour()和GetHoverColour()函数，用于设置链接的不同访问状态下的颜色，具体代码如下：

1. //设定颜色  
2. void CHyperLink::SetColours(COLORREF crLinkColour, COLORREF crVisitedColour,  
3.                             COLORREF crHoverColour /* = -1 */)   
4. {   
5. m_crLinkColour = crLinkColour;   
6. m_crVisitedColour = crVisitedColour;  
7. if (crHoverColour == -1)  
8. m_crHoverColour = ::GetSysColor(COLOR_HIGHLIGHT);  
9. else  
10. m_crHoverColour = crHoverColour;  
11. if (::IsWindow(m_hWnd))  
12. Invalidate();   
13. }  
14.  
15. COLORREF CHyperLink::GetLinkColour() const  
16. {   
17. return m_crLinkColour;   
18. }  
19.  
20. COLORREF CHyperLink::GetVisitedColour() const  
21. {  
22. return m_crVisitedColour;   
23. }  
24.  
25. COLORREF CHyperLink::GetHoverColour() const  
26. {  
27. return m_crHoverColour;  
28. }  

⑤ 定义函数SetVisited()和GetVisited()，用于设置是否被访问过，具体代码如下：

1. void CHyperLink::SetVisited(BOOL bVisited /* = TRUE */)   
2. {   
3. m_bVisited = bVisited;   
4.  
5. if (::IsWindow(GetSafeHwnd()))  
6. Invalidate();   
7. }  
8.  
9. BOOL CHyperLink::GetVisited() const  
10. {   
11. return m_bVisited;   
12. }  

1.3.3  小试牛刀--编程实现写邮件超级链接（4）

⑥ 定义函数SetLinkCursor()和GetLinkCursor()，用于分别设定鼠标的形状和获取鼠标的形状，具体代码如下：

1. void CHyperLink::SetLinkCursor(HCURSOR hCursor)  
2. {   
3. m_hLinkCursor = hCursor;  
4. if (m_hLinkCursor == NULL)  
5. SetDefaultCursor();  
6. }  
7.  
8. HCURSOR CHyperLink::GetLinkCursor() const  
9. {  
10. return m_hLinkCursor;  
11. }  

⑦ 定义函数SetUnderline()和GetUnderline()，分别用于设置是否有下划线和获取是否具有下划线，具体代码如下：

1. //设置下划线  
2. void CHyperLink::SetUnderline(BOOL bUnderline /* = TRUE */)  
3. {  
4. m_bUnderline = bUnderline;  
5.  
6. if (::IsWindow(GetSafeHwnd()))  
7. {  
8. LOGFONT lf;  
9. GetFont()->GetLogFont(&lf);  
10. lf.lfUnderline = m_bUnderline;  
11. m_Font.DeleteObject();  
12. m_Font.CreateFontIndirect(&lf);  
13. SetFont(&m_Font);  
14. Invalidate();   
15. }  
16. }  
17.  
18. BOOL CHyperLink::GetUnderline() const  
19. {   
20. return m_bUnderline;   
21. }  

⑧ 定义函数SetAutoSize()和GetAutoSize()，分别用于设置和获取是否是自动改变大小，具体代码如下：

1. void CHyperLink::SetAutoSize(BOOL bAutoSize /* = TRUE */)  
2. {  
3. m_bAdjustToFit = bAutoSize;  
4. if (::IsWindow(GetSafeHwnd()))  
5. PositionWindow();  
6. }  
7.  
8. BOOL CHyperLink::GetAutoSize() const  
9. {   
10. return m_bAdjustToFit;   
11. }  

⑨ 定义函数PositionWindow()，用于调整窗体的大小，具体代码如下：

1. void CHyperLink::PositionWindow()  
2. {  
3. if (!::IsWindow(GetSafeHwnd()) || !m_bAdjustToFit)   
4. return;  
5. CRect rect;  
6. GetWindowRect(rect);  
7. CWnd *pParent = GetParent();  
8. if (pParent)  
9. pParent->ScreenToClient(rect);  
10. CString strWndText;  
11. GetWindowText(strWndText);  
12. CDC *pDC = GetDC();  
13. CFont *pOldFont = pDC->SelectObject(&m_Font);  
14. CSize Extent = pDC->GetTextExtent(strWndText);  
15. pDC->SelectObject(pOldFont);  
16. ReleaseDC(pDC);  
17. DWORD dwStyle = GetStyle();  
18. if (dwStyle & SS_CENTERIMAGE)  
19. rect.DeflateRect(0, (rect.Height() - Extent.cy)/2);  
20. else  
21. rectrect.bottom = rect.top + Extent.cy;  
22. if (dwStyle & SS_CENTER)     
23. rect.DeflateRect((rect.Width() - Extent.cx)/2, 0);  
24. else if (dwStyle & SS_RIGHT)   
25. rectrect.left  = rect.right - Extent.cx;  
26. else   
27. rectrect.right = rect.left + Extent.cx;  
28. SetWindowPos(NULL, rect.left, rect.top,   
29. rect.Width(), rect.Height(), SWP_NOZORDER);  
30. }  

⑩ 定义函数SetDefaultCursor()，用于设定默认的鼠标形状，具体代码如下：

1. void CHyperLink::SetDefaultCursor()  
2. {  
3. if (m_hLinkCursor == NULL)         // No cursor handle - load our own  
4. {  
5. // Get the windows directory  
6. CString strWndDir;  
7. GetWindowsDirectory(strWndDir.GetBuffer(MAX_PATH), MAX_PATH);  
8. strWndDir.ReleaseBuffer();  
9.  
10. strWndDir += _T("\\winhlp32.exe");  
11. // This retrieves cursor #106 from winhlp32.exe,   
12. // which is a hand pointer  
13. HMODULE hModule = LoadLibrary(strWndDir);  
14. if (hModule) {  
15. HCURSOR hHandCursor = ::LoadCursor(hModule, MAKEINTRESOURCE(106));  
16. if (hHandCursor)  
17. m_hLinkCursor = CopyCursor(hHandCursor);  
18. }  
19. FreeLibrary(hModule);  
20. }  
21. }  

?定义函数GetRegKey()，用于获得注册表信息，具体代码如下：

1. LONG CHyperLink::GetRegKey(HKEY key, LPCTSTR subkey, LPTSTR retdata)  
2. {  
3. HKEY hkey;  
4. LONG retval = RegOpenKeyEx(key, subkey, 0, KEY_QUERY_VALUE, &hkey);  
5. if (retval == ERROR_SUCCESS) {  
6. long datasize = MAX_PATH;  
7. TCHAR data[MAX_PATH];  
8. RegQueryValue(hkey, NULL, data, &datasize);  
9. lstrcpy(retdata, data);  
10. RegCloseKey(hkey);  
11. }  
12. return retval;  
13. }  

?定义函数ReportError()，用于输出打印错误，具体代码如下：

1. void CHyperLink::ReportError(int nError)  
2. {  
3. CString str;  
4. switch (nError) {  
5. case 0:   
6. str = "The operating system is out\nof memory or resources.";   
7. break;  
8. case SE_ERR_PNF:   
9. str = "The specified path was not found.";   
10. break;  
11. case SE_ERR_FNF:       
12. str = "The specified file was not found.";   
13. break;  
14. case ERROR_BAD_FORMAT:    
15. str = "The .EXE file is invalid\n(non-Win32 .EXE " 
16. + CString("") + "or error in .EXE image).";   
17. break;  
18. case SE_ERR_ACCESSDENIED:   
19. str="The operating system denied\naccess to the specified file.";   
20. break;  
21. case SE_ERR_ASSOCINCOMPLETE:    
22. str = "The filename association is\nincomplete or invalid.";   
23. break;  
24. case SE_ERR_DDEBUSY:   
25. str = "The DDE transaction could not\nbe completed because " 
26. + CString("")+"other DDE transactions\nwere being processed.";   
27. break;  
28. case SE_ERR_DDEFAIL:   
29. str = "The DDE transaction failed.";   
30. break;  
31. case SE_ERR_DDETIMEOUT:   
32. str = "The DDE transaction could not\nbe completed because " 
33. + CString("") + "the request timed out.";   
34. break;  
35. case SE_ERR_DLLNOTFOUND:   
36. str = "The specified dynamic-link library was not found.";   
37. break;  
38. case SE_ERR_NOASSOC:   
39. str = "There is no application associated\nwith the " 
40. + CString("") + "given filename extension.";   
41. break;  
42. case SE_ERR_OOM:   
43. str = "There was not enough memory to complete the operation.";   
44. break;  
45. case SE_ERR_SHARE:   
46. str = "A sharing violation occurred. ";  
47. default:   
48. str.Format("Unknown Error (%d) occurred.", nError);   
49. break;  
50. }  
51.  
52. str = "Unable to open hyperlink:\n\n" + str;  
53. AfxMessageBox(str, MB_ICONEXCLAMATION | MB_OK);  
54. }  

定义函数GotoURL()，用于链接到指定的目标地址，具体代码如下：

1. //链接到目标地址  
2. HINSTANCE CHyperLink::GotoURL(LPCTSTR url, int showcmd)  
3. {  
4. TCHAR key[MAX_PATH + MAX_PATH];  
5.  
6. // 调用函数ShellExecute()  
7. HINSTANCE result =   
8. ShellExecute(NULL, _T("open"), url, NULL, NULL, showcmd);  
9.  
10. // 如果错误，则检查注册表获得.htm文件的注册键值  
11. if ((UINT)result <= HINSTANCE_ERROR) {  
12.  
13. if (GetRegKey(HKEY_CLASSES_ROOT,_T(".htm"),key) == ERROR_SUCCESS) {  
14.  
15. lstrcat(key, _T("\\shell\\open\\command"));  
16.  
17. if (GetRegKey(HKEY_CLASSES_ROOT,key,key) == ERROR_SUCCESS) {  
18. TCHAR *pos;  
19. pos = _tcsstr(key, _T("\"%1\""));  
20. if (pos == NULL) {                     // 没有发现  
21. pos = strstr(key, _T("%1"));       // 检查%1  
22. if (pos == NULL)                   // 没有参数  
23. pos = key+lstrlen(key)-1;  
24. else  
25. *pos = ‘\0‘;                   // 删除参数  
26. }  
27. else  
28. *pos = ‘\0‘;                       // 删除参数  
29.  
30. lstrcat(pos, _T(" "));  
31. lstrcat(pos, url);  
32. result = (HINSTANCE)WinExec(key, showcmd);  
33. }  
34. }  
35. }  
36.  
37. return result;  
38. }  

至此，整个实例的主要模块介绍完毕。该程序执行后，将在窗体内显示一个超级链接，如图1-17所示。单击"写邮件"后，将激活链接，开始写邮件，如图1-18所示。

图1-17  显示一个超级链接

图1-18  开始写邮件