当用户按下按钮时，如何显示 DateTimePicker 对话框（无需将控件添加到表单）

Question

我试图做到这一点，以便当用户按下按钮时，会显示一个 DateTimePicker 对话框，我什至想获得他们选择的结果日期。到目前为止，这是我所得到的：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Dis As System.Windows.Forms.DateTimePicker = New System.Windows.Forms.DateTimePicker()

    ' Set the MinDate and MaxDate.
    Dis.MinDate = New DateTime(1985, 6, 20)
    Dis.MaxDate = DateTime.Today

    ' Set the CustomFormat string.
    Dis.CustomFormat = "MMMM dd, yyyy - dddd"
    Dis.Format = Windows.Forms.DateTimePickerFormat.Custom

    ' Show the CheckBox and display the control as an up-down control.
    Dis.ShowCheckBox = True
    Dis.ShowUpDown = True

    Dis.Show()

End Sub

但是当我按下按钮并运行代码时，没有任何显示。我认为应该有一种方法可以简单地以编程方式显示此对话框。有人可以帮我吗？ :-)

仅供参考，我正在 VB 2010 中进行编码，这是否有帮助？ :-\

Answer 1

在 vb.net 中，DateTimePicker 不是像 OpenFileDialog、SaveFileDialog、PrintDialog 或其他类似对话框那样的对话框。

尽管其外观为“弹出”，但 DateTimePicker 是一个控件对象，因此必须将其放置（添加到）表单或窗口上，然后才能显示和使用。

Answer 2

我最终要做的是制作一个按钮，它会打开一个单独的表单，我将其看起来像一个对话框，并在上面放置了一个 DateTimePicker。这是我能想到的最好的解决方法。

Answer 3

将表单添加到您的项目中，并将其设置为日历或日期选择器控件的大小。我使用了日历：

Public Class frmDatePicker
    Private _Selected As Date
    Public Property Selected As Date
        Get
            Return _Selected
        End Get
        Set(value As Date)
            _Selected = value
        End Set
    End Property


Private Sub calPickDate_DateChanged(sender As Object, e As DateRangeEventArgs) Handles calPickDate.DateChanged
    Selected = calPickDate.SelectionStart

End Sub    
End Class

使用它：

Dim varDate As String = ""
Dim frm As frmDatePicker = New frmDatePicker()
frm.ShowDialog()
varDate = frm.Selected.ToString()

frm.Dispose()
'Do something with varDate