VB出现的问题

来源:百度知道 编辑:UC知道 时间:2024/06/20 10:13:49
请大家帮我看下 运行程序是总是说
编辑错误: 找不到工程或库

然后 黄色箭头指向 Private Sub Form_Load()
蓝色选中 Space$

代码如下
Private Sub Form_Load()
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
请各位高人指点指点···
请各位大侠留下你们的联系QQ 我有些不会的
还要问下你们~~谢谢

你的GetUserName函数在哪呢?有没有定义,没定义就调用当然会提示子程序或函数未定义了,在函数模块定义一个GetUserName函数就可以了。

GetUserName应该是API 函数如果没有声明,就声明一下,如果声明了还是这样,就应该是你的系统有问题了,我有一个朋友也是他调用Date 函数都出这个提示!