1.创建控件
HWND hScrollBar = ::CreateWindow(
WC_SCROLLBAR, //控件类名
NULL, //窗口标题文本
WS_VISIBLE | WS_CHILD | SBS_TOPALIGN, //控件风格样式
10, 100, 200, 40, //控件显示位置坐标
m_hWnd, //父窗口句柄
(HMENU)IDC_SCROLLBAR1, //控件ID号
m_hInstance, //程序实例句柄
0); //附加数据
2.设置最小值和最大值(SBM_SETRANGE)
SendMessage(hScrollBar, SBM_SETRANGE, 0, 100);
- wParam: 为最小值
- lParam: 为最大值
3.设置滑块的位置(SBM_SETPOS)
SendMessage(hScrollBar, SBM_SETPOS, 1, TRUE);
- wParam: 为要设定的位置
- lParam: TRUE为是否刷新窗口,FALSE为不刷新
4.获得滑块当前位置(SBM_GETPOS)
int pos = SendMessage(hCtrl, SBM_GETPOS, 0, 0);
5.通知消息
水平通知消息(WM_HSCROLL)
垂直通知消息(WM_VSCROLL)
水平通知消息示例:
LRESULT MyDialog::OnhScroll(WPARAM wParam, LPARAM lParam)
{
int nSbCode = LOWORD(wParam); //获得控件通知消息码
HWND hCtrl = (HWND)lParam; //控件句柄
/*WORD lPos = HIWORD(wParam);*/只有拖动滑块时才有滑块当前位置信息
int pos = SendMessage(hCtrl, SBM_GETPOS, 0, 0); //获得当前滑块位置
switch (nSbCode)
{
case SB_LINELEFT: //点击左边按钮消息
pos-=5;
break;
case SB_LINERIGHT: //点击右边按钮消息
pos+=5;
break;
case SB_PAGELEFT: //点击滑块左边滚动条空白翻页消息
pos -= 20;
break;
case SB_PAGERIGHT: //点击滑块右边空白处为翻页消息
pos += 20;
break;
/*case SB_THUMBTRACK: //拖动滑块时消息
SendMessage(hCtrl, SBM_SETPOS, lPos, 1);
return true;*/
case SB_THUMBPOSITION: //拖动滑块放开消息
pos = HIWORD(wParam);
break;
}
SendMessage(hCtrl, SBM_SETPOS, pos, 1); //设置当前位置=pos,并重绘控件
CString str;
str.Format(TEXT("%d"), pos);
SetDlgItemText(IDC_STATIC1, str);
return LRESULT();
}