Question

我创建了一个简单的程序，可以读取和写入bin文件夹中的输出文件，它几乎完美无缺。 btnRemove删除cboFriends中的选定项目（这很好）。但是，我还需要btnRemove来删除在文本框部分输入的文本。我该怎么做呢？我提前为这个问题的基本内容道歉。

Public Class frmMain

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
    Me.Close()
End Sub
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing

    Dim outFile As IO.StreamWriter

    outFile = IO.File.CreateText("MyFriends.txt")

    For intIndex As Integer = 0 To cboFriends.Items.Count - 1
        outFile.WriteLine(cboFriends.Items(intIndex))
    Next intIndex

    outFile.Close()

End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim inFile As IO.StreamReader
    Dim strInfo As String

    If IO.File.Exists("MyFriends.txt") Then
        inFile = IO.File.OpenText("MyFriends.txt")
        Do Until inFile.Peek = -1
            strInfo = inFile.ReadLine
            cboFriends.Items.Add(strInfo)
        Loop
        inFile.Close()

    End If

End Sub
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

    If cboFriends.Items.Contains(cboFriends.Text) Then
    Else
        cboFriends.Items.Add(cboFriends.Text())
    End If

End Sub
Private Sub btnRemove_Click(sender As Object, e As EventArgs) Handles btnRemove.Click
    cboFriends.Items.Remove(cboFriends.Text)
End Sub

结束班

Answer 1

看来您正在寻找SelectedText属性

要将其设置为空白字符串，请执行以下操作

cboFriends.SelectedText = ""

Answer 2

如果选择了文本，

cboFriends.SelectedText将起作用，但如果我键入“asdfjkl;”然后按[删除]它什么都不做。进一步挖掘 cboFriends.Text =“”就可以了！

清除在文本框部分输入的组合框文本

2 个答案: