(1动态设计.ppt

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim list1 As ListBox list1 = Master.FindControl(ListBox1) list1.Items.Clear() If RadioButton1.Checked Then list1.Items.Add(吾爱孟夫子，风流天下闻) list1.Items.Add(红颜弃轩冕，白首卧松云) list1.Items.Add(醉月频中圣，迷花不事君) list1.Items.Add(高山安可仰，徒此揖清芬) ElseIf (RadioButton2.Checked) Then list1.Items.Add(花间一壶酒，独酌无相亲) list1.Items.Add(举杯邀明月，对影成三人) list1.Items.Add(月既不解饮，影徒随我身) list1.Items.Add(暂伴月将影，行乐须及春) list1.Items.Add(我歌月徘徊，我舞影零乱) list1.Items.Add(醒时同交欢，醉后各分散) list1.Items.Add(永结无情游，相期邈云汉) ElseIf (RadioButton3.Checked) Then list1.Items.Add(青山横北郭，白水绕东城) list1.Items.Add(此地一为别，孤蓬万里征) list1.Items.Add(浮云游子意，落日故人情) list1.Items.Add(挥手自兹去，萧萧班马鸣) End If End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 运行界面 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 2. 使用@MasterType指令获取母版页中控件的引用 　　从内容页中访问指定的母版页的成员，可通过创建@ MasterType指令创建对此母版页的强类型引用。该指令的常用形式如下： 　　%@ MasterType VirtualPath=母板页文件路径 % 　　另外，母版页中将被访问的属性或方法声明为公共成员。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 【例6.6】　设计一个使用母版页MasterPage.master的内容页WForm6-4，用以显示诗人杜甫的相关诗篇，与WForm6-3内容页的功能类似。 其设计步骤如下： （1）打开MasterPage.master文件，添加以下公共方法： Public Sub setname(ByVal sn As String) Label1.Text = sn End Sub Public Sub clear() ListBox1.Items.Cle