Planet Source Code Jumbo …e CD Visual Basic 1 to 7/1_2002.ISO/Data/Zips/CODE_UPLOAD1068810162000.psc/Modules/modMain.bas

BASIC Source File | 2000-10-16 | 5.3 KB | 140 lines

Attribute VB_Name = "modMain"
' ***********************************************
' * INI Viewer Engine Alpha                     *
' * Code by: Michael Heath                      *
' * Code Date: 15 Oct 2000                      *
' * Email:  [e-mail]                     *
' * -----------------------                     *
' *                                             *
' *                                             *
' * This code was designed to view ini files in *
' * A tree node enviroment.                     *
' *                                             *
' * The purpose of this code was to provide an  *
' * Easy example of using Tree Nodes in VB6.    *
' *                                             *
' * I believe that almost any new VBer will find*
' * This code useful and easy to use.           *
' *                                             *
' * The next revision of this code will enable  *
' * Users to not only view ini files but edit   *
' * Them from the GUI.                          *
' *                                             *
' * Please enjoy the code and send me your      *
' * Comments or suggestions at [e-mail]  *
' ***********************************************

' Notes:
'
' You will notice on frmMain there is an object called imgSmall
' This image list must be initiated with the tree node before
' It will work.  To do that, you would right click on the tree node
' And select properties.  On the image list combo box under the General
' Tab, choose the Image list available.
' In this example, you shouldn't have to do that.  This is a reference
' If you decide to use a tree node in the future.

' To keep my node structure in order, you will notice that I
' Declared 5 different nodes.  You will also notice that
' I set the node.tag of each according to what type of node it
' Is.  This will come in handy later on for identifying what
' Type of node is being selected.


Public nodRoot As Node ' Root Node - INI File Name
Public nodSec As Node ' Sections in INI File
Public nodKey As Node ' Key of INI File
Public nodValue As Node ' Value of Key
Public nodCurrentProj As Node

Public Sub GetIniInfo(strFile As String)
On Error GoTo IniErr
' First, we'll clear out the previous file on the node if
' There was one.
Set nodCurrentProj = nodRoot
frmMain.treMain.Nodes.Remove nodCurrentProj.Index
' Make the root node the name of the file
addRoot vFileName

Dim intG As Long
Dim strline As String
Dim strLeft As String
Dim strRight As String
    Open strFile For Input As #1
        Do While Not EOF(1)
            Line Input #1, strline
            strline = UCase(strline)
            strLeft = strline
            strRight = strline
                If Left(strline, 1) = "[" Then ' This is a Key in the INI file
                    strline = Right(strline, Len(strline) - 1)
                    strline = Left(strline, Len(strline) - 1)
                    addSec strline
                ElseIf InStr(strline, "=") Then
                    For intG = 1 To Len(strline)
                        strLeft = Left(strLeft, Len(strLeft) - 1)
                        If InStr(strLeft, "=") Then
                            ' Continue removing characters
                        Else
                            ' We have what we need, let's get out of the for/next loop
                            addKey strLeft
                            Exit For
                        End If
                    Next intG
                    For intG = 1 To Len(strline)
                        strRight = Right(strRight, Len(strRight) - 1)
                        If InStr(strRight, "=") Then
                            ' Continue removing characters
                        Else
                            addValue strRight
                            Exit For
                        End If
                    Next intG
                End If
    Loop
    Close #1
    nodRoot.Expanded = True
Exit Sub
IniErr:
' Error number 91 will happen when the program is first run
' This is because there is nothing on the nodes when it
' Starts up.
If Err.Number = 91 Then
    Resume Next
Else
    MsgBox "An unknown error has occured which will result in termination of this program." _
    & Chr(10) & Err.Number & Chr(10) & Err.Description, vbOKOnly + vbCritical, "Fatal Error"
    Unload frmMain
    Set frmMain = Nothing
    End
End If
End Sub


' ***************************************************
'Tree Node Code

Public Sub addRoot(strline As String)
  'Set up the root node as the CurrentFileName
  Set nodRoot = frmMain.treMain.Nodes.Add(, , "R", strline, 5)
  nodRoot.Tag = "Root"
End Sub
Public Sub addSec(strline As String)
' Adds the section of an INI to the treenode - ie [SAMPLE]
  Set nodSec = frmMain.treMain.Nodes.Add _
    (nodRoot, tvwChild, , strline, 4)
  nodSec.Tag = "Section"
End Sub
Public Sub addKey(strline As String)
  ' Adds the Key of an INI to the treenode ie Setting=
  Set nodKey = _
    frmMain.treMain.Nodes.Add _
    (nodSec, tvwChild, , strline, 2)
  nodKey.Tag = "Key"
End Sub
Public Sub addValue(strline As String)
' Adds the Value of the Key to treenode - ie Setting=1
  Set nodValue = frmMain.treMain.Nodes.Add(nodKey, tvwChild, , strline, 1)
  nodValue.Tag = "Value"
End Sub