哪位大神能帮忙把这段代码转换下？

Question

Select Case e.Item.Text
            Case "简介"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label1"), Label).Text) & "</font>"
            Case "礼貌礼节"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label2"), Label).Text) & "</font>"
            Case "饮食习惯"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label3"), Label).Text) & "</font>"
            Case "节庆习俗"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label4"), Label).Text) & "</font>"
            Case "禁　　忌"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label5"), Label).Text) & "</font>"
            Case "艺术欣赏"
                Me.Label7.Text = Replace(Trim(CType(Me.GridView1.Rows(0).FindControl("label6"), Label).Text), "#P#", Server.MapPath("./media/V" & CType(Me.GridView1.Rows(0).FindControl("label7"), Label).Text) & ".mp4")
            Case "跟我学礼仪"
                Me.Label7.Text = Replace(Trim(CType(Me.GridView1.Rows(0).FindControl("label9"), Label).Text), "#P#", Server.MapPath("./media/A" & CType(Me.GridView1.Rows(0).FindControl("label7"), Label).Text) & ".mp4")
                'Me.Label7.Text = CType(Me.GridView1.Rows(0).FindControl("label6"), Label).Text
        End Select谁能帮忙把这段代码转换为ASP.NET的后台代码？

Answer 1

这难道不是asp.net的后台代码？

Answer 2

不是的，这个是VB的代码~~ Protected Sub Menu1_MenuItemClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MenuEventArgs) Handles Menu1.MenuItemClick
        Select Case e.Item.Text
            Case "简介"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label1"), Label).Text) & "</font>"
            Case "礼貌礼节"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label2"), Label).Text) & "</font>"
            Case "饮食习惯"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label3"), Label).Text) & "</font>"
            Case "节庆习俗"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label4"), Label).Text) & "</font>"
            Case "禁　　忌"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label5"), Label).Text) & "</font>"
            Case "艺术欣赏"
                Me.Label7.Text = Replace(Trim(CType(Me.GridView1.Rows(0).FindControl("label6"), Label).Text), "#P#", Server.MapPath("./media/V" & CType(Me.GridView1.Rows(0).FindControl("label7"), Label).Text) & ".mp4")
            Case "跟我学礼仪"
                Me.Label7.Text = Replace(Trim(CType(Me.GridView1.Rows(0).FindControl("label9"), Label).Text), "#P#", Server.MapPath("./media/A" & CType(Me.GridView1.Rows(0).FindControl("label7"), Label).Text) & ".mp4")
                'Me.Label7.Text = CType(Me.GridView1.Rows(0).FindControl("label6"), Label).Text
        End Select
    End Sub

Answer 3

vb代码和asp.net有什么矛盾？不过你这个代码是winfrom的菜单单击事件，又不知道asp.net里你用什么控件，也不知道你要转换成什么。

Answer 4

ASP.NET中我也用这个menu控件，就是在一个页面中，左边放的menu控件，然后分别点击“简介”啊等等，在页面的右边显示相应的内容，就是这样

Answer 5

我也不知道怎么说了，你是想利用上面的那段代码？别用了，那段代码是针对winfrom的，而且里面有很多控件穿插。你就按你开发asp.net的方法做吧，不就是一个点击菜单，修改标签内容而已，没有难度的呀

Answer 6

那我可以用menu控件嘛？还是换别的？用menu控件的话，怎么写呢？

Answer 7

当然可以用，不过开发网站有开发网站的方法，比如导航条，都是美工设计的，未必能配合好你的menu控件，而且这种点击变化的功能，本身就是导航功能，链接到不同页面更加合理。

Answer 8

那么menu控件中哪个属性能做到点击的时候连接到新的页面，但是这个新的页面是在本页的右边显示的呢？

Answer 9

不清楚你是单页面，还是框架页面，还是嵌入框架页面
menu控件是绑定数据？还是自己写的栏目？
如果是做导航，一般都不需要控件，直接html的a标签就可以实现

Answer 10

menu控件中的数据是自己写的，是单页面~

Answer 11

frameset 
http://topic.csdn.net/u/20100126/15/e75322fa-8c22-4f8a-90a3-2f498ece7343.html

Answer 12

我随便转换换一下，不好，别见怪~
Protected Sub Menu1_MenuItemClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MenuEventArgs) Handles Menu1.MenuItemClick
        Select Case e.Item.Text
            Case "简介"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label1"), Label).Text) & "</font>"
            Case "www.biezoukai.com"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label2"), Label).Text) & "</font>"
            Case "www.biezoukai.com"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label3"), Label).Text) & "</font>"
            Case "www.biezoukai.com"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label4"), Label).Text) & "</font>"
            Case "禁　　忌"
                Me.Label7.Text = "<font style='line-height:50px;'>　　" & Trim(CType(Me.GridView1.Rows(0).FindControl("label5"), Label).Text) & "</font>"
            Case "艺术欣赏"
                Me.Label7.Text = Replace(Trim(CType(Me.GridView1.Rows(0).FindControl("label6"), Label).Text), "#P#", Server.MapPath("./media/V" & CType(Me.GridView1.Rows(0).FindControl("label7"), Label).Text) & ".mp4")
            Case "跟我学礼仪"
                Me.Label7.Text = Replace(Trim(CType(Me.GridView1.Rows(0).FindControl("label9"), Label).Text), "#P#", Server.MapPath("./media/A" & CType(Me.GridView1.Rows(0).FindControl("label7"), Label).Text) & ".mp4")
                'Me.Label7.Text = CType(Me.GridView1.Rows(0).FindControl("label6"), Label).Text
        End Select
    End Sub