Internet Explorer 编程简述（十二）正确地设置和转移焦点

1. 完全没有加速键。

2. 摆设用的加速键。

3. 错误地（或不能）转移焦点

4. 对嵌入的ActiveX控件缺乏处理

• 从工具条上的任何一个输入框出发，按Tab将焦点转移到下一个输入框，按Shift+Tab将焦点转移到上一个输入框
• 如果焦点所在输入框是工具条上的最后一个输入框，按Tab将焦点转移到WebBrowser控件当前的活动Html Element（上一次获得焦点的Element）
• 如果焦点所在输入框是工具条上的第一个输入框，按Shift+Tab将焦点转移到WebBrowser控件当前活动Html Element
• 对于上面两种情况，若WebBrowser控件没有当前活动的可获得焦点Html Element，则焦点应从输入框转移到WebBrowser控件的第一个或最后一个可获得焦点的Html Element
• 如果焦点当前位于WebBrowser控件中，按Tab将焦点转移到下一个Html Element，按Shift+Tab将焦点转移到上一个Html Element
• 如果焦点当前位于WebBrowser控件中，且当前的活动Html Element是最后一个可获得焦点的Html Element，按Tab将焦点转移到工具条的第一个输入框
• 如果焦点当前位于WebBrowser控件中，且当前的活动Html Element是第一个可获得焦点的Html Element，按Shif+Tab将焦点转移到工具条的最后输入框

• 例1：假设当前焦点位于地址输入框，按下Tab键不松开，焦点转移的顺序应是：“地址栏”，“搜索栏”，“Google大全”……“将Google设为首页”，“地址栏”，“搜索栏”，“个性化主页”，“搜索记录”……
• 例2：假设当前焦点位于地址输入框，且WebBrowser控件没有活动的获得焦点的Html Element，按下Tab键不松开，焦点转移的顺序应是：“地址栏”，“搜索栏”，“个性化主页”，“搜索记录”……“将Google设为首页”，“地址栏”，……
• 例3：假设当前焦点位于“搜索记录”，按下Shift+Tab键不松开，焦点转移的顺序应是：“搜索记录”，“个性化主页”，“搜索栏”，“地址栏”，“将Google设为首页”……“搜索记录”……

BOOL CDialogBarEx::PreTranslateMessage(MSG* pMsg)

{

if ( ( pMsg->message==WM_KEYDOWN ) )

{

if ( (pMsg->wParam == VK_TAB) )

{

//由MainFrame处理如何转移焦点，按下Shift表示焦点应转移到上一个窗口

g_pMainFrame->SetFocusToNextControl( GetKeyState(VK_SHIFT) >= 0 );

return TRUE;

}

}

......

return CDialogBar::PreTranslateMessage(pMsg);

}

 

void CMainFrame::SetFocusToNextControl(bool bNext)

{

//m_wndReBar是一个CReBarEx，可从CReBar派生

if ( !m_wndReBar.SetFocusToNextControl(bNext) )

{

//如果CReBarEx在其子窗口中找不到下（上）一个可以设置焦点的窗口，则把焦点转移到WebBrowser

CChildFrame *pChildFrame = (CChildFrame *)MDIGetActive();

if ( pChildFrame && pChildFrame->GetActiveView() )

{

pChildFrame->GetActiveView()->SetFocus();

}

}

}

 

bool CReBarEx::SetFocusToNextControl(bool bNext)

{

return bNext ? FocusNextControl() : FocusPrevControl();

}

 

bool CReBarEx::FocusNextControl()

