📄 register.vb
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -