'WebSocket class
Sub Class_Globals
Private ws As WebSocket
Private wspgName As String = "wspgBS"
Private wspgID As String
'====================================JQUERY=====================================
Private jqm As JQueryElement
'================================================================================
End Sub
Public Sub Initialize
Log(wspgName & " Initialize")
End Sub
Private Sub WebSocket_Connected (WebSocket1 As WebSocket)
ws = WebSocket1
wspgID = ws.Session.Id
Log(wspgID)
SetPage
End Sub
Private Sub SetPage
Dim cHTML As String
cHTML = $"
<div>
<input type="date" value="2022-07-19"
min="2022-07-19" class="form-control validate-text" placeholder="Arrival"
style="width: 100%; align-items: center;">
</div>
"$
jqm.SetHtml(cHTML)
ws.Flush
End Sub
Private Sub jqm_Click(Params As Map)
Log("CLICK")
End Sub
Private Sub WebSocket_Disconnected
Log(wspgName & " Disconnected !")
End Sub