PAGE 1
Expand|Select|Wrap|Line Numbers
- Protected Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click
- nval2 = TextBox2.Text
- If numofper > nval2 Then
- Session("a1") = textdynamic5
- SessionHandler.keynval2 = nval2
- Response.Redirect("fortpage.aspx")
- Else
- MsgBox("'n' value must be less than Number of Periods")
- End If
- Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
- If Session("weights") = True Then
- ReDim TxtDyn5(nval2)
- Button4.EnableViewState = True
- Button4.ID = "btn4"
- For m As Integer = 0 To nval2 - 1
- TxtDyn5(m) = New TextBox
- TxtDyn5(m).EnableViewState = True
- Panel4.Controls.Add(TxtDyn5(m))
- textdynamic5.Add(textdynamic5)
- TxtDyn5(m).Width = 60
- Next
- Session("a1") = True
- End If
- End Sub
Expand|Select|Wrap|Line Numbers
- Dim textdynamic5 As New ArrayList
- Dim TxtDyn5 As TextBox()
- Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- Dim textdynamic5 As ArrayList = CType(HttpContext.Current.Session("a1"), ArrayList)
- ElseIf Session("WMA") = True Then
- Label4.Text = "WEIGHTED MOVING AVERAGE"
- Dim nval2 As String = SessionHandler.keynval2
- Label6.Text = "" + nval2
- Label7.Text = "Value of 'n'"
- Label8.Text = "Weights"
- If Session("weights") = True Then
- ReDim TxtDyn5(nval2)
- textdynamic5 = Session("a1")
- For m As Integer = 0 To nval2 - 1
- TxtDyn5(m) = New TextBox
- TxtDyn5(m).EnableViewState = True
- Panel14.Controls.Add(TxtDyn5(m))
- textdynamic5.Add(textdynamic5)
- TxtDyn5(m).Width = 60
- Next
- End If
- end sub