这个嘛，VB 的TEXTBOX有些功能你没有用上
.SelStart 开始选中的位置
.SelLength 选中长度
.SelText 选中文本
这三个都是可读写的
你试试
方法多种
1.得到当前位置,
选中左边到变量 ,变量 & 新的字符串 ,变量 & 右边的字符，输出到TEXTBOX
2.也是得到位置
选中某一个字符,可以是前也可以是后
然后把这个字符替换成 要加入的字符串,如果是选了左边的就是,选中字符 & 现要放入的字符,同理右边是现要放入的字符 & 选中的字符. 替换用
Replace
dim v as string
v=replace(now,"2008","2009"
在这里,替换就是选中的文本 SelText
简单例子
从第2位选中3个字符
text1.selstart=2
text1.sellength=3
msgbox text1.seltext
'替换
text1.seltext=now
'now是当前日期与时间的意思
临时写的,不知道行不行,
具体你试试,不懂的可以加我为好友,
号码 2,5,4,1,8,6,9,1,7
如果你是直接在text中输入，默认就是光标后面，如果通过其他控件添加，如下代码可以实现：
Dim s As String
s = Mid(Text1.Text, 1, Text1.SelStart)
s = s & "字符"
Text1.Text = s & Mid(Text1.Text, Text1.SelStart + 1, Len(Text1.Text) - Text1.SelStart)
明白楼主的意思，当输入第一个字母S的时候，就应该出现
ShowThisText
SHowNextText
ShowFileText
StopSth
StopThis
等等吧。
按楼上的意思，应该可以实现当你每次输入一个字母，就查找一个特定的数组里的字符串，有匹配的就都输出。
有一点，不知道java gui的表示中如何实现动态的显示下拉列表。好像只能固定在界面的某个位置。
另外，效率也是个问题，在eclipse里做这个动作时，就会导致短时间的停顿，才能显示下拉列表框。
另外，需要监听很多事件，键盘输入，鼠标的移动，下拉列表框中元素的选取。
还有，另外的监听线程的时间设置也是问题，不可能while（true）这样，是选100毫秒，50毫秒一中断等等。
真的很复杂。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024