【VB】显示本地机器名（机房问题）

在机房收费系统的很多窗体里，会遇到“机器名”这个关键字，那么，我们如何获取本机的机器名称呢？

首先，要在模块中声明：

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'显示本地机器名称

然后，在模块中定义一个全局变量存储机器名，

Public pcName As String

最后，在sub main 中，

    Dim Buffer As String '显示本地机器名
    Dim lSize As Long
    
    lSize = 255 '取随机数
    Buffer = Space(255)
    GetComputerName Buffer, lSize
    pcName = Trim(Buffer)

这就完成了对本机名称的提取，需要注意的是，有些电脑的计算机名称过长，可能导致数据库溢出。

当我们需要显示计算机名时，只需要text1.text = pcName就可以了。

ps：王啸同学提供了更加简单的方法，直接在需要的地方写代码就可以了。

    Text1.Text =VBA.environ("computername")

再一次感受到了团队的力量。