vb.net删除子菜单 vba窗体按钮

vb.net编写一个为列表框添加删除选项的应用程序，如果该字符串在列表框中，

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If e.KeyChar.ToString() = Chr(13) Then

Dim str As String = TextBox1.Text

If Not ListBox1.Items.Contains(str) Then

ListBox1.Items.Add(str)

End If

End If

End Sub

Private Sub btn_Remove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If ListBox1.SelectedIndex 0 Then

ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)

End If

End Sub

Private Sub btn_Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

ListBox1.Items.Clear()

End Sub

相关问答

Q1: vb.net 如何删除窗体中多余的控件？

先在属性窗口中找到选择 按DELETE键就删vb.net删除子菜单了

Q2: VB.NET button单击事件，如何删除选中的单个ListView1项

Private Sub Botton_Click()

Listview1.RemoveItem Listview1.ListIndex

End Sub

Q3: vb.net删除文件

Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click

        Try

            ' 先建立目录以便用于后续vb.net删除子菜单的删除示范。

            If Not Directory.Exists("D:\网易") Then

                Directory.CreateDirectory(" D:\网易 \Test1")

                Directory.CreateDirectory(" D:\网易 \Test2")

                Directory.CreateDirectory(" D:\网易 \Test3")

            End If

            ' 删除子目录 Test1。

            Directory.Delete(" D:\网易 \Test1", True)

            ' 删除子目录 Test2。

            Dim myDirectoryInfo As New DirectoryInfo(" D:\网易 \Test2")

            myDirectoryInfo.Delete(True)

            ' 将目录 C:\AlexDirDemo 及其以下vb.net删除子菜单的文件和子目录全数删除。

            Directory.Delete(" D:\网易 ", True)

        Catch ex As Exception

            MessageBox.Show(ex.Message)

            Exit Sub

        End Try

        ' 启动 Windows 资源管理器。

        Process.Start("explorer.exe", "D:\")

    End Sub

Q4: vb.net 注册表删除操作 郁闷中……

这不是废话吗，DeleteSubKey只能删除调用实例的子项，并不能直接删除子子项。

关于vb.net删除子菜单和vba窗体按钮的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。