modgeneral.bas

网路设备资产管理系统

Attribute VB_Name = "ModGeneral"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/09/25
'描    述：江苏大学网络信息中心网络管理系统 - v1.0 Beta
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

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