会员
众包
新闻
博问
闪存
赞助商
HarmonyOS
Chat2DB
所有博客
当前博客
我的博客
我的园子
账号设置
会员中心
简洁模式
...
退出登录
注册
登录
程序人生__Smartpig
心情驿站
ttttt
Public
Overrides
Sub GetTokenOutliningAction()
Sub
GetTokenOutliningAction(
ByVal
tokenStream
As
TokenStream,
ByRef
outliningKey
As
String
,
ByRef
tokenAction
As
OutliningNodeAction)
'
Get the token
Dim
token
As
Token
=
tokenStream.Peek()
'
See if the token starts or ends an outlining node
Select
Case
token.Key
Case
"
OpenCurlyBraceToken"
outliningKey
=
"
CodeBlock"
tokenAction
=
OutliningNodeAction.Start
Exit
Select
Case
"
CloseCurlyBraceToken"
outliningKey
=
"
CodeBlock"
tokenAction
=
OutliningNodeAction.
End
Exit
Select
Case
"
MultiLineCommentStartToken"
outliningKey
=
"
MultiLineComment"
tokenAction
=
OutliningNodeAction.Start
Exit
Select
Case
"
MultiLineCommentEndToken"
outliningKey
=
"
MultiLineComment"
tokenAction
=
OutliningNodeAction.
End
Exit
Select
Case
"
XMLCommentStartToken"
outliningKey
=
"
XMLComment"
tokenAction
=
OutliningNodeAction.Start
Exit
Select
Case
"
XMLCommentEndToken"
outliningKey
=
"
XMLComment"
tokenAction
=
OutliningNodeAction.
End
Exit
Select
Case
"
RegionPreProcessorDirectiveStartToken"
outliningKey
=
"
RegionPreProcessorDirective"
tokenAction
=
OutliningNodeAction.Start
Exit
Select
Case
"
EndRegionPreProcessorDirectiveStartToken"
outliningKey
=
"
RegionPreProcessorDirective"
tokenAction
=
OutliningNodeAction.
End
Exit
Select
End
Select
End Sub
posted on
2005-04-07 03:02
Smartpig
阅读(
604
) 评论(
0
)
收藏
举报
刷新页面
返回顶部
导航
博客园
首页
新随笔
联系
订阅
管理
公告