第一步:获取本计算机用户名
Private Sub Form_Load()重点内容
Dim sBuffer As String '缓冲器
Dim lSize As Long
sBuffer = Space$(255) '缓冲器容量255Byte,sBuffer为255个空格字符串
lSize = Len(sBuffer) 'sBuffer串的长度
Call GetUserName(sBuffer, lSize) '读取用户名到sBuffer中
If lSize > 0 Then
txtUserName.Text = ""
Else
第二步:判断文本框