Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
a = False
' Img1.ImageUrl = "images/triangle4.png"
Session("abool") = a
mySin = New ClassSin
Label1.Text = "Side x = " & mysin.hyp & "m"
Label2.Text = "theta = " & mysin.angle & " deg"
Label3.Text = "Find the length of side y."
Label4.Text = "(Round the answer to" & vbCr & "1 decimal place in m's)"
End If
' HyperLink1.Text = "..(more)"
' HyperLink1.NavigateUrl = "yr7.aspx"
End Sub |