vb2012工具箱添加slider控件

⑴ 怎么用VB中的slider控件控制控件

VB可通过Slider控件的Scroll事件，获得Slider控件的Value 属性来控制某个控件的变化。

Scroll 事件（Slider 控件）

当单击控件或使用键盘命令移动 Slider 控件上的滑块时，该事件发生。

Value 属性

返回或设置对象的值。

以下是一段实现代码，控制Shape控件的宽高尺寸，在图片框上改变。

OptionExplicit
DimXAsLong,YAsLong
DimPoAsLong

PrivateSubForm_Load()
Picture1.ForeColor=vbRed
Slider1.Min=0
Slider1.Max=100
X=500:Y=500*Picture1.Height/Picture1.Width
Po=0
Shape1.BorderColor=vbWhite
Shape1.Top=10
Shape1.Left=10
Shape1.Height=Y
Shape1.Width=X
EndSub

PrivateSubSlider1_Scroll()
IfSlider1.Value>PoThen
X=X+Slider1.Value*3
Y=Y+Slider1.Value*3*Picture1.Height/Picture1.Width
Else
X=X-Slider1.Value*3
Y=Y-Slider1.Value*3*Picture1.Height/Picture1.Width
EndIf
Po=Slider1.Value
Shape1.Height=Y
Shape1.Width=X
EndSub

⑵ VB中如何调出Slider控件

菜单 -> 工程 -> 部件 -> 控件
选中 Microsoft Windows Common Controls 5.0 (SP2)

⑶ vb如何使用slider控件制作音量控制条(不是控制系统音量的)

用法如下： 主要要方法有： 1、设置、取得滑动范围： void SetRange( int nMin, int nMax, BOOL bRedraw = FALSE ); void GetRange( int& nMin, int& nMax ) const; 2、设置、取得按下左右箭头滑动间隔： int SetLineSize( int nSize ); int GetLineSize( ) const; 3、设置、取得按下PgUp、PgDown时滑动间隔： int SetPageSize( int nSize ); int GetPageSize( ) const; 4、设置、取得滑块位置： void SetPos( int nPos ); int GetPos( ) const; 5、设置滑动条刻度的频度： void SetTicFreq( int nFreq ); 实例： 在对话框中放一个Slider控件，添加相应的Ctrl型变量为m_slider。在对话框初始化函数OnInitDialog()中添加： BOOL CDlgSetup::OnInitDialog() { CDialog::OnInitDialog(); // TODO: Add extra initialization here m_slider.SetRang(0,100);//设置滑动范围 m_slider.SetTicFreq(10);//每10个单位画一刻度 return TRUE; // return TRUE unless you set the focus to a control // EXCEPTION: OCX Property Pages should return FALSE } Slider控件本身并没有响应滑动的消息函数，但可以通过主窗体的OnHScroll()响应。在类向导中为对话框添加WM_HSCROLL消息，在响应函数中添加： void CDlgSetup::OnHScroll(UINT nSBCode, UINT nPos, CScrollBar* pScrollBar) { // TODO: Add your message handler code here and/or call default CSliderCtrl *pSlidCtrl=(CSliderCtrl*)GetDlgItem(IDC_SLIDER1); m_int=pSlidCtrlHue->GetPos();//取得当前位置值 CDialog::OnHScroll(nSBCode, nPos, pScrollBar); } //m_int 即为当前滑块的值。

⑷ vb基础问题——vb中slider控件在哪,如何添加

工程->部件 在控件页中选项"Microsoft Windows Common Controls 5.0",点击确定,最后一个就是Slider 滑动条