public class Msg : BaseMsg
{
public Msg(string senderName, string message)
: base(senderName, message)
{
}
public Msg(int id1, string senderName, string message, DateTime sendtime1, bool ifread1)
: base(id1, senderName, message, sendtime1)
{
ifread = ifread1;//此条消息是否已经读过
}
}
转换成Vb代码怎么写?
{
public Msg(string senderName, string message)
: base(senderName, message)
{
}
public Msg(int id1, string senderName, string message, DateTime sendtime1, bool ifread1)
: base(id1, senderName, message, sendtime1)
{
ifread = ifread1;//此条消息是否已经读过
}
}
转换成Vb代码怎么写?
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.net 可以这样做,VB的话估计不行...