Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Und Teil 2...
Autor: effeff
Datum: 30.10.18 22:23
Private Sub LoadXML() Try dt1.ReadXml(XMLFile) Catch ex As Exception End Try If dt1.Rows.Count > 0 Then For Each r As DataRow In dt1.Rows AddControls(r("Aufgabe"), r("Datum"), r("Zeit")) Next End If End Sub Private Sub AddControls(ByVal TBText As String, ByVal dtText As String, ByVal ttText As String) id += 1 Dim gb As New GroupBox With gb .Name = "GB" & id .Size = New Size(724, 85) '.Location = New Point(12, 16 + 91 * (i - 1)) .Text = id .Visible = True End With FlowLayoutPanel1.Controls.Add(gb) Dim tb As New TextBox With tb .Name = "TB" & id .Size = New Size(345, 50) .Location = New Point(6, 19) .Multiline = True .Visible = True .Text = TBText End With gb.Controls.Add(tb) Dim dt As New DateTimePicker With dt .Name = "DT" & id .Size = New Size(189, 20) .Location = New Point(357, 19) .Visible = True .Text = dtText End With gb.Controls.Add(dt) Dim tt As New DateTimePicker With tt .Name = "TT" & id .Size = New Size(189, 20) .Location = New Point(357, 49) .Format = DateTimePickerFormat.Time .ShowUpDown = True .Visible = True .Text = ttText End With gb.Controls.Add(tt) Dim btn1 As New Button With btn1 .Name = "BTN1_" & id .Size = New Size(50, 50) .Location = New Point(552, 19) .Image = WindowsApplication1.My.Resources.Resources.apfel_1 .Visible = True End With gb.Controls.Add(btn1) AddHandler btn1.Click, AddressOf Me.BTN1_Click Dim btn2 As New Button With btn2 .Name = "BTN2_" & id .Size = New Size(50, 50) .Location = New Point(608, 19) .Image = WindowsApplication1.My.Resources.Resources.kanne_1 .Visible = True End With gb.Controls.Add(btn2) AddHandler btn2.Click, AddressOf Me.BTN2_Click Dim btn3 As New Button With btn3 .Name = "BTN2_" & id .Size = New Size(50, 50) .Location = New Point(664, 19) .Image = WindowsApplication1.My.Resources.Resources.miezi_1 .Visible = True End With gb.Controls.Add(btn3) AddHandler btn3.Click, AddressOf Me.BTN3_Click End Sub Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing If Speichern = True Then Dim res As DialogResult = MessageBox.Show("Möchten Sie die Änderungen speichern?", "Hinweis:", MessageBoxButtons.YesNo) If res = DialogResult.Yes Then WriteXML() End If End If End Sub End Class EALA FREYA FRESENA

wie wird das gemacht?	1.419	ERBRU	28.10.18 10:17
Re: wie wird das gemacht?	911	Kuno60	28.10.18 12:29
Re: wie wird das gemacht?	850	ERBRU	28.10.18 12:42
Re: wie wird das gemacht?	901	Manfred X	28.10.18 14:30
Re: wie wird das gemacht?	874	ERBRU	30.10.18 09:46
Re: wie wird das gemacht?	911	effeff	30.10.18 11:34
Re: wie wird das gemacht?	834	ERBRU	30.10.18 12:38
Re: wie wird das gemacht?	853	effeff	30.10.18 13:01
Re: wie wird das gemacht?	824	ERBRU	30.10.18 13:26
Re: wie wird das gemacht?	843	ERBRU	30.10.18 18:08
Re: wie wird das gemacht?	838	effeff	03.11.18 10:35
Re: wie wird das gemacht?	850	Franki	04.11.18 03:11
Re: wie wird das gemacht?	848	effeff	04.11.18 10:37
Re: wie wird das gemacht?	831	Kuno60	04.11.18 13:30
Re: wie wird das gemacht?	864	ERBRU	04.11.18 15:40
Re: wie wird das gemacht?	830	effeff	05.11.18 10:04
Re: wie wird das gemacht?	831	Franki	05.11.18 04:58
Re: wie wird das gemacht?	846	Franki	29.10.18 01:40
Re: wie wird das gemacht?	863	Franki	29.10.18 01:44
Re: wie wird das gemacht?	916	ERBRU	29.10.18 09:27
Re: wie wird das gemacht?	886	effeff	30.10.18 22:22
Das nächste Posting...	862	effeff	30.10.18 22:23
Und Teil 2...	841	effeff	30.10.18 22:23
Re: Und Teil 2...	873	ERBRU	04.11.18 12:48

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen