Foxtable(狐表)用户栏目专家坐堂 → 请问大师们,如何将普通文本转换为代码行?


  共有3313人关注过本帖树形打印复制链接

主题:请问大师们,如何将普通文本转换为代码行?

帅哥哟,离线,有人找我吗?
lruiqiu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:54 积分:571 威望:0 精华:0 注册:2011/10/2 13:50:00
请问大师们,如何将普通文本转换为代码行?  发帖心情 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


如何将文本框中的上述文本内容转换为可执行的代码?


 回到顶部
帅哥哟,离线,有人找我吗?
chen37280600
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1265 积分:7838 威望:0 精华:4 注册:2017/12/31 14:53:00
  发帖心情 Post By:2022/12/11 12:07:00 [只看该作者]

你说的这个功能是动态编译,在20210529后的版本已经取消,不能这样用了

 回到顶部