再问高手：定义一个非可视字符常量，真的这么难吗？想要多少分尽管说。

Question

真的这么难吗？小弟刚用VB不久，难道一直都有VB的人也不知道吗？
难道VB中就没有这么定义过常量吗？

Answer 1

Private  Const  ESC  As  String  =  "&H1B"
Private  Const  ESC2  As  long =  &H1B或在使用时把ESC2  转换成chr(ESC2)

Answer 2

Option ExplicitPrivate Const ESC As String * 1 = &H1BPrivate Sub Command1_Click()
  MsgBox CStr(ESC) & "L"
End Sub希望高人用这断代码测试，如果定义的正确，输出应该是一个控制符和一个L

Answer 3

1. Private Const ESC As String * 1 = &H1B 这样定义常量ESC最后的结果是2,因为&H1B是十进制的27,而在定义ESC的类型时，你指定的是长度为1的字符型常量。
2.如果要完成你的需求，虽然比C,Delphi要麻烦一些，但也不会太耽误时间
Option ExplicitPrivate Const ESC = &H1BPrivate Sub Command1_Click()
  MsgBox Chr(ESC) & "L"
End Sub
或者Option ExplicitPrivate Const ESC As Integer = &H1BPrivate Sub Command1_Click()
  MsgBox Chr(ESC) & "L"
End Sub

Answer 4

楼上的办法好多人都这么说，可以，但是好多地方都用到这个常量，你不觉得烦吗？
那样的话不如写个函数来得简单。而且，还要定义好多别常量，都有用到这个常量的啊。
暂时想到的办法：
用Delphi先写个程序输出0x1B的字符，然后拷贝到VB常量定义中。
哎.....，VB真的是这样吗？
希望有人能够给出简单的办法。

Answer 5

并不烦啊
调用的时候只是把cstr(esc)改成了chr(esc)..??!!

Answer 6

呵呵，楼上的，你说是
str = ESC & "Uc" 简单容易理解
还是
str = Chr(ESC) & "Uc"
简单容易理解呢？
如果只是几个地方，也无所谓，是好多地方要用到这个控制符。
再有就是要定义好多常量也要用到这个，如果能够定义好的话再定义其他的不是很简单直观了吗？
Private  Const  READPORT  As  String  =  ESC & "]"

Answer 7

也可以用ＶＢ先写个程序输出CHR(27)的字符，然后拷贝到VB常量定义中,比如:
text1.text=chr(27)