VB6 限制文本框僅允許輸入日期：使用 DateTimePicker 控件替代方案

VB6 原生 TextBox 無法直接限制輸入格式，實現「只允許輸入日期」的最佳實踐是使用 DateTimePicker (DTPicker) 控件，或通過 KeyPress 事件過濾輸入。本文給出兩種方案。

方案一：使用 DateTimePicker 控件（推薦）

1. 項目 → 組件 → 勾選 Microsoft Windows Common Controls-2 6.0。
2. 工具箱出現 DTPicker 圖標，拖放到窗體。
3. 屬性設置：
   • Format = dtpCustom
   • CustomFormat = "yyyy-MM-dd"（或 "yyyy/MM/dd"）
   • UpDown = True（顯示微調箭頭，禁止手動輸入）
4. 取值：Dim dt As Date: dt = DTPicker1.Value。

方案二：TextBox + KeyPress 過濾（僅作演示）

Private Sub Text1_KeyPress(KeyAscii As Integer)
    ' 允許數字、Backspace、刪除鍵、分隔符
    If KeyAscii <> 8 And KeyAscii <> 46 Then
        If KeyAscii < 48 Or KeyAscii > 57 Then
            If KeyAscii <> 45 And KeyAscii <> 47 Then ' - 或 /
                KeyAscii = 0 ' 屏蔽
            End If
        End If
    End If
End Sub

Private Sub Text1_LostFocus()
    ' 失去焦點時驗證完整日期格式
    If Not IsDate(Text1.Text) Then
        MsgBox "日期格式錯誤，請輸入 yyyy-MM-dd"
        Text1.SetFocus
    End If
End Sub

方案對比

最佳實踐建議

• 新項目首選 DateTimePicker，避免重複造輪子。
• 舊項目若不想引入 OCX，可封裝一個 DateTextBox 用戶控件，內部組合 TextBox + 月曆彈窗。
• 數據庫存儲建議用 Date 類型，避免字符串格式不一致。

使用標準日期控件，能從源頭消除格式驗證的煩惱。