generalfunc.bas

轿车管理系统

Attribute VB_Name = "GeneralFunc"
Public Sub EnterTAB(KeyAscii As Integer)
  If KeyAscii = 13 Then '13表示回车键
    SendKeys "{TAB}"    '转换为TAB键
  End If
End Sub