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

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

準備工作

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

添加控件

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

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

設置控件屬性

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

編寫控件代碼

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

窗體初始化事件

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

豎向滾動條滾動事件

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

橫向滾動條滾動事件

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

測試效果

運行程序，測試滾動條的效果。以下是滾動條滑塊初始狀態(tài)的效果圖：

(添加圖片)

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

(添加圖片)