Visual Basic

Imports System.Diagnostics
Imports Nini.Config
Imports System.IO

Public Class CompanySetup
    '  Inherits System.Windows.Forms.Form
Public Shared fileBanner As String
Private sourc As IniConfigSource
Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click

        With bannerFile
            .CheckFileExists = True
            .ShowReadOnly = False
            .Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.gif;*.jpg"
            .FilterIndex = 2
            If .ShowDialog = DialogResult.OK Then
                bannerBox.Image = Image.FromFile(.FileName)
                fileBanner = bannerFile.FileName.ToString

            End If
        End With
    End Sub
     
      
sourc.Configs("General").Set("Imgpic", strimg)
     

sourc.Configs("General").Set("CoName", txtCoName.Text)
        sourc.Configs("General").Set("Imgpic", fileBanner)
        sourc.Configs("General").Set("Addr", txtAddr.Text)
        sourc.Configs("General").Set("Phone", txtPhone.Text)
        sourc.Configs("General").Set("Fax", txtFax.Text)
        sourc.Configs("General").Set("Email", txtEmail.Text)
        sourc.Configs("General").Set("Vat", txtVat.Text)
        sourc.Configs("General").Set("Btm1", txtBtm1.Text)
        sourc.Configs("General").Set("Btm2", txtBtm2.Text)
        sourc.Configs("General").Set("Btm3", txtBtm3.Text)
        sourc.Configs("General").Set("Btm4", txtBtm4.Text)


        sourc.Save()

Private Sub CompanySetup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Load the configuration source file
        sourc = New IniConfigSource("dvinv.ini")
        'sourc.CaseSensitive = False

        ' Set the config to the Logging section of the INI file.
        Dim config As IConfig
        config = sourc.Configs("General")

        ' Load up some normal configuration values
        txtCoName.Text = config.Get("CoName")
        fileBanner = config.Get("Imgpic")
        '  MsgBox(config.Get("Imgpic"))

        Try
            bannerBox.Image = Image.FromFile(fileBanner)
        Catch ex As Exception
        End Try
        txtAddr.Text = config.Get("Addr")
        txtPhone.Text = config.Get("Phone")
        txtFax.Text = config.Get("Fax")
        txtEmail.Text = config.Get("Email")
        txtVat.Text = config.Get("Vat")
        txtBtm1.Text = config.Get("Btm1")
        txtBtm2.Text = config.Get("Btm2")
        txtBtm3.Text = config.Get("Btm3")
        txtBtm4.Text = config.Get("Btm4")



    End Sub

Private Sub btnCal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCal.Click

'Variables
Dim StrArr() As String
Dim Str As String
Dim count As Integer
Dim lblStack() As Label
Dim i As Integer


    Str = txtInput.Text 'store string into variable
    StrArr = Str.Split(" ") 'use split to seperate words by space

    For count = 0 To StrArr.Length - 1
        'add user entered values to list box
        lstDisplay.Items.Add(StrArr(count))

    Next    'end for

    count = 0   'set counter back to 0

    For i = 0 To StrArr.Length - 1
        lblDis1.Text = StrArr(0) 'gets the first value from the array
        lblDis2.Text = StrArr(1) 'gets the second value from the array
        lblDis3.Text = StrArr(2) ' and so on and so on...........
        lblDis4.Text = StrArr(3)
        lblDis5.Text = StrArr(4)

    Next 'OKAY THIS IS WHERE I KNOW IF THE USER ENTER ONLY 3 VALUES IN THE TEXT BOX MY PROGRAM WOULD CRASH
         'BECAUSE THE ARRAY ONLY HAS 3 ITEMS BEING STORED IN (0)(1)AND (2) SO WHAT IS A BETTER WAY OF
         'DOING THIS LOOP AND SENDING OUT EACH ELEMENT TO THE LABELS.
End Sub