Создала свой класс... как сделать его хранение и считывание потом... 
Вроде у класса поставила Serializable=true а дальше то что????
			








MIT писал(а):От данных зависит. XML- или BinarySerializer.


        Public Logins As New List(Of Login)
        ''' <summary>
        ''' элемент логина
        ''' </summary>
        ''' <remarks></remarks>
        Public Class Login
            Private _Name As String
            Private _Server As String
            Private _Login As String
            Private _Password As String
            Private _Type As mType
..........




natcap писал(а):У меня есть список создаваемый пользователей из 6 полей...
эти 6 полей я объединила в объект...
- Код: Выделить всё
Public Logins As New List(Of Login)
''' <summary>
''' элемент логина
''' </summary>
''' <remarks></remarks>
Public Class Login
Private _Name As String
Private _Server As String
Private _Login As String
Private _Password As String
Private _Type As mType
..........
НО поля содержат логины - пароли, так что наверное в открытом виде хранить не очень удачный вариант
Imports System.Runtime.Serialization.Formatters
Public Class TestForm
    Public Logins As New List(Of Login)
    <Serializable()> _
    Public Class Login
        Public _Name As String
        Public _Server As String
        Public _Login As String
        Public _Password As String
        Public _Type As mType
        <Serializable()> _
        Public Class mType
            Public SomeField
        End Class 'mType
    End Class 'Login
    Private Sub Logins_Save() Handles Me.FormClosed
        Dim fs As IO.FileStream = New IO.FileStream(IO.Path.GetDirectoryName(Application.ExecutablePath) & "\logins.dat", IO.FileMode.OpenOrCreate)
        Dim bf As Binary.BinaryFormatter = New Binary.BinaryFormatter()
        bf.Serialize(fs, Logins)
        fs.Close()
    End Sub
    Private Sub Logins_Load() Handles Me.Load
        Dim fs As IO.FileStream = New IO.FileStream(IO.Path.GetDirectoryName(Application.ExecutablePath) & "\logins.dat", IO.FileMode.OpenOrCreate)
        Dim bf As Binary.BinaryFormatter = New Binary.BinaryFormatter()
        Try
            Logins = bf.Deserialize(fs)
        Catch ex As Exception
            MsgBox("Deserialize error! Create demo Logins...")
            'Create demo Logins
            Dim l As New Login
            l._Login = "Login 1"
            Logins.Add(l)
            l = New Login
            l._Login = "Login 2"
            Logins.Add(l)
        Finally
            fs.Close()
        End Try
        For Each l As Login In Logins
            MsgBox(l._Login)
        Next
    End Sub
End Class




natcap писал(а):Спасибо огромное, то что надо было - пример как этим кошмаром пользоваться
А насчет хранения - хранить надо, для того это и заводится, чтобы тетки - училки не вбивали пароли с давно потерянных в стопках макулатуры листочков с заходами...

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5