Question

我在从文本文件加载DateTimePicker的值时遇到问题。以下代码将以.txt格式将值保存到HH:mm:ss文件，因为我只需要时间值，而不是日期。

尝试加载.txt文件中的值时，我在以下行收到错误：

（dtp = DateTimePicker）

dtp371.Value = prop(1)

dtp300.Value = prop(1)

依旧......

这是错误：

Value of '1/01/0001 17:15:00' is not valid for 'Value'. 'Value' should be between 'MinDate' and 'MaxDate'.
Parameter name: Value

为什么要将1/01/0001添加到值中？只有时间保存在.txt文件中。

Private Sub DeadlinesOpslaan()
        Dim Opslaan As StreamWriter

        Opslaan = New StreamWriter("Y:\Jordy Steyaert\Routebord data\Packing 10-zone\deadlines.txt", False)

        Opslaan.WriteLine(dtp371.Name & "|" & dtp371.Value.ToString("HH:mm:ss"))
        Opslaan.WriteLine(dtp300.Name & "|" & dtp300.Value.ToString("HH:mm:ss"))
        Opslaan.WriteLine(dtp114.Name & "|" & dtp114.Value.ToString("HH:mm:ss"))
        Opslaan.WriteLine(dtp115.Name & "|" & dtp115.Value.ToString("HH:mm:ss"))
        Opslaan.WriteLine(dtp113.Name & "|" & dtp113.Value.ToString("HH:mm:ss"))

        Opslaan.Flush()
        Opslaan.Close()
    End Sub

    Private Sub DeadlinesLaden()
        Dim Laden As StreamReader
        Dim prop(5) As String

        If File.Exists("Y:\Jordy Steyaert\Routebord data\Packing 10-zone\deadlines.txt") Then
            Laden = New StreamReader("Y:\Jordy Steyaert\Routebord data\Packing 10-zone\deadlines.txt", False)
            Do Until Laden.EndOfStream
                prop = Laden.ReadLine().Split("|")

                If String.Equals(prop(0), dtp371.Name) Then
                    dtp371.Value = prop(1) ' ERROR HERE
                End If
                If String.Equals(prop(0), dtp300.Name) Then
                    dtp300.Value = prop(1) ' ERROR HERE
                End If
                If String.Equals(prop(0), dtp114.Name) Then
                    dtp114.Value = prop(1) ' ERROR HERE
                End If 
                If String.Equals(prop(0), dtp115.Name) Then
                    dtp115.Value = prop(1) ' ERROR HERE
                End If
                If String.Equals(prop(0), dtp113.Name) Then
                    dtp113.Value = prop(1) ' ERROR HERE
                End If

            Loop
            Laden.Close()
        End If
    End Sub

代码中的一些单词是荷兰语，但它们并不重要。

从textfile加载DateTimePicker的值时出错

0 个答案: