迷你記賬系統製作：[12]歡迎介面的製作及彈出?

不知不覺間本期迷你記賬系統製作系列經驗已經來到了終結篇：詳解制作如下圖所示的歡迎介面及每次伴隨程式的啟動執行而自動彈出此歡迎介面功能的實現方法。

工具/原料

Excel2003

VBA

方法/步驟

ALT+F11開啟VBE編輯器，新建一個使用者窗體，名稱改為：歡迎使用，caption屬性改為：歡迎使用迷你記賬系統1.0版。其他屬性如圖示。

在窗體如圖示位置拖拉出4個標籤控制元件，caption屬性隨意設定。

利用控制元件工具箱上的影象控制元件拖拉出一個影象控制元件，利用屬性視窗上的Picture屬性邊上的下拉框點選匯入一張合適的圖片，效果如圖示。

拖拉出一個命令按鈕，caption屬性改為：幫助，名稱設為：CommandButton2。

拖拉出一個命令按鈕，caption屬性改為：關閉，名稱設為：CommandButton1。

將我們上一篇經驗介紹製作的幫助檔案放在迷你記賬系統程式同目錄下，然後在幫助按鈕上右鍵-檢視程式碼，在彈出的程式碼視窗輸入如下程式碼：

Private Sub CommandButton2_Click()

Dim f As String

f = ThisWorkbook.Path & "\迷你記賬系統幫助.chm"

Shell "hh.exe " & f, vbNormalFocus

End Sub

在關閉按鈕上右鍵-檢視程式碼，在彈出的程式碼視窗輸入如下程式碼：

Private Sub CommandButton1_Click()

Unload Me

End Sub

為了實現伴隨程式的啟動執行而自動彈出歡迎介面，可以在ThisWorkbook的程式碼視窗輸入如下程式碼：

Private Sub Workbook_Open()

歡迎使用.Show

End Sub

注意事項