modgeneral.bas

设备管理系统包含设备管理

Attribute VB_Name = "ModGeneral"


Public Function Testtxt(txt As String) As Boolean
   If Trim(txt) = "" Then
    Testtxt = False
   Else
    Testtxt = True
   End If
   
End Function

Public Sub EnterTAB(KeyAscii As Integer)
 If KeyAscii = 13 Then
  SendKeys "{TAB}"
 End If
End Sub

Public Sub EnterEnter(KeyAscii As Integer)
 If KeyAscii = 13 Then
  SendKeys "{TAB}"
  SendKeys "{ENTER}"
 End If
End Sub

Public Function FileExists(FileName As String) As Integer
Dim i As Integer
On Error Resume Next
i = Len(Dir$(FileName))
If Err Or i = 0 Then FileExists = False Else FileExists = True
End Function


Function Quote(strValue As Variant) As String
Quote = Chr(39) & Trim(strValue) & Chr(39)
End Function