高考问答梦见穿红衣服的女鬼:VB的API函数
来源：百度文库 编辑：高考问答 时间：2024/04/20 23:18:38
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nsize As Long) As Long
Private Sub Form_Load()
Dim name As String
Dim size As Long
size = 20
GetComputerName name, size
Text1.Text = name
End Sub
一运行就报错``是语句有问题还是我的VB程序的问题？
错误为VB遇到问题需要关闭，看下你们机器会吗？会就是我VB的问题，不会就是代码有问题`
Private Sub Form_Load()
Dim name As String
Dim size As Long
size = 20
GetComputerName name, size
Text1.Text = name
End Sub
一运行就报错``是语句有问题还是我的VB程序的问题？
错误为VB遇到问题需要关闭，看下你们机器会吗？会就是我VB的问题，不会就是代码有问题`
name的问题
在name的定义下加上
name=space(20)
因为GetComputerName的第一个参数是指针类型的，所以需要开辟缓冲区。
出什么错？