DateTimePickerからの値 (ID:142344)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Checked = False な状態を、空欄表記の代用にするというのは駄目でしょうか? Partial Public Class Form1 Private WithEvents TextBox1 As New TextBox() With {.Location = New Point(10, 10), .ReadOnly = True, .TabStop = False} Private WithEvents DateTimePicker1 As New DateTimePicker() With {.Location = New Point(10, 30), .ShowCheckBox = True} Sub Form1_Load() Handles MyBase.Load Controls.AddRange(New Control() {TextBox1, DateTimePicker1}) DateTimePicker1.Checked = False DateTimePicker1.Tag = DateTimePicker1.Value End Sub 'Sub Sample() Handles DateTimePicker1.ValueChanged ' Dim d As Date? = If(DateTimePicker1.Checked, DateTimePicker1.Value, Nothing) ' If Not Date?.Equals(d, DateTimePicker1.Tag) Then ' DateTimePicker1.Tag = d ' TextBox1.Text = If(DateTimePicker1.Checked, DateTimePicker1.Text, "") ' End If 'End Sub End Class