如何在属性页的顶部同时加入菜单和工具栏（菜单在上面)?谢谢!附代码.

[ylb_and_xy]

BOOL CMySheet::OnInitDialog()
{
//load menu
CMenu Menu;
if(Menu.LoadMenu( IDR_MENU )==0)
{
MessageBox("LOAD MENU ERROR!",NULL,MB_OK);
}
SetMenu(&Menu);

//load toolbar
CToolBar ToolBar;
ToolBar.Create(this);
if(ToolBar.LoadToolBar(IDR_TOOLBAR)==0)
{
MessageBox("LOAD ToolBar ERROR!",NULL,MB_OK);
}
ToolBar.SetBarStyle(CBRS_ALIGN_TOP | CBRS_TOOLTIPS | CBRS_FLYBY |CBRS_ALIGN_BOTTOM |CBRS_ALIGN_ANY );
ToolBar.ShowWindow(SW_SHOW);
...........
}

[ylb_and_xy]

up up up

[public]

添加工具栏成员变量m_wndToolbar
BOOL CMySheet::OnInitDialog()
{
.......................
//CREATE TOOLBAR
if(!m_wndToolbar.Create(this) || !m_wndToolbar.LoadToolBar(IDR_TOOLBAR1))
{
TRACE0("Failed to Create Dialog Toolbar\n");
EndDialog(IDCANCEL);
}
CRect rcClientOld; // Old Client Rect
CRect rcClientNew; // New Client Rect with Tollbar Added
GetClientRect(rcClientOld); // Retrive the Old Client WindowSize
// Called to reposition and resize control bars in the client area of a window
// The reposQuery FLAG does not really traw the Toolbar. It only does the calculations.
// And puts the new ClientRect values in rcClientNew so we can do the rest of the Math.
RepositionBars(AFX_IDW_CONTROLBAR_FIRST,AFX_IDW_CONTROLBAR_LAST,0,reposQuery,rcClientNew);

// All of the Child Windows (Controls) now need to be moved so the Tollbar does not cover them up.
// Offest to move all child controls after adding Tollbar
CPoint ptOffset(rcClientNew.left-rcClientOld.left,
rcClientNew.top-rcClientOld.top);

CRect rcChild;
CWnd* pwndChild = GetWindow(GW_CHILD); //Handle to the Dialog Controls
while(pwndChild) // Cycle through all child controls
{
pwndChild->GetWindowRect(rcChild); // Get the child control RECT
ScreenToClient(rcChild);
rcChild.OffsetRect(ptOffset); // Changes the Child Rect by the values of the claculated offset
pwndChild->MoveWindow(rcChild,FALSE); // Move the Child Control
pwndChild = pwndChild->GetNextWindow();
}

CRect rcWindow;
GetWindowRect(rcWindow); // Get the RECT of the Dialog
rcWindow.right += rcClientOld.Width() - rcClientNew.Width(); // Increase width to new Client Width
rcWindow.bottom += rcClientOld.Height() - rcClientNew.Height(); // Increase height to new Client Height
MoveWindow(rcWindow,FALSE); // Redraw Window

// Now we REALLY Redraw the Toolbar
RepositionBars(AFX_IDW_CONTROLBAR_FIRST,AFX_IDW_CONTROLBAR_LAST,0);


return TRUE;












}

[ylb_and_xy]

试了，没用。谢谢。

[ylb_and_xy]

上面的代码只能添加菜单，不能添加工具栏。并且LoadToolBar函数执行是正确的。

[public]

我的
CMySheet继承自CPropertyPage

[ylb_and_xy]

我的也是，我已经改变方案了。
马上结帖。