62,046
社区成员
发帖
与我相关
我的任务
分享
dim commentList as System.Collections.Generic.List<CommentInfo>;
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
If Not Page.IsPostBack Then
Dim newMessage As New MessageType
With newMessage
.id = 123
.nickname = "magicbacon"
.message = "show"
.postTime = Now
.validation = True
End With
Dim messages As MessageType()
For i As Integer = 0 To 9
With messages(i)
.id = 100 + i
.nickname = "id" & i
.message = "message" & i
.postTime = Now
.validation = True
End With
Next
Else
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
Protected Class MessageType
Property id() As Integer
Get
Return id
End Get
Set(ByVal value As Integer)
id = value
End Set
End Property
Property nickname() As String
Get
Return nickname
End Get
Set(ByVal value As String)
nickname = value
End Set
End Property
Property message() As String
Get
Return message
End Get
Set(ByVal value As String)
message = value
End Set
End Property
Property postTime() As Date
Get
Return postTime
End Get
Set(ByVal value As Date)
postTime = value
End Set
End Property
Property validation() As Boolean
Get
Return validation
End Get
Set(ByVal value As Boolean)
validation = value
End Set
End Property
End Class
Public Class CommentInfo
' Methods
Public Sub New()
' Properties
Public Property AddDate As DateTime
Public Property ArticleID As Integer
Public Property CommentID As Integer
Public Property Content As String
Public Property Title As String
Public Property UserIP As String
Public Property UserName As String
Public Property Visible As Boolean
' Fields
Private adddate As DateTime
Private articleid As Integer
Private commentid As Integer
Private content As String
Private title As String
Private userip As String
Private username As String
Private visible As Boolean
End Class
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
If Not Page.IsPostBack Then
Dim newMessage As New MessageType
With newMessage
.id = 123
.nickname = "magicbacon"
.message = "show"
.postTime = Now
.validation = True
End With
Dim messages As MessageType()
For i As Integer = 0 To 9
With messages(i)
.id = 100 + i
.nickname = "id" & i
.message = "message" & i
.postTime = Now
.validation = True
End With
Next
Else
End If
End Sub
Protected Class MessageType
Property id() As Integer
Get
Return id
End Get
Set(ByVal value As Integer)
id = value
End Set
End Property
Property nickname() As String
Get
Return nickname
End Get
Set(ByVal value As String)
nickname = value
End Set
End Property
Property message() As String
Get
Return message
End Get
Set(ByVal value As String)
message = value
End Set
End Property
Property postTime() As Date
Get
Return postTime
End Get
Set(ByVal value As Date)
postTime = value
End Set
End Property
Property validation() As Boolean
Get
Return validation
End Get
Set(ByVal value As Boolean)
validation = value
End Set
End Property
End Class
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
If Not Page.IsPostBack Then
Dim m As New Message
Dim ms(10) As Message
For i As Integer = 0 To 10
ms(i) = New Message()
With ms(i)
.id = i
.content = "content" & i
.nickname = "nickname" & i
.postTime = Now
.validation = True
End With
Next
Else
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
Protected Class Message
Dim pid As Integer
Dim pNickname As String
Dim pContent As String
Dim pPostTime As Date
Dim pValidation As Boolean
Default Property Message(ByVal index As Integer) As Message
Get
Dim pMessage As Object
pMessage = Message(index)
Return CType(pMessage, Message)
End Get
Set(ByVal value As Message)
Message(index) = value
End Set
End Property
Property id() As Integer
Get
Return pid
End Get
Set(ByVal value As Integer)
pid = value
End Set
End Property
Property nickname() As String
Get
Return pNickname
End Get
Set(ByVal value As String)
pNickname = value
End Set
End Property
Property content() As String
Get
Return pContent
End Get
Set(ByVal value As String)
pContent = value
End Set
End Property
Property postTime() As Date
Get
Return pPostTime
End Get
Set(ByVal value As Date)
pPostTime = value
End Set
End Property
Property validation() As Boolean
Get
Return pValidation
End Get
Set(ByVal value As Boolean)
pValidation = value
End Set
End Property
Sub New(ByVal intId As Integer, ByVal strNickname As String, ByVal strContent As String, ByVal datPostTime As Date, ByVal boolValidation As Boolean)
pid = intId
pNickname = strNickname
pContent = strContent
pPostTime = datPostTime
pValidation = boolValidation
End Sub
Sub New()
pid = 0
pNickname = ""
pContent = ""
pPostTime = Now
pValidation = False
End Sub
End Class