generalfunc.bas

来自「学生信息管理系统」· BAS 代码 · 共 13 行

Attribute VB_Name = "GeneralFunc"

Public Function MakeStr(ByVal Str As String) As String
  MakeStr = Trim(Replace(Str, "'", "''"))
End Function


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