Testing Mo

從實踐中學習

2009-01-09

VB example

  • 1266
  • 0
  • 2009-01-12

摘要:VB example

 

 

 

 

Public Shared Sub UseVariableParameters(ParamArray list() as  Integer)  
     For  i as Integer = 0  to list.Length -1  
        Console.WriteLine(list(i))
     Next i  
     Console.WriteLine()
End Sub

 

 

 

    Public Function bAlreadyOpen(ByVal psProcessName As String) As Boolean

        Try

            mProcess = New Mutex(False, psProcessName)

            If mProcess.WaitOne(10, False) Then
                bAlreadyOpen = False
            Else
                bAlreadyOpen = True
            End If

        Catch Err As Exception
            Call ErrHandler(Err.Message, APP_NAME)
        End Try

    End Function

 

 

 

------------------

熱愛生命 喜愛新奇 有趣的事物

 

過去 是無法改變
將來 卻能夠創造

 

希望使大家生活更便利
世界更美好

 

a guy who loves IT and life