register.vb

来自「asp.net技术内幕的书配源码」· VB 代码 · 共 23 行

Imports System
Imports System.IO

Namespace myComponents

Public Class Register

  Shared Sub doRegister( FirstName As String, LastName As String, FavColor As String )
    Dim strPath As String = "c:\userlist.txt"
    Dim strmFile As StreamWriter

    strmFile = File.AppendText( strPath )
    strmFile.Write( "first name: " & firstname & Environment.NewLine )
    strmFile.Write( "last name: " & lastname & Environment.NewLine )
    strmFile.Write( "favorite Color: " & favColor & Environment.NewLine )
    strmFile.Write( "=============" & Environment.NewLine )
    strmFile.Close
  End Sub

End Class

End Namespace