Imports System.Runtime.InteropServices
Public Class Form1
Private Sub GetItemIDAndRevisionPatterns_Click(sender As Object, e As EventArgs) Handles GetItemIDAndRevisionPatterns.Click
Dim objSEApplication As SolidEdgeFramework.Application = Nothing
Dim objTCE As SolidEdgeFramework.SolidEdgeTCE = Nothing
Dim majorVersion As Object = Nothing
Dim completeVersion As Object = Nothing
Dim UserName As String
Dim Password As String
Dim Group As String
Dim Role As String
Dim URL As String
Dim bTeamCenterMode As Boolean
Dim ItemType As String = "NR9TwoRule"
Dim ListOfItemIDPattern As Object = Nothing
Dim ListOfRevisionPattern As Object = Nothing
Try
objSEApplication = Marshal.GetActiveObject("SolidEdge.Application")
objSEApplication.DisplayAlerts = False
objTCE = objSEApplication.SolidEdgeTCE
Call objTCE.GetTeamCenterMode(bTeamCenterMode)
If bTeamCenterMode = False Then
objTCE.SetTeamCenterMode(True)
End If
'Specify Server Credentials
UserName = "abc"
Password = "abc"
Group = ""
Role = ""
URL = "http://Servername:8085/tc"
Call objTCE.ValidateLogin(UserName, Password, Group, Role, URL)
objTCE.GetItemIDAndRevisionPatterns(ItemType, ListOfItemIDPattern, ListOfRevisionPattern)
MsgBox("Done")
Catch ex As Exception
MsgBox(ex.ToString)
Clipboard.SetText(ex.ToString)
End Try
End Sub
End Class