|
| |
VB.NET - Fortgeschrittene| Das nächste Posting... | |  | | Autor: effeff | | Datum: 30.10.18 22:23 |
| m.ComponentModel
Public Class Form1
Dim Speichern As Boolean = False
Dim dt1 As New DataTable
Dim id As Integer = 0
Dim XMLPath As String = ""
Dim XMLFile As String = ""
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
AddControls("", "", "")
Speichern = True
End Sub
Private Sub BTN1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim btn As Button = sender
MessageBox.Show("Button " & btn.Name)
End Sub
Private Sub BTN2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim btn As Button = sender
MessageBox.Show("Button " & btn.Name)
End Sub
Private Sub BTN3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim btn As Button = sender
'MessageBox.Show("Button " & btn.Name & " " & btn.Parent.Name)
FlowLayoutPanel1.Controls.Remove(btn.Parent)
Speichern = True
End Sub
Private Sub dt1Initialisieren()
With dt1
With dt1
Dim IDCol As DataColumn = dt1.Columns.Add("ID", Type.GetType("System.Int32"))
IDCol.AllowDBNull = False
IDCol.Unique = True
IDCol.AutoIncrement = True
.Columns.Add("Aufgabe", Type.GetType("System.String"))
.Columns.Add("Datum", Type.GetType("System.String"))
.Columns.Add("Zeit", Type.GetType("System.String"))
.TableName = "Aufgaben"
End With
End With
Dim primaryKey(1) As DataColumn
primaryKey(1) = dt1.Columns("ID")
dt1.PrimaryKey = primaryKey
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
XMLPath = System.IO.Path.Combine(Environment.GetEnvironmentVariable("appdata"), "Aufgaben")
If Not System.IO.Directory.Exists(XMLPath) Then
System.IO.Directory.CreateDirectory(XMLPath)
End If
XMLFile = System.IO.Path.Combine(XMLPath, "Aufgaben.xml")
dt1Initialisieren()
LoadXML()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
WriteXML()
End Sub
Private Sub WriteXML()
If dt1.Rows.Count > 0 Then
dt1.Clear()
End If
Dim cName As String = ""
Dim tbName As String = ""
Dim dtName As String = ""
Dim ttName As String = ""
For Each ctrl As Control In FlowLayoutPanel1.Controls
If TypeOf (ctrl) Is GroupBox Then
cName = ctrl.Name
tbName = cName.Replace("GB", "TB")
dtName = cName.Replace("GB", "DT")
ttName = cName.Replace("GB", "TT")
Dim newRow As DataRow = dt1.NewRow
newRow("Aufgabe") = ctrl.Controls(tbName).Text
newRow("Datum") = ctrl.Controls(dtName).Text
newRow("Zeit") = ctrl.Controls(ttName).Text
dt1.Rows.Add(newRow)
'MessageBox.Show(ctrl.Controls(tbName).Text & "/" & ctrl.Controls(dtName).Text & "/" & ctrl.Controls(ttName).Text)
End If
Next
dt1.WriteXml(XMLFile)
Speichern = False
End Sub
Teil 2 folgt nach!
EALA FREYA FRESENA | |
 | 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 |
 |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
April 2024
Sie sind aktuell nicht angemeldet.
