VB操作文本删除字符

来源：百度知道 编辑：UC知道 时间：2024/05/31 01:39:14
问题的是这样的
我有3个TEXT文本 现在TEXT3的文本显示侯选汉字格式如下
1你2我3他4好5日6也7可8了9哦0去
我是对文件进行操作取出的这些字 显示在TEXT3里 同时我做了KEYDOWN事件
当按下1的时候会把TEXT3里的1你输入到TEXT1里去 同时 我会在对文件进行操作 输出文件的内容到TEXT2里去例如1你2我3他4好5日6也7可8了9哦0去我在按下1的时候TEXT1会变成你你 但是现在问题是我按一下一TEXT1就会出2个你 问题也知道在哪就是多给TEXT1复了一次变量 但是不知道该怎么解决 部分代码给你参考 强人进 tmp1 到10 是10个全局变量 用来显示TEXT2的内容tmp1 = Mid(Text2.Text, 1, 1)
tmp3 = Mid(Text2.Text, 2, 1)
tmp4 = Mid(Text2.Text, 3, 1)
tmp5 = Mid(Text2.Text, 4, 1)
tmp6 = Mid(Text2.Text, 5, 1)
tmp7 = Mid(Text2.Text, 6, 1)
tmp8 = Mid(Text2.Text, 7, 1)
tmp9 = Mid(Text2.Text, 8, 1)
tmp10 = Mid(Text2.Text, 9, 1)
tmp11 = Mid(Text2.Text, 10, 1)
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKey1
Text1.Text = Text1.Text & Mid(Text3.Text, 2, 1)
Text3.Text = ""
Text4.Text = ""
Call b(hhh)
Text1.Text = Text1.Text & tmp1
Case vbKey2
Text1.Text = Text1.Text & Mid(Text3.Tex

我是 I Bless God 我不是发给你了吗？你怎么还在这里提问啊，把分给我

*1* Text1.Text = Text1.Text & Mid(Text3.Text, 2, 1)
Text3.Text = ""
Text4.Text = ""
Call b(hhh)
*2* Text1.Text = Text1.Text & tmp1

你给text1赋2次值有什么意义吗？

不懂啊1

哎呀 怎么要那么复杂？这个不是很简单的问题吗？
你的问题是不是这样？
1a2b3c4d5e6f……9i0j
然后按1就显示a，按3就显示c……？
那么直接把以下写在KeyPress（不是keydown）里面

on error resume next
Dim pressKey As string
Dim basicAscii As integer
Dim instrI as integer
Dim midStr as string
basicAscii = asc("0") '获得0的Ascii码，则1的ascii码=Asc("0")+1……类推，9的ascii码就是这个值+9
if keyascii < basicascii or keyascii > basicascii + 9 then exit sub '不是按下0 ~ 9数字键的话则退出sub
pressKey = Chr(KeyAscii) '将按下键的keyascii转换成“明文”即字符（"0" ~ "9"）
instrI = instr(1,Text1.text,presskey) '获得按下键的字符在文本中第一次出现的位置-1（相对于mid来说）
if instrI <> 0 then '如果找到了（没有