【VB】显示本地机器名(机房问题)
来源:互联网 发布:linux桌面使用入门 编辑:程序博客网 时间:2024/06/05 19:24
在机房收费系统的很多窗体里,会遇到“机器名”这个关键字,那么,我们如何获取本机的机器名称呢?
首先,要在模块中声明:
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")再一次感受到了团队的力量。
0 0
- 【VB】显示本地机器名(机房问题)
- 【VB】MDI子窗体显示(机房问题)
- 【VB】打开原机房(机房问题)
- 【VB】table表列求和(机房问题)
- 【VB】VB连接SQL数据库(机房问题)
- VB机房收费系统问题
- 【VB】删除MSHFlexGrid控件中一行(机房问题)
- 【VB】SQL多条件查询(机房问题)
- 【VB】MSHFlexGrid中数据导入到Excel(机房问题)
- 【VB】SQL模糊查询和组合查询(机房问题)
- vb中获取机器名,用户名
- vb敲机房的小问题
- vc获取本地IP和机器名
- VB.Net机房收费系统(三层)——用datagirdview 控件显示数据库数据
- 机房收费系统-- MDI子窗体显示技巧(续vb.net版)
- 【机房收费系统】VB与grid++report交互(如何让数据以报表格式显示)
- 【VB.NET机房重构】DataGridView数据显示
- 【VB】sql数据的导入导出与删除修改<增删改查>(机房问题)
- CF 558D(Guess Your Way Out! II-set解决区间问题)
- 请千万当心:警惕云使用过程中的分析瘫痪问题
- 学习网页网站
- 关于Android SDK Manager更新速度慢的解决方法
- Genymotion不能成功开启Android5.0模拟器的解决方案
- 【VB】显示本地机器名(机房问题)
- <2015年大一C++实训项目>银行储蓄系统
- GRE写作必备句型
- 手写数字识别【QT+OpenCV】
- 打哈欠补肾法
- Intent的定义及用法
- Activity 的 taskAffinity, allowTaskReparenting, singleTask 属性的应用分析
- 网络编程
- c++课程实训 银行储蓄系统