Chào cả nhà,
Project mình làm đã chạy được 1 năm, bây giờ không hiểu sao lại báo lỗi thế này
Sub MouseMove(ByVal Item, ByVal Button, ByVal Shift, ByVal x, ByVal y)
Dim mInt
For mInt = 1 To HMIRuntime.Screens.Count
If HMIRuntime.Screens(mInt).ObjectName = "Footer" Then
HMIRuntime.Screens(mInt).ScreenItems(4).Text = "SL36_B"
HMIRuntime.Screens(mInt).Refresh
Exit For
End If
Next
End Sub
Nó báo lỗi như sau:
Picture: OverView.Pdl_Events
Function: Sub SL36_B_MouseMove(ByVal Item, ByVal Button, ByVal Shift, ByVal x, ByVal y)
Line: 6
Error: HMIRuntime.get_Screens: No such interface supported
Rất mong sự trợ giúp!
hpecom.
Project mình làm đã chạy được 1 năm, bây giờ không hiểu sao lại báo lỗi thế này
Sub MouseMove(ByVal Item, ByVal Button, ByVal Shift, ByVal x, ByVal y)
Dim mInt
For mInt = 1 To HMIRuntime.Screens.Count
If HMIRuntime.Screens(mInt).ObjectName = "Footer" Then
HMIRuntime.Screens(mInt).ScreenItems(4).Text = "SL36_B"
HMIRuntime.Screens(mInt).Refresh
Exit For
End If
Next
End Sub
Nó báo lỗi như sau:
Picture: OverView.Pdl_Events
Function: Sub SL36_B_MouseMove(ByVal Item, ByVal Button, ByVal Shift, ByVal x, ByVal y)
Line: 6
Error: HMIRuntime.get_Screens: No such interface supported
Rất mong sự trợ giúp!
hpecom.

Comment