# VBA 寫信程式設計指南：使用UserForm打造美觀介面 ## 程式架構設計 首先建立一個完整的VBA寫信程式，包含UserForm介面和核心功能模組： ```vb ' 在主模組中啟動UserForm Sub ShowLetterForm() frmLetter.Show End Sub ``` ## UserForm介面設計 ### 表單佈局與控制項配置 ```vb ' UserForm初始化程式碼 Private Sub UserForm_Initialize() ' 設定表單基本屬性 Me.Caption = "專業信件編輯器" Me.Width = 600 Me.Height = 500 ' 初始化控制項 InitializeControls End Sub Private Sub InitializeControls() ' 標籤控制項 With Me.lblRecipient .Caption = "收件人：" .Left = 20 .Top = 20 .Width = 60 .Height = 18 End With ' 文字輸入框 With Me.txtRecipient .Left = 90 .Top = 20 .Width = 200 .Height = 20 End With End Sub ``` ### 完整控制項配置表 | 控制項類型 | 名稱 | 功能說明 | 位置座標 | |-----------|------|----------|----------| | TextBox | txtRecipient | 輸入收件人姓名 | (90,20) | | TextBox | txtSubject | 輸入信件主題 | (90,50) | | TextBox | txtContent | 輸入信件內容 | (20,100) | | ComboBox | cmbTemplate | 選擇信件模板 | (90,80) | | CommandButton | btnSend | 發送信件 | (400,400) | | CommandButton | btnPreview | 預覽信件 | (300,400) | ## 美觀介面設計技巧 ### 顏色與字型設定 ```vb Private Sub ApplyStyling() ' 設定表單背景色 Me.BackColor = RGB(240, 240, 240) ' 設定標題樣式 With Me.lblTitle .Caption = "專業信件編輯系統" .Font.Name = "微軟正黑體" .Font.Size = 14 .Font.Bold = True .ForeColor = RGB(0, 0, 139) End With ' 設定按鈕樣式 With Me.btnSend .Caption = "發送信件" .BackColor = RGB(0, 120, 215) .ForeColor = RGB(255, 255, 255) .Font.Bold = True End With End Sub ``` ### 佈局優化程式碼 ```vb Private Sub ArrangeControls() ' 使用Frame進行分組 With Me.fraRecipientInfo .Caption = "收件人資訊" .Left = 10 .Top = 10 .Width = 580 .Height = 80 End With ' 自動調整文字框大小 With Me.txtContent .MultiLine = True .ScrollBars = fmScrollBarsVertical .Width = 560 .Height = 200 End With End Sub ``` ## 核心功能實現 ### 信件發送功能 ```vb Private Sub btnSend_Click() ' 驗證輸入資料 If Not ValidateInputs Then MsgBox "請填寫所有必填欄