_________________ Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
Scruby_ Tutorial Leser
Anmeldedatum: 27.08.2007 Beiträge: 27
Verfasst am: 14.12.2007, 16:33
Ein Programm von mir es erfordert, über eine Textbox ein Datetimepicker Steuerelement einzustellen. Hier der Snippet um das zu ermöglichen (ich habe ihn eben erstellt, kann sein, dass noch etwas fehlerhaft ist):
Steuerelemente: DateTimePicker1, Textbox1
DateTimePicker1 Datum formatieren (am besten in Formload schreiben):
Last but not least: Das Datum der Texbox1 in den DateTimePicker1 "eintragen":
Code:
If Mid(TextBox1.Text, 3, 1) <> "." Then
Dim temp As String = TextBox1.Text
TextBox1.Text = "0" & temp
End If
If Mid(TextBox2.Text, 6, 1) <> "." Then
Dim temp1 As String = Mid(TextBox1.Text, 1, 3)
Dim temp2 As String = Mid(TextBox1.Text, 4, 6)
TextBox1.Text = temp1 & "0" & temp2
End If
Dim year, month, day As Integer
day = Mid(TextBox1.Text, 1, 2)
month = Mid(TextBox1.Text, 4, 2)
year = Mid(TextBox1.Text, 7, 4)
DateTimePicker1.Value = New DateTime(year, month, day)
Erklärung:
Erst wird das Datum in das richtige Format gebracht (statt 1.1.2008 01.01.2008). Dann wird es in einzelne Teile zerlegt und durch diese wird der DateTimePicker eingestellt.
P.S.: Ich weiß, dass der Thread nicht mehr der neueste ist, aber ich wollte nicht noch einen extra-Thread für ein Snippet aufmachen _________________