请问如何修改WizardSheet对话框的大小？

[zhaolinger]

好像向导对话框的大小是预先设定的，与每一个page对话框的大小无关；

[zheng_rui]

可以更改，参看mfc的源码就明白了，我改过

[zheng_rui]

本人择自MFC源码如下:
看了你就给分吧

BOOL CPropertySheet::OnInitDialog()
{
// change tab style if scrolling tabs desired (stacked tabs are default)
if (!m_bStacked)
{
HWND hWndTab = (HWND)::GetDlgItem(m_hWnd, AFX_IDC_TAB_CONTROL);
if (hWndTab != NULL)
CWnd::ModifyStyle(hWndTab, TCS_MULTILINE, TCS_SINGLELINE, 0);
}

if (!IsWizard())
{
// resize the tab control so the layout is less restrictive
HWND hWnd = (HWND)::GetDlgItem(m_hWnd, AFX_IDC_TAB_CONTROL);
ASSERT(hWnd != NULL);
CRect rectOld;
::GetWindowRect(hWnd, &rectOld);
ScreenToClient(rectOld);
CRect rectNew(0, 0, 0, 32);
::MapDialogRect(m_hWnd, &rectNew);
if (rectNew.bottom < rectOld.bottom)
{
// move tab control
int cyDiff = rectOld.Height() - rectNew.bottom;
::SetWindowPos(hWnd, NULL, 0, 0, rectOld.Width(), rectNew.bottom,
SWP_NOMOVE and SWP_NOZORDER and SWP_NOACTIVATE);

// move buttons by similar amount
for (int i = 0; i < _countof(_afxPropSheetButtons); i++)
{
hWnd = ::GetDlgItem(m_hWnd, _afxPropSheetButtons[i]);
if (hWnd != NULL)
{
::GetWindowRect(hWnd, &rectOld);
ScreenToClient(&rectOld);
::SetWindowPos(hWnd, NULL,
rectOld.left, rectOld.top - cyDiff,
0, 0, SWP_NOSIZE and SWP_NOZORDER and SWP_NOACTIVATE);
}
}

// resize property sheet itself similarly
GetWindowRect(&rectOld);
SetWindowPos(NULL, 0, 0, rectOld.Width(), rectOld.Height() - cyDiff,
SWP_NOMOVE and SWP_NOZORDER and SWP_NOACTIVATE);
}
}

BOOL bResult = (BOOL)Default();

if (m_bModeless && !IsWizard())
{
// layout property sheet so button area is not accounted for
CRect rectWnd;
GetWindowRect(rectWnd);
CRect rectButton;
HWND hWnd = ::GetDlgItem(m_hWnd, IDOK);
ASSERT(hWnd != NULL);
::GetWindowRect(hWnd, rectButton);
SetWindowPos(NULL, 0, 0,
rectWnd.Width(), rectButton.top - rectWnd.top,
SWP_NOMOVE and SWP_NOZORDER and SWP_NOACTIVATE);

// remove standard buttons for modeless dialogs
for (int i = 0; i < _countof(_afxPropSheetButtons); i++)
{
HWND hWnd = ::GetDlgItem(m_hWnd, _afxPropSheetButtons[i]);
if (hWnd != NULL)
{
::ShowWindow(hWnd, SW_HIDE);
::EnableWindow(hWnd, FALSE);
}
}
}

// center the property sheet relative to the parent window
if (!(GetStyle() & WS_CHILD))
CenterWindow();

return bResult;
}

[sun2000]

得到WizardSheet的指针pWizard
if (pWizard){
CRect r;
pWizard->GetWindowRect(r);
//修改r,如r.right+=100;
pWizard->MoveWindow(r...);
}
目的达到

[Sniper]

关注。

[zhaolinger]

首先谢谢sun2000.但是用MoveWindow()是不行的，我上次贴文章时忘了说了。因为右下角的“下一步”等按钮无法按比例改动，搞不好就被切掉了。
zheng_rui的法子我用了，但有些函数找不到比如_countof和_afxPropSheetButtons是不是内部函数？而且包含它们的头文件CHPPYVW.H VC里找不到，能否得到进一步帮助？

[15年老程创业中]

关注

[sun2000]

当然你也可以用同样的方法得到按钮"下一步"CButton *pButton;
pButton=pWizard->GetDlgItem(0x00003024);
//用Spy++查得“下一步”的ID号为0x00003024,“上一步”为0x00003023
pButton->MoveWindow(...);

[zheng_rui]

具体怎么改，我现在忘了，好像是
CWnd* hwnd = GetDlgItem(AFX_IDC_TAB_CONTROL);
hwnd->movewindow();
我查查告诉你

[zhaolinger]

我这两天实在太忙， 除了做报告还要考英语。
等忙过这一阵在为诸位评分吧。
sun2000的办法估计是可行的，只是我眼下没时间试一下。
我还有一个问题，我在编辑对话框时没法知道显示的WizadSheet的大小，怎么办呀？