module1.vb

来自「基于vb.net的简单通信录」· VB 代码 · 共 26 行

Imports System.io
Module Module1
    Public isok As Boolean
    Public user_name As Collection                '//定义集合
    Public user_password As Collection
    Public Sub _add()
        Dim username As String
        Dim userpassword As String
        Dim filename As String = Application.StartupPath & "\" & "usersave.use"
        FileOpen(1, filename, OpenMode.Input)
        Do While Not EOF(1)
            Input(1, username)
            Input(1, userpassword)

            'ComboBox1.Items.Add(username)
            'ListBox1.Items.Add(userpassword)
            adduser(username, userpassword)
        Loop
        FileClose(1)
    End Sub
    Public Sub adduser(ByVal username As String, ByVal userpassword As String)
        user_name.Add(username)
        user_password.Add(userpassword)
    End Sub
End Module