宝山信息港
健康
当前位置:首页 > 健康

VB基础学习如何取得计算机名

发布时间:2019-06-20 06:35:50 编辑:笔名

  程序说明:   这个程序比较简单,大家自己看吧

  计算机名就是你打开 控制面板-系统-络标识-完整的计算机名称

  程序代码:

  Form1

  Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

  Private Sub Command1_Click()

  Dim Name As String, Length As Long

  Length = 225

  Name = String(Length, Chr(0))

  GetComputerName Name, Length

  Name = Left(Name, Length)

  ption = Name

  End Sub

经量多有血块的原因
经量少痛经怎么调理
经量少为什么会痛经
友情链接