VB 如何自动选择文本框里面特定位置的字符？

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

例如文本框1（multiline=true)

我要学习编程-电脑网络

当鼠标点击“我要学习编程”或者“电脑网络”的任何一个字符的时候，

就把“－”符号前面或者后面的字符全选。

如图hiphotos.baidu/%CC%EC%B7%E7%BA%A3%CB%AE/pic/item/35e007ce7600c038b600c8bb

解析:

文本框有 表示选择开始。长度的属性，

好像是 selStart 和selTextLength，这两个属性都是可读写的

再结合字符串查找函数就可以做到了。

给点分啊，我帮你写了^_^

vs2005 ＋vb 测试通过，

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBox1.Text = "我爱编程－王朝知道"

End Sub

Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click

Dim curindex As Integer = TextBox1.SelectionStart

Dim ganindex As Integer = TextBox1.Text.IndexOf("－")

If curindex <ganindex Then

TextBox1.SelectionStart = 0

TextBox1.SelectionLength = ganindex

Else

TextBox1.SelectionStart = ganindex + 1

TextBox1.SelectionLength = TextBox1.Text.Length - ganindex

End If

End Sub

End Class

如果是6.0 的话，可能属性名字有点变化，indexof函数可以使用

mid或者 instr函数来代替

1、在vb中添加一个下拉菜单，其中包含一个子菜单，怎么设置使子菜单的初始状态为选中？

假设子菜单名字为 m2

d出之前

m2.checked = true 就行

2、通用对话框应该有的,你的vb是不sp6的

单选框还是复选框，单选框用Option1(XX).Value

判断，true表示选中，false表示未选中

注意，添加option控件（圆形）时，最好再复制几个搞成数组，这样选中一个后其他的会自动取消，用于单选时很方便

---