'Class module
Sub Class_Globals
Private mID As String
Private mWS As WebSocket
Private mData As List
End Sub
Public Sub Initialize(WS As WebSocket,ID As String,Titolo As String, d1 As String,d2 As String)
mWS = WS
mID = ID.ToLowerCase
Dim Script As String
Script = "var lineChart2 = new HeroCharts({ " & _
"'chart': {'type':'3dpie','chartcontainer':'" & mID &"','heading':'" & Titolo &"', 'width': 600," & _
"'height': 500,'originx': 0," & _
"'originy': 80," & _
"'colors': ['#33bdda', '#ff5904','#6baa01']," & _
"'legendposition': 'bottom'," & _
"'legendbox': true," & _
"'startingangle': '125',}, 'series': [ " & _
"{" & d1 & "}," & _
"{" & d2 & "}]," & _
"});" & _
" lineChart2.draw();"
mWS.Eval(Script, Array As Object(mID))
End Sub
Sub GetID() As String
Return mID
End Sub
' ###
Sub AddEvent(EventName As String, PreventDefault As Boolean)
EventName = EventName.ToLowerCase
mWS.RunFunction("b4j_addEvent", Array As Object("#" & mID, EventName, mID & "_" & EventName, PreventDefault))
End Sub
Sub RemoveEvent(EventName As String)
EventName = EventName.ToLowerCase
mWS.Eval("$(arguments[0]).off('" & EventName & "', $(arguments[1]))", Array As Object("#" & mID))
End Sub
Sub SetEventObjectName(EventObjectName As String, EventName As String, PreventDefault As Boolean)
EventObjectName = EventObjectName.ToLowerCase
EventName = EventName.ToLowerCase
RemoveEvent(EventName)
mWS.RunFunction("b4j_addEvent", Array As Object("#" & mID, EventName, EventObjectName & "_" & EventName, PreventDefault))
End Sub
' ###
Sub AppendTo(ElementID As String)
mWS.Eval("$(arguments[0]).appendTo($(arguments[1]))", Array As Object("#" & mID, "#" & ElementID.ToLowerCase))
End Sub
Sub Remove()
mWS.Eval("$(arguments[0]).remove()", Array As Object("#" & mID))
End Sub
Sub Resize(Left As String, Top As String, Width As String, Height As String)
Dim CSS As String
CSS = "$(arguments[0]).css({"
If Left <> -1 Then CSS = CSS & "'left':'" & Left & "px',"
If Top <> -1 Then CSS = CSS & "'top':'" & Top & "px',"
If Width <> -1 Then CSS = CSS & "'width':'" & Width & "px',"
If Height <> -1 Then CSS = CSS & "'height':'" & Height & "px',"
If CSS.EndsWith(",") Then
CSS = CSS.SubString2(0, CSS.Length - 1)
CSS = CSS & "});"
mWS.Eval(CSS, Array As Object("#" & mID))
End If
End Sub
