Создала свой класс... как сделать его хранение и считывание потом...
Вроде у класса поставила 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 писал(а):Спасибо огромное, то что надо было - пример как этим кошмаром пользоваться
А насчет хранения - хранить надо, для того это и заводится, чтобы тетки - училки не вбивали пароли с давно потерянных в стопках макулатуры листочков с заходами...
Сейчас этот форум просматривают: Yandex-бот и гости: 10