🚀 go-pugleaf

De eerste keer dat ik me hier waag...

Ik heb 2 problemen waar ik echt niet meer uitkom...:( 

1. Ik heb een dataset in een datagrid geplaatst, alleen de kolommen
moeten automatisch aanpassen aan de breedte, dit lukt niet!

2. In de dataset (xml file die wordt opgehaald) staan tijden. Op die
tijden moet het programma opstarten, maar hoe weet de klok hoeveel
records die langs moet gaan??? Hoe weet ie bijvoorbeeld dat ie 100
records moet nakijken om daar de tijd uit te halen??

Ik hoop dat iemand hier een idee heeft, hieronder nog de code

-------------------------

Public Class Form1
    Inherits System.Windows.Forms.Form
    'Declareert de variabelen
    Dim lokatie_xml_file
    Dim dit As Boolean
    Dim controle
    Dim i As Integer
    Dim x As Byte
    Dim dataset As DataSet = New DataSet
    Dim row As DataRow
    Dim tabel As DataTable = New DataTable("record")
    Dim urenkolom As DataColumn = New DataColumn("Uren",
GetType(System.Byte))
    Dim minutenkolom As DataColumn = New DataColumn("Minuten",
GetType(System.String))
    Dim lokatiekolom As DataColumn = New DataColumn("Lokatie",
GetType(System.String))
    Dim id As DataColumn = New DataColumn("id", GetType(System.Int32))

#Region " Windows Form Designer generated code "

    Public Sub New()

        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form
Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents tiTimer As System.Windows.Forms.Timer
    Friend WithEvents Opslaan As System.Windows.Forms.Button
    Friend WithEvents Gegevens_ophalen As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
    Friend WithEvents Delete_button As System.Windows.Forms.Button
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents OK As System.Windows.Forms.Button

    <System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New
System.Resources.ResourceManager(GetType(Form1))
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Label3 = New System.Windows.Forms.Label
        Me.tiTimer = New System.Windows.Forms.Timer(Me.components)
        Me.Gegevens_ophalen = New System.Windows.Forms.Button
        Me.DataGrid1 = New System.Windows.Forms.DataGrid
        Me.Opslaan = New System.Windows.Forms.Button
        Me.Label1 = New System.Windows.Forms.Label
        Me.OK = New System.Windows.Forms.Button
        Me.Delete_button = New System.Windows.Forms.Button
        Me.Label2 = New System.Windows.Forms.Label
        Me.TextBox2 = New System.Windows.Forms.TextBox
        CType(Me.DataGrid1,
System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'TextBox1
        '
        Me.TextBox1.AccessibleDescription =
resources.GetString("TextBox1.AccessibleDescription")
        Me.TextBox1.AccessibleName =
resources.GetString("TextBox1.AccessibleName")
        Me.TextBox1.Anchor =
CType(resources.GetObject("TextBox1.Anchor"),
System.Windows.Forms.AnchorStyles)
        Me.TextBox1.AutoSize =
CType(resources.GetObject("TextBox1.AutoSize"), Boolean)
        Me.TextBox1.BackgroundImage =
CType(resources.GetObject("TextBox1.BackgroundImage"),
System.Drawing.Image)
        Me.TextBox1.Dock = CType(resources.GetObject("TextBox1.Dock"),
System.Windows.Forms.DockStyle)
        Me.TextBox1.Enabled =
CType(resources.GetObject("TextBox1.Enabled"), Boolean)
        Me.TextBox1.Font = CType(resources.GetObject("TextBox1.Font"),
System.Drawing.Font)
        Me.TextBox1.ImeMode =
CType(resources.GetObject("TextBox1.ImeMode"),
System.Windows.Forms.ImeMode)
        Me.TextBox1.Location =
CType(resources.GetObject("TextBox1.Location"), System.Drawing.Point)
        Me.TextBox1.MaxLength =
CType(resources.GetObject("TextBox1.MaxLength"), Integer)
        Me.TextBox1.Multiline =
CType(resources.GetObject("TextBox1.Multiline"), Boolean)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.PasswordChar =
CType(resources.GetObject("TextBox1.PasswordChar"), Char)
        Me.TextBox1.RightToLeft =
CType(resources.GetObject("TextBox1.RightToLeft"),
System.Windows.Forms.RightToLeft)
        Me.TextBox1.ScrollBars =
CType(resources.GetObject("TextBox1.ScrollBars"),
System.Windows.Forms.ScrollBars)
        Me.TextBox1.Size = CType(resources.GetObject("TextBox1.Size"),
System.Drawing.Size)
        Me.TextBox1.TabIndex =
CType(resources.GetObject("TextBox1.TabIndex"), Integer)
        Me.TextBox1.Text = resources.GetString("TextBox1.Text")
        Me.TextBox1.TextAlign =
CType(resources.GetObject("TextBox1.TextAlign"),
System.Windows.Forms.HorizontalAlignment)
        Me.TextBox1.Visible =
CType(resources.GetObject("TextBox1.Visible"), Boolean)
        Me.TextBox1.WordWrap =
CType(resources.GetObject("TextBox1.WordWrap"), Boolean)
        '
        'Label3
        '
        Me.Label3.AccessibleDescription =
resources.GetString("Label3.AccessibleDescription")
        Me.Label3.AccessibleName =
resources.GetString("Label3.AccessibleName")
        Me.Label3.Anchor = CType(resources.GetObject("Label3.Anchor"),
System.Windows.Forms.AnchorStyles)
        Me.Label3.AutoSize =
CType(resources.GetObject("Label3.AutoSize"), Boolean)
        Me.Label3.Dock = CType(resources.GetObject("Label3.Dock"),
System.Windows.Forms.DockStyle)
        Me.Label3.Enabled =
CType(resources.GetObject("Label3.Enabled"), Boolean)
        Me.Label3.Font = CType(resources.GetObject("Label3.Font"),
System.Drawing.Font)
        Me.Label3.Image = CType(resources.GetObject("Label3.Image"),
System.Drawing.Image)
        Me.Label3.ImageAlign =
CType(resources.GetObject("Label3.ImageAlign"),
System.Drawing.ContentAlignment)
        Me.Label3.ImageIndex =
CType(resources.GetObject("Label3.ImageIndex"), Integer)
        Me.Label3.ImeMode =
CType(resources.GetObject("Label3.ImeMode"),
System.Windows.Forms.ImeMode)
        Me.Label3.Location =
CType(resources.GetObject("Label3.Location"), System.Drawing.Point)
        Me.Label3.Name = "Label3"
        Me.Label3.RightToLeft =
CType(resources.GetObject("Label3.RightToLeft"),
System.Windows.Forms.RightToLeft)
        Me.Label3.Size = CType(resources.GetObject("Label3.Size"),
System.Drawing.Size)
        Me.Label3.TabIndex =
CType(resources.GetObject("Label3.TabIndex"), Integer)
        Me.Label3.Text = resources.GetString("Label3.Text")
        Me.Label3.TextAlign =
CType(resources.GetObject("Label3.TextAlign"),
System.Drawing.ContentAlignment)
        Me.Label3.Visible =
CType(resources.GetObject("Label3.Visible"), Boolean)
        '
        'tiTimer
        '
        Me.tiTimer.Enabled = True
        Me.tiTimer.Interval = 60000
        '
        'Gegevens_ophalen
        '
        Me.Gegevens_ophalen.AccessibleDescription =
resources.GetString("Gegevens_ophalen.AccessibleDescription")
        Me.Gegevens_ophalen.AccessibleName =
resources.GetString("Gegevens_ophalen.AccessibleName")
        Me.Gegevens_ophalen.Anchor =
CType(resources.GetObject("Gegevens_ophalen.Anchor"),
System.Windows.Forms.AnchorStyles)
        Me.Gegevens_ophalen.BackgroundImage =
CType(resources.GetObject("Gegevens_ophalen.BackgroundImage"),
System.Drawing.Image)
        Me.Gegevens_ophalen.Dock =
CType(resources.GetObject("Gegevens_ophalen.Dock"),
System.Windows.Forms.DockStyle)
        Me.Gegevens_ophalen.Enabled =
CType(resources.GetObject("Gegevens_ophalen.Enabled"), Boolean)
        Me.Gegevens_ophalen.FlatStyle =
CType(resources.GetObject("Gegevens_ophalen.FlatStyle"),
System.Windows.Forms.FlatStyle)
        Me.Gegevens_ophalen.Font =
CType(resources.GetObject("Gegevens_ophalen.Font"),
System.Drawing.Font)
        Me.Gegevens_ophalen.Image =
CType(resources.GetObject("Gegevens_ophalen.Image"),
System.Drawing.Image)
        Me.Gegevens_ophalen.ImageAlign =
CType(resources.GetObject("Gegevens_ophalen.ImageAlign"),
System.Drawing.ContentAlignment)
        Me.Gegevens_ophalen.ImageIndex =
CType(resources.GetObject("Gegevens_ophalen.ImageIndex"), Integer)
        Me.Gegevens_ophalen.ImeMode =
CType(resources.GetObject("Gegevens_ophalen.ImeMode"),
System.Windows.Forms.ImeMode)
        Me.Gegevens_ophalen.Location =
CType(resources.GetObject("Gegevens_ophalen.Location"),
System.Drawing.Point)
        Me.Gegevens_ophalen.Name = "Gegevens_ophalen"
        Me.Gegevens_ophalen.RightToLeft =
CType(resources.GetObject("Gegevens_ophalen.RightToLeft"),
System.Windows.Forms.RightToLeft)
        Me.Gegevens_ophalen.Size =
CType(resources.GetObject("Gegevens_ophalen.Size"),
System.Drawing.Size)
        Me.Gegevens_ophalen.TabIndex =
CType(resources.GetObject("Gegevens_ophalen.TabIndex"), Integer)
        Me.Gegevens_ophalen.Text =
resources.GetString("Gegevens_ophalen.Text")
        Me.Gegevens_ophalen.TextAlign =
CType(resources.GetObject("Gegevens_ophalen.TextAlign"),
System.Drawing.ContentAlignment)
        Me.Gegevens_ophalen.Visible =
CType(resources.GetObject("Gegevens_ophalen.Visible"), Boolean)
        '
        'DataGrid1
        '
        Me.DataGrid1.AccessibleDescription =
resources.GetString("DataGrid1.AccessibleDescription")
        Me.DataGrid1.AccessibleName =
resources.GetString("DataGrid1.AccessibleName")
        Me.DataGrid1.Anchor =
CType(resources.GetObject("DataGrid1.Anchor"),
System.Windows.Forms.AnchorStyles)
        Me.DataGrid1.BackgroundImage =
CType(resources.GetObject("DataGrid1.BackgroundImage"),
System.Drawing.Image)
        Me.DataGrid1.CaptionFont =
CType(resources.GetObject("DataGrid1.CaptionFont"),
System.Drawing.Font)
        Me.DataGrid1.CaptionText =
resources.GetString("DataGrid1.CaptionText")
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.Dock =
CType(resources.GetObject("DataGrid1.Dock"),
System.Windows.Forms.DockStyle)
        Me.DataGrid1.Enabled =
CType(resources.GetObject("DataGrid1.Enabled"), Boolean)
        Me.DataGrid1.Font =
CType(resources.GetObject("DataGrid1.Font"), System.Drawing.Font)
        Me.DataGrid1.HeaderForeColor =
System.Drawing.SystemColors.ControlText
        Me.DataGrid1.ImeMode =
CType(resources.GetObject("DataGrid1.ImeMode"),
System.Windows.Forms.ImeMode)
        Me.DataGrid1.Location =
CType(resources.GetObject("DataGrid1.Location"), System.Drawing.Point)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.PreferredColumnWidth = 100
        Me.DataGrid1.PreferredRowHeight = 10
        Me.DataGrid1.RightToLeft =
CType(resources.GetObject("DataGrid1.RightToLeft"),
System.Windows.Forms.RightToLeft)
        Me.DataGrid1.Size =
CType(resources.GetObject("DataGrid1.Size"), System.Drawing.Size)
        Me.DataGrid1.TabIndex =
CType(resources.GetObject("DataGrid1.TabIndex"), Integer)
        Me.DataGrid1.Visible =
CType(resources.GetObject("DataGrid1.Visible"), Boolean)
        '
        'Opslaan
        '
        Me.Opslaan.AccessibleDescription =
resources.GetString("Opslaan.AccessibleDescription")
        Me.Opslaan.AccessibleName =
resources.GetString("Opslaan.AccessibleName")
        Me.Opslaan.Anchor =
CType(resources.GetObject("Opslaan.Anchor"),
System.Windows.Forms.AnchorStyles)
        Me.Opslaan.BackgroundImage =
CType(resources.GetObject("Opslaan.BackgroundImage"),
System.Drawing.Image)
        Me.Opslaan.Dock = CType(resources.GetObject("Opslaan.Dock"),
System.Windows.Forms.DockStyle)
        Me.Opslaan.Enabled =
CType(resources.GetObject("Opslaan.Enabled"), Boolean)
        Me.Opslaan.FlatStyle =
CType(resources.GetObject("Opslaan.FlatStyle"),
System.Windows.Forms.FlatStyle)
        Me.Opslaan.Font = CType(resources.GetObject("Opslaan.Font"),
System.Drawing.Font)
        Me.Opslaan.Image = CType(resources.GetObject("Opslaan.Image"),
System.Drawing.Image)
        Me.Opslaan.ImageAlign =
CType(resources.GetObject("Opslaan.ImageAlign"),
System.Drawing.ContentAlignment)
        Me.Opslaan.ImageIndex =
CType(resources.GetObject("Opslaan.ImageIndex"), Integer)
        Me.Opslaan.ImeMode =
CType(resources.GetObject("Opslaan.ImeMode"),
System.Windows.Forms.ImeMode)
        Me.Opslaan.Location =
CType(resources.GetObject("Opslaan.Location"), System.Drawing.Point)
        Me.Opslaan.Name = "Opslaan"
        Me.Opslaan.RightToLeft =
CType(resources.GetObject("Opslaan.RightToLeft"),
System.Windows.Forms.RightToLeft)
        Me.Opslaan.Size = CType(resources.GetObject("Opslaan.Size"),
System.Drawing.Size)
        Me.Opslaan.TabIndex =
CType(resources.GetObject("Opslaan.TabIndex"), Integer)
        Me.Opslaan.Text = resources.GetString("Opslaan.Text")
        Me.Opslaan.TextAlign =
CType(resources.GetObject("Opslaan.TextAlign"),
System.Drawing.ContentAlignment)
        Me.Opslaan.Visible =
CType(resources.GetObject("Opslaan.Visible"), Boolean)
        '
        'Label1
        '
        Me.Label1.AccessibleDescription =
resources.GetString("Label1.AccessibleDescription")
        Me.Label1.AccessibleName =
resources.GetString("Label1.AccessibleName")
        Me.Label1.Anchor = CType(resources.GetObject("Label1.Anchor"),
System.Windows.Forms.AnchorStyles)
        Me.Label1.AutoSize =
CType(resources.GetObject("Label1.AutoSize"), Boolean)
        Me.Label1.Dock = CType(resources.GetObject("Label1.Dock"),
System.Windows.Forms.DockStyle)
        Me.Label1.Enabled =
CType(resources.GetObject("Label1.Enabled"), Boolean)
        Me.Label1.Font = CType(resources.GetObject("Label1.Font"),
System.Drawing.Font)
        Me.Label1.Image = CType(resources.GetObject("Label1.Image"),
System.Drawing.Image)
        Me.Label1.ImageAlign =
CType(resources.GetObject("Label1.ImageAlign"),
System.Drawing.ContentAlignment)
        Me.Label1.ImageIndex =
CType(resources.GetObject("Label1.ImageIndex"), Integer)
        Me.Label1.ImeMode =
CType(resources.GetObject("Label1.ImeMode"),
System.Windows.Forms.ImeMode)
        Me.Label1.Location =
CType(resources.GetObject("Label1.Location"), System.Drawing.Point)
        Me.Label1.Name = "Label1"
        Me.Label1.RightToLeft =
CType(resources.GetObject("Label1.RightToLeft"),
System.Windows.Forms.RightToLeft)
        Me.Label1.Size = CType(resources.GetObject("Label1.Size"),
System.Drawing.Size)
        Me.Label1.TabIndex =
CType(resources.GetObject("Label1.TabIndex"), Integer)
        Me.Label1.Text = resources.GetString("Label1.Text")
        Me.Label1.TextAlign =
CType(resources.GetObject("Label1.TextAlign"),
System.Drawing.ContentAlignment)
        Me.Label1.Visible =
CType(resources.GetObject("Label1.Visible"), Boolean)
        '
        'OK
        '
        Me.OK.AccessibleDescription =
resources.GetString("OK.AccessibleDescription")
        Me.OK.AccessibleName =
resources.GetString("OK.AccessibleName")
        Me.OK.Anchor = CType(resources.GetObject("OK.Anchor"),
System.Windows.Forms.AnchorStyles)
        Me.OK.BackgroundImage =
CType(resources.GetObject("OK.BackgroundImage"), System.Drawing.Image)
        Me.OK.Dock = CType(resources.GetObject("OK.Dock"),
System.Windows.Forms.DockStyle)
        Me.OK.Enabled = CType(resources.GetObject("OK.Enabled"),
Boolean)
        Me.OK.FlatStyle = CType(resources.GetObject("OK.FlatStyle"),
System.Windows.Forms.FlatStyle)
        Me.OK.Font = CType(resources.GetObject("OK.Font"),
System.Drawing.Font)
        Me.OK.Image = CType(resources.GetObject("OK.Image"),
System.Drawing.Image)
        Me.OK.ImageAlign = CType(resources.GetObject("OK.ImageAlign"),
System.Drawing.ContentAlignment)
        Me.OK.ImageIndex = CType(resources.GetObject("OK.ImageIndex"),
Integer)
        Me.OK.ImeMode = CType(resources.GetObject("OK.ImeMode"),
System.Windows.Forms.ImeMode)
        Me.OK.Location = CType(resources.GetObject("OK.Location"),
System.Drawing.Point)
        Me.OK.Name = "OK"
        Me.OK.RightToLeft =
CType(resources.GetObject("OK.RightToLeft"),
System.Windows.Forms.RightToLeft)
        Me.OK.Size = CType(resources.GetObject("OK.Size"),
System.Drawing.Size)
        Me.OK.TabIndex = CType(resources.GetObject("OK.TabIndex"),
Integer)
        Me.OK.Text = resources.GetString("OK.Text")
        Me.OK.TextAlign = CType(resources.GetObject("OK.TextAlign"),
System.Drawing.ContentAlignment)
        Me.OK.Visible = CType(resources.GetObject("OK.Visible"),
Boolean)
        '
        'Delete_button
        '
        Me.Delete_button.AccessibleDescription =
resources.GetString("Delete_button.AccessibleDescription")
        Me.Delete_button.AccessibleName =
resources.GetString("Delete_button.AccessibleName")
        Me.Delete_button.Anchor =
CType(resources.GetObject("Delete_button.Anchor"),
System.Windows.Forms.AnchorStyles)
        Me.Delete_button.BackgroundImage =
CType(resources.GetObject("Delete_button.BackgroundImage"),
System.Drawing.Image)
        Me.Delete_button.Dock =
CType(resources.GetObject("Delete_button.Dock"),
System.Windows.Forms.DockStyle)
        Me.Delete_button.Enabled =
CType(resources.GetObject("Delete_button.Enabled"), Boolean)
        Me.Delete_button.FlatStyle =
CType(resources.GetObject("Delete_button.FlatStyle"),
System.Windows.Forms.FlatStyle)
        Me.Delete_button.Font =
CType(resources.GetObject("Delete_button.Font"), System.Drawing.Font)
        Me.Delete_button.Image =
CType(resources.GetObject("Delete_button.Image"),
System.Drawing.Image)
        Me.Delete_button.ImageAlign =
CType(resources.GetObject("Delete_button.ImageAlign"),
System.Drawing.ContentAlignment)
        Me.Delete_button.ImageIndex =
CType(resources.GetObject("Delete_button.ImageIndex"), Integer)
        Me.Delete_button.ImeMode =
CType(resources.GetObject("Delete_button.ImeMode"),
System.Windows.Forms.ImeMode)
        Me.Delete_button.Location =
CType(resources.GetObject("Delete_button.Location"),
System.Drawing.Point)
        Me.Delete_button.Name = "Delete_button"
        Me.Delete_button.RightToLeft =
CType(resources.GetObject("Delete_button.RightToLeft"),
System.Windows.Forms.RightToLeft)
        Me.Delete_button.Size =
CType(resources.GetObject("Delete_button.Size"), System.Drawing.Size)
        Me.Delete_button.TabIndex =
CType(resources.GetObject("Delete_button.TabIndex"), Integer)
        Me.Delete_button.Text =
resources.GetString("Delete_button.Text")
        Me.Delete_button.TextAlign =
CType(resources.GetObject("Delete_button.TextAlign"),
System.Drawing.ContentAlignment)
        Me.Delete_button.Visible =
CType(resources.GetObject("Delete_button.Visible"), Boolean)
        '
        'Label2
        '
        Me.Label2.AccessibleDescription =
resources.GetString("Label2.AccessibleDescription")
        Me.Label2.AccessibleName =
resources.GetString("Label2.AccessibleName")
        Me.Label2.Anchor = CType(resources.GetObject("Label2.Anchor"),
System.Windows.Forms.AnchorStyles)
        Me.Label2.AutoSize =
CType(resources.GetObject("Label2.AutoSize"), Boolean)
        Me.Label2.Dock = CType(resources.GetObject("Label2.Dock"),
System.Windows.Forms.DockStyle)
        Me.Label2.Enabled =
CType(resources.GetObject("Label2.Enabled"), Boolean)
        Me.Label2.Font = CType(resources.GetObject("Label2.Font"),
System.Drawing.Font)
        Me.Label2.Image = CType(resources.GetObject("Label2.Image"),
System.Drawing.Image)
        Me.Label2.ImageAlign =
CType(resources.GetObject("Label2.ImageAlign"),
System.Drawing.ContentAlignment)
        Me.Label2.ImageIndex =
CType(resources.GetObject("Label2.ImageIndex"), Integer)
        Me.Label2.ImeMode =
CType(resources.GetObject("Label2.ImeMode"),
System.Windows.Forms.ImeMode)
        Me.Label2.Location =
CType(resources.GetObject("Label2.Location"), System.Drawing.Point)
        Me.Label2.Name = "Label2"
        Me.Label2.RightToLeft =
CType(resources.GetObject("Label2.RightToLeft"),
System.Windows.Forms.RightToLeft)
        Me.Label2.Size = CType(resources.GetObject("Label2.Size"),
System.Drawing.Size)
        Me.Label2.TabIndex =
CType(resources.GetObject("Label2.TabIndex"), Integer)
        Me.Label2.Text = resources.GetString("Label2.Text")
        Me.Label2.TextAlign =
CType(resources.GetObject("Label2.TextAlign"),
System.Drawing.ContentAlignment)
        Me.Label2.Visible =
CType(resources.GetObject("Label2.Visible"), Boolean)
        '
        'TextBox2
        '
        Me.TextBox2.AccessibleDescription =
resources.GetString("TextBox2.AccessibleDescription")
        Me.TextBox2.AccessibleName =
resources.GetString("TextBox2.AccessibleName")
        Me.TextBox2.Anchor =
CType(resources.GetObject("TextBox2.Anchor"),
System.Windows.Forms.AnchorStyles)
        Me.TextBox2.AutoSize =
CType(resources.GetObject("TextBox2.AutoSize"), Boolean)
        Me.TextBox2.BackgroundImage =
CType(resources.GetObject("TextBox2.BackgroundImage"),
System.Drawing.Image)
        Me.TextBox2.Dock = CType(resources.GetObject("TextBox2.Dock"),
System.Windows.Forms.DockStyle)
        Me.TextBox2.Enabled =
CType(resources.GetObject("TextBox2.Enabled"), Boolean)
        Me.TextBox2.Font = CType(resources.GetObject("TextBox2.Font"),
System.Drawing.Font)
        Me.TextBox2.ImeMode =
CType(resources.GetObject("TextBox2.ImeMode"),
System.Windows.Forms.ImeMode)
        Me.TextBox2.Location =
CType(resources.GetObject("TextBox2.Location"), System.Drawing.Point)
        Me.TextBox2.MaxLength =
CType(resources.GetObject("TextBox2.MaxLength"), Integer)
        Me.TextBox2.Multiline =
CType(resources.GetObject("TextBox2.Multiline"), Boolean)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.PasswordChar =
CType(resources.GetObject("TextBox2.PasswordChar"), Char)
        Me.TextBox2.RightToLeft =
CType(resources.GetObject("TextBox2.RightToLeft"),
System.Windows.Forms.RightToLeft)
        Me.TextBox2.ScrollBars =
CType(resources.GetObject("TextBox2.ScrollBars"),
System.Windows.Forms.ScrollBars)
        Me.TextBox2.Size = CType(resources.GetObject("TextBox2.Size"),
System.Drawing.Size)
        Me.TextBox2.TabIndex =
CType(resources.GetObject("TextBox2.TabIndex"), Integer)
        Me.TextBox2.Text = resources.GetString("TextBox2.Text")
        Me.TextBox2.TextAlign =
CType(resources.GetObject("TextBox2.TextAlign"),
System.Windows.Forms.HorizontalAlignment)
        Me.TextBox2.Visible =
CType(resources.GetObject("TextBox2.Visible"), Boolean)
        Me.TextBox2.WordWrap =
CType(resources.GetObject("TextBox2.WordWrap"), Boolean)
        '
        'Form1
        '
        Me.AccessibleDescription =
resources.GetString("$this.AccessibleDescription")
        Me.AccessibleName =
resources.GetString("$this.AccessibleName")
        Me.AutoScaleBaseSize =
CType(resources.GetObject("$this.AutoScaleBaseSize"),
System.Drawing.Size)
        Me.AutoScroll = CType(resources.GetObject("$this.AutoScroll"),
Boolean)
        Me.AutoScrollMargin =
CType(resources.GetObject("$this.AutoScrollMargin"),
System.Drawing.Size)
        Me.AutoScrollMinSize =
CType(resources.GetObject("$this.AutoScrollMinSize"),
System.Drawing.Size)
        Me.BackgroundImage =
CType(resources.GetObject("$this.BackgroundImage"),
System.Drawing.Image)
        Me.ClientSize = CType(resources.GetObject("$this.ClientSize"),
System.Drawing.Size)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Delete_button)
        Me.Controls.Add(Me.OK)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Opslaan)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Gegevens_ophalen)
        Me.Controls.Add(Me.Label3)
        Me.Enabled = CType(resources.GetObject("$this.Enabled"),
Boolean)
        Me.Font = CType(resources.GetObject("$this.Font"),
System.Drawing.Font)
        Me.Icon = CType(resources.GetObject("$this.Icon"),
System.Drawing.Icon)
        Me.ImeMode = CType(resources.GetObject("$this.ImeMode"),
System.Windows.Forms.ImeMode)
        Me.Location = CType(resources.GetObject("$this.Location"),
System.Drawing.Point)
        Me.MaximizeBox = False
        Me.MaximumSize =
