控件:输入输出域、组合框、按钮、实时趋势控件
对象名称:IOI
域类型:输入
对象名称:cb
索引与文本一一对应
Sub OnClick(Byval Item)
Dim ctrltxt
Dim ctrltrend,ctrlcb
Dim TimeRangFactor,TimeRangBase
Dim mylistindex
Set ctrltxt=ScreenItems("IOI")
Set ctrltrend=ScreenItems("ctrltrend")
Set ctrlcb=ScreenItems("cb")
If ctrlcb.SelText ="500毫秒" Then
ctrltrend.TimeAxisTimeRangeBase=0.5*1000
End If
If ctrlcb.SelText ="1秒" Then
ctrltrend.TimeAxisTimeRangeBase=1*1000
End If
If ctrlcb.SelText ="1分钟" Then
ctrltrend.TimeAxisTimeRangeBase=60*1*1000
End If
If ctrlcb.SelText ="1小时" Then
ctrltrend.TimeAxisTimeRangeBase=60*60*1000
End If
If ctrlcb.SelText ="1天" Then
ctrltrend.TimeAxisTimeRangeBase=24*60*60*1000
End If
'ctrltrend.TimeAxisTimeRangeFactor = 5
ctrltrend.TimeAxisTimeRangeFactor = ctrltxt.InputValue
'Msgbox ctrltxt.InputValue
End Sub
项目地址:https://download.csdn.net/download/weixin_37928884/88463004