在窗口过程中处理滚动条消息

成都创新互联2013年至今，是专业互联网技术服务公司，拥有项目网站设计制作、成都网站制作网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元光山做网站,已为上家服务,为光山各地企业和个人服务,联系电话:028-86922220

WNDPROC pSubclassOldEditProc;
INT iVScrollPos = 0, iVTextPos = 0;

LRESULT winProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
	//获取新设置的窗口属性,就是获取CNewEdit的指针,方便后面访问m_lOldProc这个成员
	if (message == WM_VSCROLL)
	{
		//TRACE( _T("%d\n"), LOWORD(wParam));
		switch (LOWORD(wParam))
		{
			case SB_LINEDOWN:
				if (iVScrollPos != (NUMLINE - 1)) 
					iVTextPos -= 1;
				TRACE(_T("向下滚动一行\n") );
				break;
			case SB_LINEUP:
				if (iVScrollPos != 0) iVTextPos += 1;
				TRACE( _T("向上滚动一行\n"));
				break;
			case SB_PAGEUP:
				TRACE( _T("向上滚动一页\n"));
				break;
			case SB_PAGEDOWN:
				TRACE( _T("向下滚动一页\n"));
				break;
			case SB_THUMBPOSITION:
				CScale3DCListBox::AdjustListBox(iVScrollPos);
				break;
			case SB_THUMBTRACK:
				iVTextPos = -HIWORD(wParam);

				break;
			default:
				break;
		}

		iVScrollPos = -iVTextPos;
		SetScrollPos(hwnd, SB_VERT, iVScrollPos, TRUE);
	}
	//处理完需要截获(改变)的消息后接着返回旧的窗口过程
	return CallWindowProc((WNDPROC)pSubclassOldEditProc, hwnd, 
	       message, wParam, lParam);
}

创建窗口并替换过程函数,如下

m_pWndListBoxDlg = new CWnd;
LPCTSTR lpszClassName = AfxRegisterWndClass(CS_HREDRAW | CS_VREDRAW,
		AfxGetApp()->LoadStandardCursor(IDC_ARROW),
		(HBRUSH)GetStockObject(LTGRAY_BRUSH), NULL);
m_pWndListBoxDlg->Create(lpszClassName, _T(""), WS_CHILD | WS_VISIBLE| 
                WS_VSCROLL| ES_AUTOHSCROLL,
		rt1, parentWnd, 5234);

m_uID     = 5234;
m_nHeight = nHeight;

//设置滚动条
m_hwndListbox = m_pWndListBoxDlg->GetSafeHwnd();
m_pWndListBoxDlg->SetScrollRange(SB_VERT, 0, NUMLINE - 1, FALSE);
//设置 TRUE 滚动条立即重绘 这样才能看到新位置  
m_pWndListBoxDlg->SetScrollPos(SB_VERT, 0, TRUE);
//更换窗口过程
pSubclassOldEditProc = (WNDPROC)::SetWindowLong(
      m_pWndListBoxDlg->GetSafeHwnd(), 
      GWL_WNDPROC,(DWORD)winProc);

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

当前名称：动态创建窗口,并重写窗口过程-创新互联
网页链接：http://myzitong.com/article/hchss.html