Advertisement
Advertisement
| 06.18.2008 at 09:28PM PDT, ID: 23497727 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: |
//Properties region of one of the Custom Web usercontrol BirthdayList.ascx
#Region "Properties"
Public Property NewsletterMonth() As Integer
Get
Try
Return CInt(Me.lblNewletterMonth.Text)
Catch ex As Exception
Return Now.Month
End Try
End Get
Set(ByVal value As Integer)
Me.lblNewletterMonth.Text = value.ToString
End Set
End Property
Public Property NewsletterYear() As Integer
Get
Try
Dim TheYear As Integer = CInt(Me.lblNewsletterYear.Text)
If TheYear = 0 Then
Return Now.Year
Else
Return TheYear
End If
Catch ex As Exception
Return Now.Year
End Try
End Get
Set(ByVal value As Integer)
Me.lblNewsletterYear.Text = value.ToString
End Set
End Property
Private Property EventID() As Integer
Get
Try
Return Convert.ToInt16(lblEventID.Text)
Catch ex As Exception
Return 0
End Try
End Get
Set(ByVal value As Integer)
lblEventID.Text = value.ToString
End Set
End Property
Public Property CN() As String
Get
Return Me.lblCN.Text
End Get
Set(ByVal value As String)
Me.lblCN.Text = value
End Set
End Property
#End Region
//Code that loads the custom control
Dim moduleToAdd As New usercontrols_BirthdayList
With moduleToAdd
.ID = selectedLocation.ToString & counttolCount.ToString
.CN = cn
.NewsletterMonth = NewsLetterMonth
.NewsletterYear = NewsLetterYear
End With
|