Delボタン

Filename: デリートボタンのVB

    Protected Sub Delt_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Del.Click
        Dim obj As Button
        obj = CType(sender, Button) ' Object型からButton型にする
        Dim password As String
        password = Request("password" & obj.Text)
        Dim nodes As XmlNodeList
        nodes = xmlDoc.SelectNodes("//node[id=" & obj.Text & "]")
        For Each node As XmlNode In nodes
            For Each member As XmlNode In node.ChildNodes
                Select Case member.Name '.Name タグの名前
                    Case "name"
                        'Name.Text = member.InnerText
                    Case "subject"
                        'Subject.Text = member.InnerText
                    Case "body"
                        'Body.Text = member.InnerText
                    Case "password"
                        If password <> member.InnerText Then
                            Return
                        End If
                End Select
            Next
            xmlRoot.RemoveChild(node)
        Next
        '保存
        xmlDoc.Save(xmlFilePath)
    End Sub