VB example

摘要:VB example

Public Shared Sub UseVariableParameters() 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() 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

原文:大专栏  VB example