时间转瞬即逝,转眼间,已经进行了把第一次机房上机系统做完了,虽然历经了一个半月的时间,其中也是有自己的拖延症在捣乱,但是最后还是结束了。经历了这段时间的学习,总结一下几点:
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
希望我的分享能你有所帮助!
感谢您的阅读,如果您有更好的方法,欢迎分享给我,谢谢您!