机房收费系统优化篇

一、给主窗体添加快捷键：

1、将cmdok的default的属性设为true
2、在主窗体中添加如下代码：

Private Sub form_KeyPress(KeyAscii As Integer)
         If KeyAscii = 13 Then
        Me.Hide
        frmMain.Show
    End If
End Sub

二、字符的限制

文本框的限制：

Private Sub txtUserName_keypress(KeyAscii As Integer)
 Dim ctemp As String
    ctemp = "#$%^&*"   '禁止输入的字符
    If InStr(1, ctemp, Chr(KeyAscii)) <> 0 Then
        KeyAscii = 0
    End If
Select Case KeyAscii
    Case 48 To 57 '只能输入数字
    Case 65 To 90 '只能输入大小写字母
    Case 97 To 122 ' 只能输入退格
    Case 8
    Case Else
    KeyAscii = 0
End Select

End Sub

三、如何让combo框不能输入字符

在combo框的keypress事件中输入keyascii=0

四、如何调整mshflexgrid控件的单元格的大小，使得让他们可以根据字符串的大小来进行调整

第一步：在模块中添加以下代码：

    '声明函数自动调整mshflexgrid控件的单元格的大小
    Public Sub AdjustColWidth(frmCur As Form, gridCur As Object, Optional bNullRow As Boolean = True, Optional dblIncWidth As Double = 0)
    '--------------------------------------------------------------------
    '功能:
    '       自动调整Grid各列列宽为最合适的宽度
    '参数:
    '       [frmCur].........................................当前工作窗体
    '       [gridCur]........................................当前要调整的Grid
    '--------------------------------------------------------------------
    Dim i, j As Integer
    Dim dblWidth As Double
        With gridCur
            For i = 0 To .Cols - 1
                dblWidth = 0
                If .ColWidth(i) <> 0 Then
                    For j = 0 To .Rows - 1
                        If frmCur.TextWidth(.TextMatrix(j, i)) > dblWidth Then
                            dblWidth = frmCur.TextWidth(.TextMatrix(j, i))
                        End If
                    Next
                    .ColWidth(i) = dblWidth + dblIncWidth + 800
                End If
            Next
        End With

End Sub

第二步：在各个子窗体中调用：

Call AdjustColWidth(窗体名字,控件名字)

小技巧篇：

如何一键删除所有控件中所有的内容
代码如下：

Private Sub cmdclear_Click()
    Dim ctrl As Control
 
    For Each ctrl In Me.Controls
            Rem:如果控件的类型为combo
            If TypeOf ctrl Is ComboBox Then
                    ctrl.Text = ""
            End If
 
            Rem:如果控件的类型是text
            If TypeOf ctrl Is TextBox Then
                    ctrl.Text = ""
            End If
 
            Rem:如果控件的类型是msflexgrid
            If TypeOf ctrl Is msflexgrid Then
                    ctrl.Clear
            End If
    Next
    
End Sub