2006年7月20日

摘要: 通常,脚本程序会修改一张显示页,从而在关闭该显示页时用户会被提示对它进行保存。可以在Display_BeforeClose过程中用以下代码取消这种提示。 Application.ActiveDisplay.Modified = False 阅读全文
posted @ 2006-07-20 15:14 zljini 阅读(240) 评论(2) 推荐(0) 编辑
摘要: Display.Starttime和Trend.ScaleMin是两个只读属性的示例。你不能直接对它们进行修改,而只能用Display.SetTimeRange和Display.SetTraceScale方法来修改它们的值。这给了你用Application.LastErrorMessage方法来确认属性的修改是否成功的机会 阅读全文
posted @ 2006-07-20 14:23 zljini 阅读(186) 评论(0) 推荐(0) 编辑
摘要: SetTimeRange和SetTimeRange两个方法是用于修改显示页和PI实体的开始时间及结束时间的。它不会修改显示页或趋势图的定义。而Trend.SetStartAndEndtime则不同,它实际上会改变趋势图的定义。 阅读全文
posted @ 2006-07-20 14:21 zljini 阅读(306) 评论(0) 推荐(0) 编辑
摘要: gettagname获得的总是带 PI服务器的点名 比如 \\loacalhost\sinusoid 我们往往需要这个 sinusoid其实这个是很简单的事情 无非是函数用用下面给出3个方法1 Dim ParseTagName As String Dim MyPos As Integer MyPos = InStr(3, Value1.GetTagName(1), "\", vbTextCo... 阅读全文
posted @ 2006-07-20 12:25 zljini 阅读(407) 评论(1) 推荐(0) 编辑

2006年7月17日

摘要: 本段代码的使用是为了简化代码的输入,如果你和我一样不熟悉的话,就跳过去,多写2句代码算了这次是打算使用VBE来工作的,有这个例子,先看第一个Sub test1()Dim i As IntegerDim myVBE As VBESet myVBE = Application.VBEWith myVBE.ActiveCodePane.CodeModule i = .ProcBodyLine("C... 阅读全文
posted @ 2006-07-17 16:43 zljini 阅读(353) 评论(0) 推荐(0) 编辑
摘要: 化了 将近一个月的时间,把PB进行了汉化更加细致的了解了PB对于部分使用者,一个汉化版本的PB,比较具备亲和力 阅读全文
posted @ 2006-07-17 10:34 zljini 阅读(501) 评论(2) 推荐(0) 编辑

2006年7月9日

摘要: 实时历史数据库增值软件包 V1.0 用户手册 1. 功能简介 实时历史数据库增值软件包是由sui(杭州)公司开发,面向实时历史数据库,增加数据库的功能,提高系统的部署实施速度。 2. 适用环境 本软件包经过测试,适用于PI 系统 Proc... 阅读全文
posted @ 2006-07-09 01:09 zljini 阅读(709) 评论(0) 推荐(0) 编辑

2006年6月15日

摘要: 数据集在pb的使用不少,对于简单的统计分析,很有效果一般先随便建立一个数据集,乱写一个表达式之后 ,我们点 value获得点,在txt修改表达式比直接建立dataset 也许来的快一点Dim x As PBObjLib.DatasetSet x = Application.ActiveDisplay.Datasets.GetDataset("MYDS")x.Expression = TextBox... 阅读全文
posted @ 2006-06-15 15:39 zljini 阅读(271) 评论(0) 推荐(0) 编辑
摘要: Dim MyMultiState As PBObjLib.MultiState Dim returnedMultiState As PBObjLib.MultiState Dim MyState As PBObjLib.MSState Dim bRtn As Boolean Set MyMultiState = Application.ActiveDisplay.SelectedSymbols... 阅读全文
posted @ 2006-06-15 15:27 zljini 阅读(266) 评论(1) 推荐(0) 编辑
摘要: 多状态和前者一样页面布局一下,tnd 换成2个多状态实体就是BTN一按,格式被复制与前面稍微不同的地方在于多状态格式设置用 set Dim MyMultiState As PBObjLib.MultiState Dim returnedMultiState As PBObjLib.MultiState Set MyMultiState = thisdisplay.SelectedSymbols.... 阅读全文
posted @ 2006-06-15 11:13 zljini 阅读(222) 评论(0) 推荐(0) 编辑