{

REBARBANDINFO rbbi;

rbbi.cbSize = sizeof( rbbi );

rbbi.fMask = RBBIM_CHILD;

 

//先找到当前获得焦点的Band

UINT nBand;

for ( nBand = 0; nBand < m_rbCtrl.GetBandCount(); nBand++ )

{

VERIFY( m_rbCtrl.GetBandInfo(nBand, &rbbi) );

if ( ::IsChild(rbbi.hwndChild, ::GetFocus()) )

{

break;

}

}

 

//如果运行到这里，必定能够找到当前获得焦点的Band

ASSERT(nBand < m_rbCtrl.GetBandCount());

 

for ( nBand = nBand + 1; nBand < m_rbCtrl.GetBandCount(); nBand++ )

{

VERIFY( m_rbCtrl.GetBandInfo(nBand, &rbbi) );

::SetFocus(rbbi.hwndChild);

if ( ::IsChild(rbbi.hwndChild, ::GetFocus()) )

{

//成功找到并设置焦点到下一个窗口

return true;

}

}

//当前获得焦点的窗口已经是ReBarEx中最后一个可获得焦点的窗口

return false;

}

 

bool CReBarEx::FocusPrevControl()

{

//实现与FocusNextControl类似，此处略去

}

 

void CReBarEx::OnSetFocus(CWnd* pOldWnd)

{

//如果此时Shift为按下的状态，表示焦点可能是从WebBrowser的第一个活动Html Element转过来，

//则将焦点转移到最后一个输入框，否则转移到第一个输入框

//SetFocusToLastControl与SetFocusToFirstControl的实现相当简单，略去

return GetKeyState(VK_SHIFT) < 0 ? SetFocusToLastControl() : SetFocusToFirstControl();

}

//在此处理将焦点从WebBrowser中转移到ReBar上的输入框

HRESULT CMyView::OnTranslateAccelerator(LPMSG lpMsg,const GUID* pguidCmdGroup, DWORD nCmdID)

{

if (lpMsg && lpMsg->message == WM_KEYDOWN && lpMsg->wParam == VK_TAB)

{

LPDISPATCH lpDispatch = GetHtmlDocument();

CComQIPtr<IHTMLDocument2> pHTMLDoc = lpDispatch;

if ( pHTMLDoc )

{

CComQIPtr<IHTMLElement> pElement;

if ( SUCCEEDED(pHTMLDoc->get_activeElement(&pElement)) && !pElement )

{

//没有任何活动的Html Element，把焦点转移到ReBar

g_pMainFrame->m_wndReBar.SetFocus();

//通知MSHTML不要再继续处理按键

return S_OK;

}

}

}

return S_FALSE;

}

• IOleObject::DoVerb能够将焦点设置到WebBrowser上一次失去焦点时获得焦点的Html Element上。缺点在于如果WebBrowser上次失去焦点时没有任何Html Element获得焦点，则DoVerb并不能保证焦点会转移到WebBrowser中。
• IHTMLWindow2::focus不管三七二十一，将焦点转移到WebBrowser的开头Html Element。这显然不是我们想要的。
• 测试的结果，IHTMLDocument4::focus似乎能够满足要求：能够记住WebBrowser上次失去焦点时获得焦点的Html Element；在WebBrowser上次失去焦点时没有任何Html Element获得焦点的情况下，能够焦点转移到开头的Html Element。但事实上并不理想，假如按住Tab键不松开，反复调用IHTMLDocument4::focus多次之后，我们会发现焦点再也到不到WebBrowser中了。

void CMyView::OnSetFocus(CWnd* pOldWnd)

{

LPDISPATCH lpDisp = GetHtmlDocument();

CComQIPtr<IHTMLDocument2, &IID_IHTMLDocument2> pHTMLDoc(lpDisp);

if ( pHTMLDoc )

{

CComQIPtr<IHTMLElement> pElement;

if ( SUCCEEDED(pHTMLDoc->get_activeElement(&pElement)) && !pElement )

{

//没有任何活动元素，把焦点转移到WebBrowser的开头

CComQIPtr<IHTMLWindow2> pHTMLWnd;

if( SUCCEEDED(pHTMLDoc->get_parentWindow( &pHTMLWnd )) && pHTMLWnd )

{

pHTMLWnd->focus();

return;

}

}

}

 

//有活动的元素（上一次的焦点），直接将焦点转移过去

//CWnd::SetFocus()会调用IOleObject::DoVerb()正确地设置焦点

m_wndBrowser.SetFocus();

}