txtsrc.text=left(txtsrc.text,txtsrc.selstart)&mid(txtsrc.tex

来源：学生作业帮编辑：大师作文网作业帮分类：数学作业时间：2024/11/11 17:20:51

txtsrc.text=left(txtsrc.text,txtsrc.selstart)&mid(txtsrc.text,txtsrc.selstart+txtsrc.sellength+1)
顺便举个例子方便理解,

$txtsrc.text=left(txtsrc.text,txtsrc.selstart)&mid(txtsrc.tex$

'Left(txtsrc.Text, txtsrc.SelStart)表示从文本框的左边开始取字符,一直取到光标前面那个字符
'txtsrc.SelStart表示在文本框中国光标的起始位置,如文本框的内容是"abc",我把光标放在a后面,那么txtsrc.SelStart=1,所以Left(txtsrc.Text, txtsrc.SelStart)="a"
'首先附上Mid函数的用法（别嫌长,基本函数一定要好好学...)
Mid(string, start, length)
参数
string 字符串表达式,从中返回字符.如果 string 包含 Null,则返回 Null.
Start string 中被提取的字符部分的开始位置.如果 start 超过了 string 中字符的数目,Mid 将返回零长度字符串 ("").
Length 要返回的字符数.如果省略或 length 超过文本的字符数（包括 start 处的字符）,将返回字符串中从 start 到字符串结束的所有字符.
'txtsrc.SelLength表示文本框选中文字的长度,如文本框的内容是"123",我选中"23",那么txtsrc.SelLength=2
' txtsrc.SelStart + txtsrc.SelLength + 1 表示选中文字后面的下一个字符的位置,如文本框的内容是"1234",我选中"23",那么txtsrc.SelStart + txtsrc.SelLength + 1=1+2+1=4,也就是说接下来的Mid函数从第四个字符开始取
'所以'Mid(txtsrc.Text, txtsrc.SelStart + txtsrc.SelLength + 1)表示从文本框选中字符后的第一个字符开始取,一直取到最后一个
最简单的方法就是放到VB中实际操作下,如文本框中的内容是"Text1",我选中e,那么最后文本框的内容是"Txt1"

txtsrc.text=left(txtsrc.text,txtsrc.selstart)&mid(txtsrc.tex TextBox1.Text = Mid(TextBox1.Text,1,Len(TextBox1.Text) - VB程序当中,Mid(text1.Text, text1.SelStart + text1.SelLength + 1) a(i) = Mid(Text1.Text,i, excel中的公式"=TEXT(DATE(LEFT(A1,4),MID(A1,6,2),RIGHT(A1,3)),"yy Private Sub Command1_Click() A = Val(Text1.Text):B = Val(Tex txtShow.Text = txtShow.Text.Substring(0,txtShow.Text.Length =TEXT(--(19*(LEN(N4)=15)&MID(N4,7,6+(LEN(N4)=18)*2)),"####-# =DATEDIF(TEXT(MID(A1,7,INT(LEN(A1)/2-1)),"#-00-00"),"2010-12 =DATEDIF(TEXT(MID(F5,7,LEN(F5)/2-1),"0-00-00"),TODAY(),"Y") =DATEDIF(TEXT(MID(A2,7,INT(LEN(A2)/2-1)),"#-00-00"),“2011-1- style=text-decoration: