请问大师们,如何将普通文本转换为代码行? Post By:2022/12/11 6:17:00 [显示全部帖子]
比如文本如下,将其保存在某个文本框在中:
“Dim s As
String = "±×÷≌≈∽∝≠≮≯≤≥‰♂♀$¥℃№☆★○●◎◇◆□■△▲" Dim g As New RibbonMenu.Group("Symbol")
'定义一个功能组,功能组的名称设为"Symbol" g.Text = "符号"
'设置功能组的标题 RibbonTabs("实战演练").Groups.Add(g) '将功能组添加到实战演练功能区 For i As
Integer = 0
To s.Length - 1
Dim b As New RibbonMenu.Button("Symbol" & i) '定义一个标准按钮 b.Text= s.Chars(i) '设置按钮的标题 g.Items.Add(b) '将按钮添加到功能组中” Next