机房收费系统之上机（日期文本与时间文本的结合、获取电脑名、读取其他窗体文本）

        基本数据设定窗体完成之后就有了计价标准，后面可以开始做上机窗体咯

一、上机窗体的流程图：

 二、错误集

①、无法读取到其他窗体文本框的内容

因为读取窗体被卸载了，当然就读不到咯(⊙o⊙)…

 三、查询集

①、两个时间文本如何结合？

format(date$,"YYYYMMDD") & format(time$,"HHMMSS")

②、如何更改电脑名？

电脑-属性-名称更改-高级-更改名称-重启计算机

③、VB中如何获取电脑名？（此方法为刘老师博客分享的方法，很简单哦^_^）

API 函数 GetComputerName

用法:

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

Private Sub Command1_Click()
    Dim StrT As String * 255
    GetComputerName StrT, 255
    Print StrT
End Sub

255为所定义变量StrT的字符串长度

GetComputerName属性：

https://docs.microsoft.com/en-us/windows/desktop/api/winbase/nf-winbase-getcomputernamea

四、代码片段（前面文章重复的代码功能就不在此赘述了^_^）：

①、获取电脑名

  Dim StrCPN As String * 10                         '定义变量，变量的大小为10
    
  GetComputerName StrCPN, 10                        'StrCPN的类型大小为char(10)

②、获取当前时间并赋予给相应控件

Private Sub Timer1_Timer()
    lblnowtime.Caption = Now()               '获取当前系统时间赋值给lblnowtime控件
End Sub

Private Sub Form_Load()
    ......
    Timer1.Enabled = True                    '窗体加载时激活时间事件
    ......
End Sub

以上便是上机窗体所涉及到的内容，听说下机窗体很难，放平心态下一站走起^_^