Question

VB中,如何使鼠标选中text1中的一些字符后,在text2中显示出第一个字符的顺序号，在text3中显示选中字符个数

Answer 1

Private Sub Text1_Click()
Text2.Text = InStr(Text1.Text, Left(Text1.SelText, 1))
Text3.Text = Text1.SelLength
End Sub

追问

还有这题......嘿嘿
VB中,如何单击列表框中某项，形状中的填充参数改变..............

Answer 2

你说的顺序号是，ASCII码的值还是英文中在第几个？？不懂。 只要告诉我什么是顺序号，就会做了

追问

诶.....就是在一段有英文也有中文的话中...........