acpeng — Sun, 01 May 2011 01:54:00 GMT

最�q�写一个小的对话框�E�序�Ӟ��惛_��一个文本超链接�Q�研�I�了一下，发上自己的研�I�成果，供大家参考。下面说说完整的步骤�?/span>

(假定静态文本ID为ID_STATIC)

首先�Q�设�|�鼠标的形状及响应鼠标点�?span>

�W�一步，�?span>Dlg�c�M��定义一�?span>protect成员变量HCURSOR m_hCursor,

在构造函数里�Q�或者在OnInitDialog()里）调用语句

m_hCursor=AfxGetApp()->LoadCursor(IDI_CURLINK);加蝲鼠标;

�W�二步，�?span>Dlg�c�M��定义一�?span>protect成员变量RECT m_StaticRect,表示静态文本的坐标�Q�在成员函数OnInitDialog()里调用语�?span>

GetDlgItem(IDC_STATIC)->GetWindowRect(&m_StaticRect);

ScreenToClient(&m_StaticRect);

�W�三步，加蝲鼠标�U�d��消息�Q�在OnMouseMove()里调用语�?span>

if( point.x > m_StaticRect.left && point.x < m_StaticRect.right &&
    point.y > m_StaticRect.top  && point.y < m_StaticRect.bottom )
    {
       SetCursor(m_hCursor);
    }

�W�四步，加蝲鼠标单击消息�Q�在OnLButtonDown()里添加语�?span>

if( point.x > m_StaticRect.left && point.x < m_StaticRect.right &&point.y > m_StaticRect.top && point.y < m_StaticRect.bottom )
{
SetCursor(m_hCursor);
ShellExecute(NULL,"open",TEXT("http://www.tlu.edu.cn"),NULL,NULL, SW_SHOWNORMAL);
}

注意�Q?/span>若是邮箱�Q�则改�ؓShellExecute(NULL, "open",_T("mailto:apeng332@sohu.com"), NULL, NULL, SW_SHOWNORMAL);

在鼠标单��L��L��时候最好也加上SetCursor(m_hCursor);使得鼠标的移动更��畅�Q�鼠标右键消息也可以加上SetCursor(m_hCursor)�?span>

其次�Q�设�|�静态文本的字体与颜�?span>

�W�一步，字体的设�|�：�?span>Dlg�c�M��定义一�?span>protect成员变量CFont m_Font表示字体�Q�在�cȝ��成员函数OnInitDialog()里调�?span>m_Font.CreateFont(……),注意参数很多�Q�参�?span>MSDN。接着�~�写两行代码�Q?span>

CStatic *m_static=(CStatic *)GetDlgItem(IDC_STATIC);

m_static->SetFont(&m_Font,false);

�W�二步，颜色的设�|�：�?span>Dlg中加�?span>WM_CTLCOLOR消息�Q�在此消息的响应函数OnCtlColor(……)里添加如下代码：

HBRUSH CScreenShotsDlg::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor)
{
    HBRUSH hbr = CDialog::OnCtlColor(pDC, pWnd, nCtlColor);
    if (pWnd->GetDlgCtrlID() == IDC_STATIC)
     {
       pDC->SetTextColor(RGB(255, 0, 0));
     }
    return hbr;
}

卛_��

acpeng 2011-05-01 09:54 发表评论

久久久久亚洲精品天堂,久久无码国产,久久天天躁狠狠躁夜夜av浪潮