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 滑動條