您的位置:首頁>正文

VBA|使用表單控制項04:顯示圖片的圖像控制項

在一些資訊管理資訊中, 有時需要在使用者表單中顯示圖像。 這時可使用VBA提供的“圖像”控制項。 使用圖像控制項可剪裁圖片、調整圖片大小或縮放圖片, 但不能編輯圖片的內容。

標籤控制項也可以顯示圖片, 但標籤不支援對圖片的剪裁、調整大小或縮放操作。

與標籤控制項用來顯示提示文字類似, 圖像控制項一般也用來顯示圖片。 圖像控制項也支援很多事件, 常用的為按一下事件和按兩下事件, 可回應使用者對圖像控制項的按一下或按兩下操作。

下面以一個“首次出現的歡迎視窗”為例為說明圖像視窗的使用。

1 插入表單和控制項控制項類型名稱CaptionPicture表單frmSplashSplash表單/標籤Label1歡迎進入本系統/圖像Image1
1.jpg2 編寫表單代碼

Private Sub UserForm_Activate()

Application.OnTime Now + TimeValue("00:00:05"), "CloseSplash"

End Sub

Private Sub Image1_Click()

Unload Me

End Sub

3 在一個新模組中編寫卸載表單的代碼

Public Sub CloseSplash()

Unload frmSplash

End Sub

4 編寫工作簿事件代碼

Private Sub Workbook_Open()

frmSplash.Show

End Sub

當工作簿打開時, 即可顯示定義的歡迎視窗, 5秒或按一下後退出此表單:

-End-

同類文章
Next Article
喜欢就按个赞吧!!!
点击关闭提示