SolidWorks EPDM二次开发入门（三）

今天做了个发送消息的例子。下面把代码贴出来大家探讨探讨。

设计一个类库，里面2个文件。Message.vb  ,Notify.vb

'Message.vb 代码



Namespace Notification

    Public Interface IPJMessage          '定义一个接口

        Function ToHTML() As String      '向接口中添加发送方法

        Function SubJect() As String     '添加

    End Interface

    Public Class Message



    End Class

    Public Class ThirdClass : Implements IPJMessage



        Public Function SubJect() As String Implements IPJMessage.SubJect

            SubJect = "Send"     '函数返回一个Send字符串

        End Function



        Public Function ToHTML() As String Implements IPJMessage.ToHTML

            ToHTML = "下午好!"   '函数返回一个下午好字符串

        End Function

    End Class

End Namespace

'Notify.vb代码



Imports EdmLib

Namespace Notification

    

    Public Class Notification

        Dim duser As IEdmUser7

        Public Sub New(ByVal user As IEdmUser7)

            duser = user         '把传入的用户赋值给IEdmUser7

        End Sub

        ''' <summary>

        ''' 发送消息

        ''' </summary>

        ''' <param name="context">IPJMessage实例</param>

        ''' <remarks></remarks>

        Public Sub SendMessage(ByVal context As IPJMessage)

            duser.SendMsg(context.SubJect(), context.ToHTML()) '调用duser的SendMsg方法

        End Sub

    End Class

End Namespace

类库中的文件编译成dll 导入到应用程序中。添加一个窗体，窗体上添加一个button 按钮 和一个combobox控件

'窗体的Load事件代码 



Private Sub frmTestBatchList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        vault.LoginAuto("Trainning", Me.Handle.ToInt32)    '登陆PDM



        Dim userMgr As IEdmUserMgr5        '定义UserMgr5类型对象

        userMgr = vault

        Dim pos As IEdmPos5

        pos = userMgr.GetFirstUserPosition '获得第一个用户

        Dim user As IEdmUser5

        While Not pos.IsNull

            user = userMgr.GetNextUser(pos) '获得用户

            ComboBox1.Items.Add(user.Name)  '添加用户到comboBox

        End While

    End Sub



'按钮事件的代码 



Private Sub btnSendMsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendMsg.Click

        Dim userMgr As IEdmUserMgr5

        userMgr = vault

        Dim user As IEdmUser5

        user = userMgr.GetUser(ComboBox1.Text)         '获取ComboBox中所选中的用户

        Dim smessage As IPJMessage = New ThirdClass()

        Dim noti As Notification

        noti = New Notification(user)      '传user到Notification类的构造函数

        noti.SendMessage(smessage)         '发送消息

    End Sub