搬家第12天-152.Wincc V7.3 文本自动换行的实现

最近手头事情很忙，很长时间没有做练习了。今天我在看西门子技术论坛的时候，有人提出能不能实现静态文本根据字符长度自动换行，且英文不要在单词中间换行，我尝试过wincc的静态文本和IO域，都没有成功，多行文本控件又不适合做标注，于是想到了找activex控件实验，通过尝试Microsoft forms 2.0 label 可以满足需求。具体方法如下：

1. 先把Microsoft forms 2.0 Label添加到Activex控件列表。

2.在页面上添加该控件，把控件的WordWrap设置为"是"，控件名字修改为Label。

3.页面上添加两个按钮，分别测试中文字符串自动换行和英文字符串换行，鼠标点击事件分别如下：

Sub OnClick(ByVal Item) 
Dim label
Set label=screenitems("Label")
label.caption="this is a english sentence"
End Sub

 

Sub OnClick(ByVal Item) 
Dim label
Set label=screenitems("Label")
label.caption="这是一个中文语句测试"
End Sub

通过运行项目可以看到英文和中文句子自动换行没有问题，但是英文句子会在单词中间换行。不过通常我们的界面都是设计为中文，这个影响就不算什么了。