如何让一些不可见字符 如 chr(30) chr (31) 再 meno 或 grid 里显示为 小黑方框

Question

因为字符串 里包含有 不可见字符 再显示的时候 想以小黑方框的形式显示出来 以表示这里有个字符 

Answer 1

sub ReplaceInVisible(byref s as string)
  dim i as long
  for i=1 to len(s)
    select case ascw(mid$(s,i,1))
      case 0 to 31 '可添上其它不可见字符的范围
        mid$(s,i,1) = "□"
    end select
  next
end sub

Answer 2

可我把人家显示的小黑框字符 拷贝过来 asc("□") 返回31 
这不奇怪了呀  当然考过来 字符是不可见的这是怎么回事

Answer 3

关键我发现  象chr(31) 字符 len()时候 不占用长度 mid ()也无影响 如果 替换了 就占了 位置