generalfunc.bas

来自「SQL Server 2000课程设计案例:轿车销售管理系统」· BAS 代码 · 共 7 行

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