generalfunc.bas

共享一下一个不错的东东用VB+sql开发的销售系统.里头附带:sql 和 vb 源码.

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