VB中的GetUserName函数

【引言】

当运行程序时报了如下错：“编译错误：常数、固定长度字符串、数组、用户定义类型以及Declare语句不允许作为对象模块的Public成员。”在我的不断研究下发现，当工程的启动对象设置为个别的窗体时运行没问题，但当启动对象设置为SubMain时会报错。

接下来，找到报错的定位点：

发现这是关于GetUserName函数的问题，这才想起来可能是我在敲代码时是复制的学生上的代码，没有自己引用，所以才会报错！那么，接下来介绍一下GetUserName函数！

【正文】

一、背景

随着系统安全性的加强，每个系统里越来越多不同的帐号登录。假如你正在开发一个上网安全软件，让不同的用户有不同的上网权限，这样就需要识别当前的用户是什么帐号登录了，然后再作出权限分配。还有出错时，也需要对当前账号进行记录下来，因为不同的帐号有不同的权限，有些磁盘是不允许操作的。面对这些需求，就需要使用函数GetUserName。简单来说，就是获取当前用户名的一个函数。