一个代码看不懂，求教

xspsuper

那位大师可以把它详细的注解一下，谢了！[em13]
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Function SysPath() As String
SysPath = String(145, Chr(0))
SysPath = Left(SysPath, GetSystemDirectory(SysPath, 145)) & "\"
End Function

我玩游戏的

这个函数大概是用于取得Windows系统目录（System目录）的完整路径名。根据微软的标准，其他定制控件和一些共享组件也可放到这个目录。通常应避免在这个目录里创建文件。在网络环境中，往往需要管理员权限才可对这个目录进行写操作。我也是新手不知道写的这些对你有没有帮助。

sandy_zc_1

这个程序代码写得很糟糕。
SysPath = Left(SysPath, GetSystemDirectory(SysPath, 145)) & "\"
虽然这一句实际运行没有什么问题，但是建议不要这样写，函数名不要随便乱用。

现在回来看代码

'这一个声明是一个取得系统路径的API
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long


Function SysPath() As String
SysPath = String(145, Chr(0)) '这是将SysPath这个String型变量（注意此处SysPath是变量，不是函数名）赋值为145个chr(0)的字符，chr(0)就是获得ASCII码值为0的字符
SysPath = Left(SysPath, GetSystemDirectory(SysPath, 145)) & "\"  '此句里面等号右边的所有SysPath都要按变量来理解，这也就是它糟糕的原因。
End Function

liiir1985

补充楼上得，这里得syspath是函数名也是返回值。
这个代码写得也太不规范了，我来改一下
Function SysPath() As String
dim path as string
path = String(145, Chr(0))'添加145个零字符占位
path = Left(Path, GetSystemDirectory(Path, 145)) & "\"'我估计getsystemdirectory得返回值是系统目录长度
return path' 返回值
End Function

junny

3楼和4楼说得太对了。在函数里面可不要拿函数名字当作一般的变量乱用，要吃大亏的。

psic

函数名在函数中作为函数返回值的变量来使用，这是VB中很有特色的一个特性啊，怎么成了乱用了…………

liiir1985

利用这个特性容易吃亏的～
还是用比较规范点的return比较好，不容易出错

sandy_zc_1

psic: Re:一个代码看不懂，求教

函数名在函数中作为函数返回值的变量来使用，这是VB中很有特色的一个特性啊，怎么成了乱用了…………

是特性没错，但特性有时候会被乱用的。

一般的建议是，过程中的变量不要使用函数名，仅在返回变量值（return）的时候使用它。

因为Basic语言中的函数名代表的意义太多了，滥用会吃亏的。