最新版的TX20好像TextControl2.InputFormat.FontSize有问题了。
以下是以前dof的代码
- TextControl2.InputFormat.FontSize = 700
- TextControl2.Selection.Text = "Created by TX Text Control" + vbNewLine
- TextControl2.InputFormat.FontSize = 200
- TextControl2.Selection.Text = "226.2mm"
- TextControl2.InputFormat.Superscript = True
- TextControl2.Selection.Text = "2"
- TextControl2.InputFormat.Superscript = False
- TextControl2.Selection.Text = vbNewLine
- TextControl2.InputFormat.FontSize = 400
- TextControl2.Selection.Text = "226.2mm"
- TextControl2.InputFormat.Superscript = True
- TextControl2.Selection.Text = "2"
- TextControl2.InputFormat.Superscript = False
- TextControl2.Selection.Text = vbNewLine
- TextControl2.InputFormat.FontSize = 600
- TextControl2.Selection.Text = "226.2mm"
- TextControl2.InputFormat.Superscript = True
- TextControl2.Selection.Text = "2"
- TextControl2.InputFormat.Superscript = False
- TextControl2.Selection.Text = vbNewLine
- TextControl2.InputFormat.FontSize = 800
- TextControl2.Selection.Text = "226.2mm"
- TextControl2.InputFormat.Superscript = True
- TextControl2.Selection.Text = "2"
- TextControl2.InputFormat.Superscript = False
复制代码
TX19及以前版本运行正常
1.jpg
(21.76 KB, 下载次数: 122)
|
|