如何從UserForm中的文本框中調用DateTimePicker

我在我的UserForm中創建了一個TextBox1。我點擊我要打開DateTimePicker控件選擇日期文本框中創建一個名爲如何從UserForm中的文本框中調用DateTimePicker

Sub TextBox1_Enter() End Sub

其中子，並選擇了日期後所選擇的日期應該是TextBox1.Value

我從MSCOMCT2.OCX

中的DateTimePicker我真的不知道如何調用控制;任何提示與代碼和一個很好的解釋任何人？

來源

2015-10-26 Stigh Aarstein

要麼把它添加到您的主要形式和顯示/隱藏它作爲需求，或將其添加到另一種形式，並顯示/隱藏。對於其他表單，您需要一個可以設置的公用文本框變量（或屬性），以便可以填充正確的控件。 – Rory

我不確定這是不是你正在尋找的，但你可以看看this。這是很好解釋。

來源

2015-10-26 17:45:45

對不起，我需要創建更多的窗體來顯示日曆視圖。我應該能夠從vba代碼中調用控件... –

我的目標是在表單啓動時有一個空的DatePicker，並被告知在單擊時使用文本框加載DTPicker。

但我發現這個解決方案，保持DTPicker值空的，因爲形式啓動

Private Sub DTPicker1_CloseUp() FormatDTPicker End Sub Private Sub DTPicker1_Format(ByVal CallbackField As String, FormattedString As String) If CallbackField = "X" Then FormattedString = "" End Sub Private Sub DTPicker1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal_ x As stdole.OLE_XPOS_PIXELS, ByValy As stdole.OLE_YPOS_PIXELS) With DTPicker1 If .Value = vbNull Then .Value = Now End If End With End Sub Private Sub UserForm_Initialize() DTPicker1.Value = vbNull FormatDTPicker End Sub Private Sub FormatDTPicker() With DTPicker1 If .Value = vbNull Then .Format = dtpCustom .CustomFormat = "X" Else .Format = dtpShortDate End If End With End Sub

http://www.mrexcel.com/forum/excel-questions/666685-dtpicker-value-null.html

來源

2015-10-26 20:32:46

如何從UserForm中的文本框中調用DateTimePicker

回答

相關問題