ハイパーリンク

ドキュメント種別	ATL/WTL に関する文書
最終更新日	2009/12/19
PR

　ハイパーリンクコントロールは、Webページのハイパーリンクのようなコントロールです。 WTLはハイパーリンクコントロールを作成するためにCHyperLinkというクラスを用意しています。

以下に示すのは、CHyperLinkクラスを使用する例です。

	プロジェクトファイルダウンロード

// stdafx.h
#pragma once

#define WINVER 0x0420
#include <atlbase.h>
#if _ATL_VER == 0x900
#define _SECURE_ATL 1
#endif

#define _WTL_USE_CSTRING
#include <atlapp.h>
extern CAppModule _Module;
#include <atlwin.h>

#include <tpcshell.h>
#include <aygshell.h>
#pragma comment(lib, "aygshell.lib")

#include <atlcrack.h>
#include <atlmisc.h>
#include <atlframe.h>
#include <atlctrls.h>
#define _WTL_CE_NO_ZOOMSCROLL
#define _WTL_CE_NO_FULLSCREEN
#include <atlwince.h>
#include <atlctrlx.h>  // CHyperLinkを使用するため

// SampleProjectDialog.h
#pragma once

class CSampleProjectDialog : 
    public CAppStdDialogImpl<CSampleProjectDialog>,
    public CUpdateUI<CSampleProjectDialog>,
    public CMessageFilter, public CIdleHandler
{
public:
    DECLARE_APP_DLG_CLASS(NULL, IDR_MAINFRAME, L"Software\\WTL")

    enum { IDD = IDD_MAINDLG };

    CHyperLink m_link_wtl;     // ハイパーリンク

    virtual BOOL PreTranslateMessage(MSG* pMsg){
        return CWindow::IsDialogMessage(pMsg);
    }

    virtual BOOL OnIdle(){
        return FALSE;
    }

    BEGIN_UPDATE_UI_MAP(CSampleProjectDialog)
    END_UPDATE_UI_MAP()

    BEGIN_MSG_MAP(CSampleProjectDialog)
        MSG_WM_INITDIALOG(OnInitDialog)
        MSG_WM_DESTROY(OnDestroy)
        CHAIN_MSG_MAP(CUpdateUI<CSampleProjectDialog>)
        CHAIN_MSG_MAP(CAppStdDialogImpl<CSampleProjectDialog>)
    END_MSG_MAP()

    BOOL OnInitDialog(CWindow wndFocus, LPARAM lInitParam){
        AtlCreateEmptyMenuBar(m_hWnd);

        // コントロール設定
        m_link_wtl.SubclassWindow(GetDlgItem(IDC_STATIC_LINK));
        m_link_wtl.SetHyperLink(_T("http://wtl.sourceforge.net/"));

        // メッセージループにメッセージフィルタとアイドルハンドラを追加
        CMessageLoop* pLoop = _Module.GetMessageLoop();
        pLoop->AddMessageFilter(this);
        pLoop->AddIdleHandler(this);

        SetMsgHandled(false);

        return TRUE;
    }

    void OnDestroy(){
        // メッセージループからメッセージフィルタとアイドルハンドラを削除
        CMessageLoop* pLoop = _Module.GetMessageLoop();
        pLoop->RemoveMessageFilter(this);
        pLoop->RemoveIdleHandler(this);
    }
};

// SampleProject.cpp
#include "stdafx.h"
#include "resourceppc.h"
#include "SampleProjectDialog.h"

CAppModule _Module;

