本文整理汇总了VB.NET中System.EnterpriseServices.RegistrationException类的典型用法代码示例。如果您正苦于以下问题：VB.NET RegistrationException类的具体用法？VB.NET RegistrationException怎么用？VB.NET RegistrationException使用的例子？那么恭喜您, 这里精选的类代码示例或许可以为您提供帮助。
在下文中一共展示了RegistrationException类的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: NULL
Try
Dim applicationName As String = "Queued Component"
Dim typeLibraryName As String = Nothing
Dim helper As New RegistrationHelper
' Call the InstallAssembly method passing it the name of the assembly to
' install as a COM+ application, the COM+ application name, and
' the name of the type library file.
' Setting the application name and the type library to NULL (nothing in Visual Basic .NET
' allows you to use the COM+ application name that is given in the assembly and
' the default type library name. The application name in the assembly metadata
' takes precedence over the application name you provide to InstallAssembly.
helper.InstallAssembly("C:..\..\QueuedComponent.dll", applicationName, typeLibraryName, InstallationFlags.CreateTargetApplication)
MsgBox("Registration succeeded: Type library " & typeLibraryName & " created.")
Console.Read()
' Create a RegistrationConfig object and set its attributes
' Create a RegistrationHelper object, and call the InstallAssemblyFromConfig
' method by passing the RegistrationConfiguration object to it as a
' reference object
Dim registrationConfiguration As New RegistrationConfig()
registrationConfiguration.AssemblyFile = "C:..\..\QueuedComponent.dll"
registrationConfiguration.Application = "MyApp"
registrationConfiguration.InstallationFlags = InstallationFlags.CreateTargetApplication
Dim helperFromConfig As New RegistrationHelper()
helperFromConfig.InstallAssemblyFromConfig(registrationConfiguration)
Catch e As RegistrationException
MsgBox(e.Message)
' Check whether the ErrorInfo property of the RegistrationException object is null.
' If there is no extended error information about
' methods related to multiple COM+ objects ErrorInfo will be null.
If Not (e.ErrorInfo Is Nothing) Then
' Gets an array of RegistrationErrorInfo objects describing registration errors
Dim registrationErrorInfos As RegistrationErrorInfo() = e.ErrorInfo
' Iterate through the array of RegistrationErrorInfo objects and disply the
' ErrorString for each object.
Dim registrationErrorInfo As RegistrationErrorInfo
For Each registrationErrorInfo In registrationErrorInfos
MsgBox(registrationErrorInfo.ErrorString)
Next registrationErrorInfo
End If
Console.Read()
End Try