Question

在Hscroll下方用一label显示当前滚动条滑块的位置

label的caption是跟着滑块移动的。

Answer 1

scrollinfo
info;
info.cbsize
=
sizeof(scrollinfo);
info.fmask
=
sif_page;
info.npage
=
20;
//如果滚动条的max和min已设定好，那么这个数字越大滑块就越长。
m_dlg_scrool.setscrollinfo(
sb_horz,&info);

Answer 2

Private Sub HScroll1_Change()
' '滚动条的位置在label1与text里显示

Label1.Caption = HScroll1.Value
'label1的caption随着滑块移动
Label1.Left = 405 + HScroll1.Value * 150
Text1.Text = HScroll1.Value
End Sub