RT,想修改listbox中选择项的内容,翻MSDN也没找到我是通过在inputbox中输入来修改的,能添加,但是没法对inputbox中的内容和原选择项中的内容进行判断...
RT,想修改listbox中选择项的内容,翻MSDN也没找到
我是通过在inputbox中输入来修改的,能添加,但是没法对inputbox中的内容和原选择项中的内容进行判断所以不好确定是否删除原项
最好是能在原选择项的基础上进行修改,注意是vb.net不是C#和ASP.net,
还有个问题就是listbox读取本地内容中文显示乱码,应该怎么转换才不会出现乱码,读取本地TXT文件代码如下:
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.Filter = ".txt|*.txt|all files(*.*)|*.*"
openFileDialog1.Title = "选择本地文件"
openFileDialog1.AutoUpgradeEnabled = True
openFileDialog1.CheckFileExists = True
' Show the Dialog.
' If the user clicked OK in the dialog and
' a .CUR file was selected, open it.
If openFileDialog1.ShowDialog() = DialogResult.OK Then
' Assign the cursor in the Stream to the Form's Cursor property.
Dim sr As New System.IO.StreamReader(openFileDialog1.FileName)
'New StyleUriParser system.IO.
Do While sr.Peek > -1
'TextBox1.Text &= (sr.ReadLine)
'ListBox1.Items.Add(sr.ReadToEnd)
RichTextBox1.Text &= (sr.ReadToEnd())
Loop
sr.Close()
第一个问题是不是 查找ListBox中的指定项,并替换啊!?
下面给的是找到指定的项,并替换成指定内容!
listbox中有4项,分别是{徐XX,张XX,王XX,李XX}
for i = 0 to 3 'listbox中的项也是从0开始 的
if ListBox1.Items.Item(i)= "张XX" then
lixtbox1.items.item(i)="谢XX" '把“张XX”替换成了“谢XX”
end if
next
这样就完成一个替换了!
dim FilePath as string = Application.StartupPath & "\config.Txt",
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(FilePath,System.Text.Encoding.Default)
这样就不会有乱码了!
如果还有问题,再补充!