Author: rafael Date: 2005-04-20 13:55:48 -0400 (Wed, 20 Apr 2005) New Revision: 43350
Added: trunk/xsp/test/button-vb.aspx Log: first MonoBASIC sample Added: trunk/xsp/test/button-vb.aspx =================================================================== --- trunk/xsp/test/button-vb.aspx 2005-04-20 17:46:50 UTC (rev 43349) +++ trunk/xsp/test/button-vb.aspx 2005-04-20 17:55:48 UTC (rev 43350) @@ -0,0 +1,28 @@ +<%@ Page Language="VB" Explicit="true" Strict="True" %> +<html> +<head> + <script runat="server"> + Sub Button1_OnClick (Source As object, e As EventArgs) + If (Button1.InnerText = "Enabled 1") Then + Span1.InnerHtml="You deactivated Button1" + Button1.InnerText = "Disabled 1" + Else + Span1.InnerHtml="You activated Button1" + Button1.InnerText = "Enabled 1" + End If + End Sub + </script> + <title>HtmlButton VB.NET Sample</title> +</head> +<body> + <h3>HtmlButton VB.NET Sample</h3> + <form id="ServerForm" runat="server"> + <button id=Button1 runat="server" OnServerClick="Button1_OnClick"> + Button1 + </button> + + <span id=Span1 style="color:red" runat="server" /> + </form> +</body> +</html> + _______________________________________________ Mono-patches maillist - [email protected] http://lists.ximian.com/mailman/listinfo/mono-patches
