VB.NET: testing a custom control

[lab3terch]

I am having difficulties getting the date interval to calculate and to get the text added to the labels. I know the code in the test program works if I get the total days, so the problem is with the code for the control. When I print Date1 I get 12:00 AM but cannot seem to get the datetimepicker to use dates in the calculation.

Thanks for your willingness to help!


The code for the custom control:
ReadOnly Property totdays() As Double
Get
totdays = DateDiff(DateInterval.Day, Date1, Date2)
End Get
End Property

ReadOnly Property startdate() As String
Get
Dim str As String
str = "Start Date:"
Lbl1.Text = str
End Get
End Property

ReadOnly Property enddate() As String
Get
Dim str As String
str = "End Date:"
Lbl2.Text = str
End Get
End Property
End Class

the test code:

Private Sub BtnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalc.Click
Dim totdays As Integer
lblCharge.Text = totdays * 50
Label1.Text = totdays
End Sub
End Class

[Killer42]

I am having difficulties getting the date interval to calculate and to get the text added to the labels. I know the code in the test program works if I get the total days, so the problem is with the code for the control. When I print Date1 I get 12:00 AM but cannot seem to get the datetimepicker to use dates in the calculation.

Thanks for your willingness to help!


The code for the custom control:
ReadOnly Property totdays() As Double
Get
totdays = DateDiff(DateInterval.Day, Date1, Date2)
End Get
End Property

ReadOnly Property startdate() As String
Get
Dim str As String
str = "Start Date:"
Lbl1.Text = str
End Get
End Property

ReadOnly Property enddate() As String
Get
Dim str As String
str = "End Date:"
Lbl2.Text = str
End Get
End Property
End Class

the test code:

Private Sub BtnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalc.Click
Dim totdays As Integer
lblCharge.Text = totdays * 50
Label1.Text = totdays
End Sub
End Class

In your test code, totDays is just a locally defined integer variable with zero value (by default). So multiplying it by 50 should still give you zero. Is this what you intended?

As for the code in the custom control - is this VB.net?

[lab3terch]

In your test code, totDays is just a locally defined integer variable with zero value (by default). So multiplying it by 50 should still give you zero. Is this what you intended?

As for the code in the custom control - is this VB.net?

My intent is to take the totdays from the custom control and then multiply it by 50 in the test program. I am using VB 2003 for this exercise.

[Killer42]

My intent is to take the totdays from the custom control and then multiply it by 50 in the test program. I am using VB 2003 for this exercise.

Hm...

I still think in terms of old VB6, but I feel that there should be an indication that you are referring to the totdays property of a control. Something along the lines of controlname.totdays.

Don't take this as Gospel, though - I may be way off track.

[lab3terch]

Hm...

I still think in terms of old VB6, but I feel that there should be an indication that you are referring to the totdays property of a control. Something along the lines of controlname.totdays.

Don't take this as Gospel, though - I may be way off track.

Tried that - still did not work.

[Killer42]

Tried that - still did not work.

What did happen?

[lab3terch]

What did happen?

I got a message that what I entered had not been declared. I entered thwe name of the control.totdays, or daterange.totdays. I put this in the click event for the button in the test program.

[Killer42]

I got a message that what I entered had not been declared. I entered thwe name of the control.totdays, or daterange.totdays. I put this in the click event for the button in the test program.

Generally, I'd expect that you would have to have added an instance of the custom control to the form. You should then be able to access its properties. It's just like adding any other control, such as a label or button. Have you placed the custom control on the form?

However, keep in mind that I'm still talking from a VB6 perspective, so may be out of date.

[lab3terch]

Generally, I'd expect that you would have to have added an instance of the custom control to the form. You should then be able to access its properties. It's just like adding any other control, such as a label or button. Have you placed the custom control on the form?

However, keep in mind that I'm still talking from a VB6 perspective, so may be out of date.

Yes,, I have the control on the form and have referenced the test project to the control.

[Killer42]

Yes,, I have the control on the form and have referenced the test project to the control.

Can you paste in the actual line of code producing the error, and tell us the exact message it displays?

[lab3terch]

Can you paste in the actual line of code producing the error, and tell us the exact message it displays?

I have now got the text names for the labels to be filled in by the control when the test program is run. The problem now seems to be with the code I have for the total number of days between the datetimepicker1 (date1) and datetimepicker2 (date2). In an attempt to find the problem, I selected date1 to print and got a value of 1200 AM so apparently need to do a conversion somewhere to get just the date. The code is below:

Public Property tdays() As Integer
Get
tdays = DateDiff(DateInterval.Day, Date1, Date2)
End Get
Set(ByVal value As Integer)
tdays = value
End Set
End Property

Thanks for your continued help!!