第一次机房上机系统--总结篇

最新推荐文章于 2023-04-23 18:21:33 发布

原创最新推荐文章于 2023-04-23 18:21:33 发布 · 644 阅读

2 ·

CC 4.0 BY-SA版权

第一次机房上机系统(VB版) 专栏收录该内容

7 篇文章

订阅专栏

本文分享了一次机房上机系统制作的经验，历时一个半月完成。文章总结了代码格式、注释、变量命名、BUG排查等六个关键点，并提供了代码示例，包括输入限制函数、获取计算机名及主窗体显示的技巧。

时间转瞬即逝，转眼间，已经进行了把第一次机房上机系统做完了，虽然历经了一个半月的时间，其中也是有自己的拖延症在捣乱，但是最后还是结束了。经历了这段时间的学习，总结一下几点：

1、代码的格式要正确，要清晰，否则出现BUG会增加很大的问题。
2、填写上必要的注释，否则调试代码的时候，你自己都会不知道你在写什么。
3、变量的命名，否则到最后你都不知道某个变量代表什么。
4、如果出现BUG也要考录数据的变量类型问题。
5、如果有自己的想法，就把他加进去，遇到的问题多了，自然也就成长了。
6、遇到问题，如果两个小时没有解决，那么就需要朋友的帮助了！

代码

可以输入数字字母和汉字

Public Function Limit(KeyAscii%) As Integer
    Select Case KeyAscii
        Case Is < 0
        Case 13 '回车
        Case 8 '删除
        Case 32 '空格
        Case Asc("a") To Asc("z")
        Case Asc("A") To Asc("Z")
        Case Asc("0") To Asc("9")
    Case Else
        KeyAscii = 0
    End Select
    
End Function

可以输入字母和汉字

'限制能输入字母和汉字
Public Function GradeLimi(KeyAscii%) As Integer
    Select Case KeyAscii
        Case Is < 0
        Case 13 '回车
        Case 8 '删除
        Case 32 '空格
        Case Asc("a") To Asc("z")
        Case Asc("A") To Asc("Z")
    Case Else
        KeyAscii = 0
    End Select

End Function

获得计算机名

‘声明
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'调用API函数获取计算机名
 
Public Function GetThisComputerName() As String
    Dim sBuffer As String
    Dim lSize As Long
    
    sBuffer = Space$(255)
    lSize = Len(sBuffer)
    GetComputerName sBuffer, lSize
    
    If lSize > 0 Then
        GetThisComputerName = Left$(sBuffer, lSize)
    End If
End Function

’调用举例
mrc_wLog.Fields(7) = GetThisComputerName

主窗体

主窗体需要添加控件，但是还要用MDI窗体，一般子窗体会覆盖到MDI窗体下面，所以需要调用过程，来解决这个问题。

‘声明
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

    '使用举例
    frmInquiryLineRecord.Show
    Call SetParent(frmInquiryLineRecord.hWnd, FrmMain.hWnd)

窗体显示

如何只让一个窗体显示呢？

Private Sub Form_Deactivate()

    If Me.WindowState <> 1 Then
        Me.WindowState = 1
    End If
End Sub

希望我的分享能你有所帮助！
感谢您的阅读，如果您有更好的方法，欢迎分享给我，谢谢您！