vb 文件夹删除调用问题

11 |

3 | 2012-9-24 16:35:02 | 显示全部楼层 |阅读模式

你还是改用LIST控件比较方便但你强行要用text1,也能做成功，但比较麻烦，思路如下：你能用text1换行，必定设定他的mutiline=true可以用split分割文本,如下Dim sa() As Stringsa = Split(Text1.Text, Chr(13) & Chr(10))MsgBox sa(0)'取出第一行文本也可以用循环的方法取出每行文本for i=0 to ubound(sa)-1当你选中某行后，用Text1.SelText取得你选中的文本用instr(sa(i),Text1.SelText)>0判断在哪行，例如在第二行则执行对应deletefiletext1.text变...

使用道具举报