CType(resources.GetObject("$this.MaximumSize"), System.Drawing.Size)
        Me.MinimizeBox = False
        Me.MinimumSize =
CType(resources.GetObject("$this.MinimumSize"), System.Drawing.Size)
        Me.Name = "Form1"
        Me.RightToLeft =
CType(resources.GetObject("$this.RightToLeft"),
System.Windows.Forms.RightToLeft)
        Me.ShowInTaskbar = False
        Me.StartPosition =
CType(resources.GetObject("$this.StartPosition"),
System.Windows.Forms.FormStartPosition)
        Me.Text = resources.GetString("$this.Text")
        CType(Me.DataGrid1,
System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

        id.AutoIncrement = True
        Dim primarykey As DataColumn() = New DataColumn() {id}
        tabel.Columns.Add(id)
        tabel.Columns.Add(urenkolom)
        tabel.Columns.Add(minutenkolom)
        tabel.Columns.Add(lokatiekolom)
        dataset.Tables.Add(tabel)

    End Sub
    ' Hier wordt het programma daadwerkelijk gestart
    Function start_programma()
        Dim ProcID As Integer
        'start het programma
        ProcID = Shell(DataGrid1((x), 3), AppWinStyle.NormalFocus)
        AppActivate(ProcID)
    End Function

    Private Sub Opslaan_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Opslaan.Click
        ' Hier wordt gecontroleerd of de ID is ingevuld, deze functie
kan opgeheven worden als de andere controle op de records werkt
        If TextBox1.Text = "" Then
            MessageBox.Show("U moet het aantal records invullen!")
        Else
            lokatie_xml_file = TextBox2.Text
            controle = TextBox1.Text
            dataset.WriteXml(lokatie_xml_file)
            TextBox1.Text = ""
            nagaan_records()
        End If
    End Sub

    ' Hiermee wordt de xml file opgehaald en in de  datagrid gezet
    Private Sub Gegevens_ophalen_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Gegevens_ophalen.Click
        Dim lokatie_xml_file
        lokatie_xml_file = TextBox2.Text
        'Hier gaat hij het xml bestand openen 
        dataset.ReadXml(lokatie_xml_file)
        'Hier wordt de xml aan de dataset gekoppeld
        DataGrid1.SetDataBinding(dataset, "Record")
        'Hier wordt de dataset in de datagrid gezet
        DataGrid1.DataSource = dataset

    End Sub
    ' Hiermee moeten de kolommen aangepast worden maar hoe????!!!
    Public Sub AutoSizeCol(ByVal col As Integer)

        Dim width As Single
        width = 0
        Dim numRows As Integer
        If (x = 0 Or 1) Then
            numRows = CType(DataGrid1.DataSource.tables(x),
DataTable).Rows.Count
            Dim g As Graphics
            g = Graphics.FromHwnd(DataGrid1.Handle)
            Dim sf As StringFormat
            sf = New StringFormat(StringFormat.GenericTypographic)
            Dim size As SizeF
            Dim i As Integer
            i = 0
            Do While (i < numRows)
                size = g.MeasureString(DataGrid1(i, col).ToString,
DataGrid1.Font, 500, sf)
                If (size.Width > width) Then
                    width = size.Width
                End If
                i = (i + 1)
            Loop
            g.Dispose()
            DataGrid1.TableStyles("record").GridColumnStyles(col).Width
= CType(width, Integer)
        End If
    End Sub
    ' Dit is de timer, die bepaalt wanneer programma gestart wordt
    Private Sub tiTimer_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles tiTimer.Tick
        If dit = True Then
            x = 0
            For x = 0 To (controle)
                If DataGrid1((x), 1) = Hour(Now()) And DataGrid1((x),
2) = Minute(Now()) Then
                    start_programma()
                End If
            Next x
        End If
    End Sub
    'Zorgt ervoor dat een record verwijdert kan worden
    Private Sub Delete_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Delete_button.Click
        Dim intIndex As Integer = DataGrid1.CurrentRowIndex
        tabel.Rows.RemoveAt(intIndex)
        tabel.AcceptChanges()
        DataGrid1.Update()
    End Sub
    'DEZE FUNCTIE MOET DE RECORD ID GAAN BEPALEN, ZODAT DE TIJD WEET
HOEVEEL RECORDS DIE LANGS MOET
    Function nagaan_records()
        For i = 0 To 200
            If tabel.Columns.IndexOf(1) = "Null" Then
                controle = i - 1
            End If

        Next i
    End Function

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles OK.Click
        dit = True
    End Sub


    
End Class