vb代码解释

显示全部楼层 · 2008-11-13 18:11:32

Dim sBuffer As String

Dim lSize As Long
sBuffer = Space$(255)

lSize = Len(sBuffer)

Call GetUserName(sBuffer, lSize)

If lSize > 0 Then

txtUserName.Text = Left$(sBuffer, lSize)

Else

txtUserName.Text = vbNullString

End If
End Sub
Private Sub cmdCancel_Click()

OK = False

Me.Hide
End Sub
每一句的解释

千问 · 2008-11-13 18:11:32

这是一个比较典型的登录窗口，。。。。Dim sBuffer As String Dim lSize As Long sBuffer = Space$(255) 'sBuffer为255个空格字符串lSize = Len(sBuffer)’sBuffer串的长度Call GetUserName(sBuffer, lSize) '读取用户名到sBuffer中If lSize > 0 Then ’如果用户名长度大于0txtUserName.Text = Left$(sBuffer, lSize) ‘取用户名 Else ’否则txtUserName.Text = vbNullString ‘sBuffer 为空字...

千问 · 2008-11-13 18:11:32

发错地方了```密密麻麻的```我学设计的，看不懂```...