Imports INI_FILE
Public Class Form1
Dim currentfile As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Open.ShowDialog = DialogResult.OK Then
currentfile = Open.FileName
statusl.Text = "File: " & currentfile
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim key, sez As String
key = key_find.Text
sez = sec_find.Text
Dim fr As New INI_FILE.Read
fr.initialize(currentfile)
If fr.key_exist(key) = sez Then
out.Text = "Valore della chiave: " & fr.Get_Value(sez, key)
End If
fr.destroy()
End Sub
End Class