自动显示登录系统的用户名

lrlxxqxa

1、自定义一个函数，利用environ函数调用系统用户名

1. Function getusername()
   
2.     getusername = Environ("username")
   
3. End Function

复制代码

2、在窗体中新建一个文本框，在设计视图中指定步骤1中定义的自定义函数为其的空间来源

3、运行窗体，发现用户名显示在文本框中。



[ 本帖最后由 lrlxxqxa 于 2010-7-1 15:11 编辑 ]

lrlxxqxa

Environ 函数

返回 String，他关连于一个操作系统环境变量。 在 Macintosh 中不可用

语法

Environ({envstring | number})

Environ 函数的语法含有以下这些命名参数：

envstring: 可选参数。包含一个环境变量名的字符串表达式。

number: 可选参数。数值表达式，用来表示环境字符串在环境字符串表格中的数值顺序。number 参数能是任意的数值表达式，不过在计算前，他会先转换为一个整数。

说明

如果在环境字符串表格中未找到 envstring，则会返回一个零长度字符串 ("")。如果找到，则 Environ 会返回一段文本，文本是赋值给指定的 envstring 的，也就是说，在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。

如果指定了 number，则在环境字符串表格中相应位置上的字符串会返回。在这种情况下，Environ 会返回整个文本，包括 envstring。如果在指定位置上没有环境字符串，那么 Environ 会返回一个零长度字符串。

例子：

一、求机器名

Environ("COMPUTERNAME")

二、求当前登录用户的用户名

Environ("USERNAME")

三、求WINDOWS目录

Environ("windir")

四、求操作系统

Environ("OS")

五、求临时目录

Environ("TEMP") 或 Environ("TMP")

xihabang

占个沙发

lrlxxqxa

Environ("USERNAME")和API的GetUserName有什么不同呢？

Environ("USERNAME")和GetUserName 都是通过查找当前用户注册表[Shell Folder]子键下指定键值完成操作.两者为同一个级别,都是函数自己完成了对注册表的读写操作.

Environ("USERNAME") 通过调用函数 GetUserName 来完成对指定环境变量的读取.

lrlxxqxa

呵呵，你好快呀。我自己坐板凳

潮唧唧

这个用户名能被用到页脚里面去嘛？