VB源代码解释器
Dim pData() As MyLineData '每行文本
Dim LineStr() As MyLineStr '连线字符
Dim pFun() As String '函数数组
Dim pExp() As String '解释数组
Dim pSpl() As String '查询函数分类
Dim ShowRow As Boolean '显示行号
Dim ShowLine As Boolean '显示连线
Dim ShowExplain As Boolean '显示解释
Dim TViewHeight As Long 'TView 高度