VB6中的Dtpicker

Question

我可以使用以下代碼格式化dtpicker。

Private Sub Form_Load()
 DTPicker1.Format = dtpCustom
 DTPicker1.CustomFormat = "yyyy/MM/dd"
 DTPicker1.Value = Format(Date, "yyyy/MM/dd")
 End Sub

使用以下代碼獲取dtpicker值后

 Private Sub Command1_Click()
    Label34.Caption = DTPicker1.Value
    End Sub

但是結果的格式不像dtpicker顯示的值那樣。

Dtpicker value : 2015/05/26

Label34 Value  : 05/26/2015

如何糾正這個問題...？

Answer 1

在為標簽分配值時，使用格式功能（與DatePicker相同）：

Private Sub Command1_Click()
    Label34.Caption = Format(DTPicker1.Value, "yyyy/MM/dd")
End Sub

甚至更好的是，從DatePicker獲取格式：

Private Sub Command1_Click()
    Label34.Caption = Format(DTPicker1.Value, DTPicker1.CustomFormat)
End Sub

我不記得了，但是DatePicker可能有一個屬性，可將其值設置為文本（格式正確）。