Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
INI Files Visualizer - Form1.vb

Form1.vb

Caricato da: Totem
Scarica il programma completo

  1. Imports INI_FILE
  2. Public Class Form1
  3.     Dim currentfile As String
  4.  
  5.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  6.         If Open.ShowDialog = DialogResult.OK Then
  7.             currentfile = Open.FileName
  8.             statusl.Text = "File: " & currentfile
  9.         End If
  10.     End Sub
  11.  
  12.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  13.         Dim key, sez As String
  14.         key = key_find.Text
  15.         sez = sec_find.Text
  16.         Dim fr As New INI_FILE.Read
  17.         fr.initialize(currentfile)
  18.         If fr.key_exist(key) = sez Then
  19.             out.Text = "Valore della chiave: " & fr.Get_Value(sez, key)
  20.         End If
  21.         fr.destroy()
  22.     End Sub
  23. End Class