Public Class Msg Inherits BaseMsg Public Sub New(ByVal senderName As String, ByVal message As String) MyBase.New(senderName, message) End Sub Public Sub New(ByVal id1 As Integer, ByVal senderName As String, ByVal message As String, ByVal sendtime1 As DateTime, ByVal ifread1 As Boolean) MyBase.New(id1, senderName, message, sendtime1) '此条消息是否已经读过 ifread = ifread1 End Sub End Class
请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......