有位朋友在百度知道上提問如何給Image控件加上滾動(dòng)條，經(jīng)過搜索發(fā)現(xiàn)沒有相關(guān)資料。為了幫助大家，我制作了一個(gè)滾動(dòng)條的例子，并附上詳細(xì)注釋。 準(zhǔn)備工作 首先，在網(wǎng)上找一張尺寸為1920*1080的圖

有位朋友在百度知道上提問如何給Image控件加上滾動(dòng)條，經(jīng)過搜索發(fā)現(xiàn)沒有相關(guān)資料。為了幫助大家，我制作了一個(gè)滾動(dòng)條的例子，并附上詳細(xì)注釋。

準(zhǔn)備工作

首先，在網(wǎng)上找一張尺寸為1920*1080的圖片作為演示。然后打開VBA，插入窗體，并調(diào)整合適的窗體大小。

添加控件

接下來，在窗體上添加以下控件：

• 一個(gè)Frame控件
• 在Frame控件內(nèi)部添加一個(gè)Image控件
• 在Frame控件右側(cè)添加一個(gè)ScrollBar控件，并將其命名為VScrollBar
• 在Frame控件下方添加一個(gè)ScrollBar控件，并將其命名為HScrollBar

設(shè)置控件屬性

設(shè)置Image控件的AutoSize屬性為True，然后選擇你要載入的圖片。

編寫控件代碼

以下是需要填寫的控件代碼：

窗體初始化事件

Private Sub UserForm_Initialize()
    ' 賦值豎向滾動(dòng)條最大值
      (Image1.Height - Frame1.Height) / 50
    ' 賦值橫向滾動(dòng)條最大值
      (Image1.Width - Frame1.Width) / 50
End Sub

豎向滾動(dòng)條滾動(dòng)事件

Private Sub VScrollBar_Scroll()
    ' 通過調(diào)整圖像控件的Top值來實(shí)現(xiàn)圖片滾動(dòng)
      0 -  * 50
End Sub

橫向滾動(dòng)條滾動(dòng)事件

Private Sub HScrollBar_Scroll()
    ' 通過調(diào)整圖像控件的Left值來實(shí)現(xiàn)圖片滾動(dòng)
    Image1.Left  0 -  * 50
End Sub

測(cè)試效果

運(yùn)行程序，測(cè)試滾動(dòng)條的效果。以下是滾動(dòng)條滑塊初始狀態(tài)的效果圖：

(添加圖片)

以下是滾動(dòng)條滑塊增大狀態(tài)的效果圖：

(添加圖片)