int WINAPI _tWinMain(HINSTANCE hInstance,
    HINSTANCE /*hPrevInstance*/, LPTSTR lpstrCmdLine, int nCmdShow)
{
    HRESULT hRes =
        CSampleProjectDialog::ActivatePreviousInstance(hInstance, lpstrCmdLine);

    if(FAILED(hRes) || S_FALSE == hRes){
        return hRes;
    }

    hRes = ::CoInitializeEx(NULL, COINIT_MULTITHREADED);
    ATLASSERT(SUCCEEDED(hRes));

    AtlInitCommonControls(ICC_DATE_CLASSES);
    SHInitExtraControls();

    hRes = _Module.Init(NULL, hInstance);
    ATLASSERT(SUCCEEDED(hRes));

    int nRet = CSampleProjectDialog::AppRun(lpstrCmdLine, nCmdShow);

    _Module.Term();
    ::CoUninitialize();

    return nRet;
}

　まず、リソースを作成します。ダイアログにスタティックコントロールを配置し、［ID］と［Caption］を次のように設定します。なお、スタティックコントロールの［プロパティ］では［Tabstop］を［True］に設定します。

コントロール名	ID	Caption
スタティック	IDC_STATIC_LINK	WTL

　次に、stdafx.hヘッダでは、CHyperLinkクラスを使用するためにatlctrls.hヘッダとatlctrlx.hヘッダをインクルードします。なお、atlctrls.hヘッダを先にインクルードする必要があります。

　CSampleProjectDialogクラスでは、まず、 CHyperLinkクラスのインスタンスをメンバ変数として宣言します。これを使うためには、WM_INITDIALOGメッセージハンドラでサブクラス化する必要があります。

　次に、WM_INITDIALOGメッセージハンドラで CHyperLinkクラスのメンバ関数であるSetHyperLink()を呼び出して、ハイパーリンクコントロールにリンクを設定します。

　このように、ハイパーリンクコントロールを作成するためには、スタティックコントロールをサブクラス化します。なお、Create()を呼び出して作成することもできます。

　WTLのハイパーリンクコントロールは、独自の拡張スタイルを用意しています。

HLINK_UNDERLINED
下線を表示します。このスタイルはデフォルトで設定されています。
HLINK_NOTUNDERLINED
下線を表示しません。
HLINK_COMMANDBUTTON
クリックした時（Navigate()が呼び出された時）に親ウィンドウにWM_COMMANDメッセージを送ります。自動的にブラウザを起動しません。
HLINK_NOTIFYBUTTON
クリックした時（Navigate()が呼び出された時）に親ウィンドウにWM_NOTIFYメッセージを送ります。自動的にブラウザを起動しません。
HLINK_USETAGS
ラベル内の<a></a>タグに囲まれた文字列をリンク化します。リンク文字列は自動的に左寄せされます。
HLINK_USETAGSBOLD
ラベル内の<a></a>タグに囲まれた文字列を太字でリンク化します。リンク文字列は自動的に左寄せされます。このスタイルを使用すると、HLINK_UNDERLINEDスタイルは無視されます。

これらの拡張スタイルをハイパーリンクコントロールに設定するためには、ハイパーリンクコントロールをサブクラス化する前にSetHyperLinkExtendedStyle()を呼び出す必要があります。次に示すのは、先述のプログラムのハイパーリンクコントロールにHLINK_USETAGSスタイルを追加して、 <a></a>タグを使用する例です。

まず、スタティックコントロールの［Caption］を次のように変更します。

コントロール名	ID	Caption
スタティック	IDC_STATIC_LINK	<a>WTL</a>へジャンプ

次に、WM_INITDIALOGメッセージハンドラで、 SubclassWindow()を呼び出す前にSetHyperLinkExtendedStyle()を呼び出します。

	プロジェクトファイルダウンロード

BOOL OnInitDialog(CWindow wndFocus, LPARAM lInitParam){
    ...
    ...
    
    // コントロール設定
    m_link_wtl.SetHyperLinkExtendedStyle(HLINK_USETAGS);
    m_link_wtl.SubclassWindow(GetDlgItem(IDC_STATIC_LINK));
    m_link_wtl.SetHyperLink(_T("http://wtl.sourceforge.net/"));

    return TRUE;
}