掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.