如题

解决方案 »

  1.   

    先返回richtextbox的文本,再提取字符
    aa=richtextbox1.text
    bb=mid(aa,1,6)
    bb就是你要的值
      

  2.   

    dim s as string
    s=left(richtextbox.text,0,6)
    不知行不行
      

  3.   

    先返回richtextbox的文本,再提取字符
    aa=richtextbox1.text
    bb=mid(aa,1,6)
    bb就是你要的值
      

  4.   

    dim a as string
    dim b as string 
    a=richtextbox1.text
    b=left(a,6)
    magbox b,,"提示信息"
      

  5.   

    msgbox mid$(richtextbox1.text,1,6)