Imports System.IO
Public Class Form4
Private mData() As String
Private mFileName As String
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Reader As New StreamReader(Application.StartupPath & "\Data\Accounts.sun")
Dim AccountText As String = Reader.ReadToEnd
Reader.Close()
Dim AccountData() As String = AccountText.Split(New Char() {"|"})
mData = AccountText.Split("|")
For i As Integer = 1 To AccountData.Length - 1
AccountsList.Items.Add(AccountData(i))
Next
End Sub
Private Sub KryptonButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton1.Click
Dim FileName As String
FileName = AccountsList.SelectedItem.ToString
Dim monReader As New IO.StreamReader(FileName & ".sun")
Dim formbot As New Form1
formbot.MdiParent = form2
formbot.Show() 'ouverture de la form
NewInAppWindow.NdC.Text = FileName
NewInAppWindow.MdP.Text = mData(2)
NewInAppWindow.Text = FileName
Me.Close()
End Sub
Private Sub AccountsList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AccountsList.SelectedIndexChanged
Try
Dim Reader As New StreamReader(Application.StartupPath & "\" & AccountsList.SelectedItem.ToString & ".sun")
mFileName = AccountsList.SelectedItem.ToString & ".sun"
Dim AccountText As String = Reader.ReadToEnd()
Reader.Close()
mData = AccountText.Split("|")
Catch ex As Exception
End Try
End Sub
End Class