Ifix4.5专家向导中找不到的专家

 

Private Sub cmdTempSPSlider_Click()
   'The Comments below have been added automatically.
   'Any changes could cause adverse effects to the functionality
   'of the Script Authoring Experts.
   'WizardName=DataEntry
 On Error GoTo ErrorHandler
 If blnDataEntryFrmFlag <> True Then
     Dim dblLow, dblHigh As Double
     Dim blnFetch, blnContinous As Boolean
     Dim intReturn As Integer
     GetFormSlider
     FetchLimits "Fix32.THISNODE.IFIX1_PHARM_@EQUIPMENT_ID@_TEMP_SP.F_CV", dblHigh, dblLow, intReturn
     If (dblHigh > 32767) Then
         MsgBox " 数据输入的最大值为32767,请重新输入。"
         Exit Sub
     End If
     blnFetch = True
     blnContinous = False
     Slider.SetWriteContinous blnContinous
     Slider.Slider1.min = CInt(dblLow)
     Slider.Slider1.max = CInt(dblHigh)
     Slider.GetTh