Dieser Beitrag wurde von ZiG verfasst! _________________
tr4st Überflieger
Anmeldedatum: 16.04.2008 Beiträge: 486
Verfasst am: 17.04.2008, 18:03
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<br /> Dim temp As String = TextBox1.Text<br /> TextBox1.Text = "0" & temp<br />End If<br />If Mid(TextBox2.Text, 6, 1) <> "." Then<br /> Dim temp1 As String = Mid(TextBox1.Text, 1, 3)<br /> Dim temp2 As String = Mid(TextBox1.Text, 4, 6)<br /> TextBox1.Text = temp1 & "0" & temp2<br />End If<br /><br />Dim year, month, day As Integer<br />day = Mid(TextBox1.Text, 1, 2)<br />month = Mid(TextBox1.Text, 4, 2)<br />year = Mid(TextBox1.Text, 7, 4)<br />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