| XML Kiosk |
| Technologie | XAS.Technology | Version | V 6.0.1 |
| Dernière modification | Samedi 27 Mars 2010 | Par | Zaïr BEZGHICHE |
| Dernière vérification | Dimanche 4 Avril 2010 | Par | Support France |
| Thème | XML Service Collaboratif, (Web, Web Services, PDA, WidGet, Fat Client) | Fonction | FrmEditeur.cbo_Click |
| Prototype |
| Sub cbo_Click (Index As Integer) |
| Usage | |||
| XML-Service-Collaboratif.cbo_Click(...) | |||
| HTTP (GET,POST) | SOAP WSDL | SOAP REST | XML-RPC |
| Format de sortie | |||
| XML | HTML | TEXT | EXCEL(CSV) |
| Code Source - développement open source |
| Sub cbo_Click (Index As Integer) |
Sub cbo_Click (Index As Integer)
Dim Ret%
Dim s$
Dim sId$
s = Trim$(Left$(cbo(Index).Text, 35))
sId = Trim$(Right$(cbo(Index).Text, 10))
If Val(sId) <> 0 Then
Select Case Index
Case 0
GlobxRpcComponent = ""
Ret = HandleComponent(s, sId)
Case 1
GlobxRpcModule = s
Ret = PosCombo(cbo(2), "0")
Ret = HandleFuncEvents(s, sId, 51)
Case 2
GlobxRpcModule = s
Ret = PosCombo(cbo(1), "0")
Ret = HandleFuncEvents(s, sId, 53)
Case 3
GlobxRpcFunction = s
Ret = HandleMethod(s, sId, Index)
Case 4
GlobxRpcFunction = s
Ret = HandleMethod(s, sId, Index)
End Select
Else
If Index = 0 Then
GlobxRpcComponent = ""
Ret = ClearAll(1, 4)
Ret = xRPCCloseSession(99)
Ico(0).Visible = False
Ico(1).Visible = False
xLb(3).Caption = ""
End If
End If
End Sub
|
| Références XAS.Technology |
| Trim , Left , Right , Val , |
| Audience |
| Cette documentation est destinée aux personnes s'intéressant aux systèmes d'information collaboratifs. Les Webservices, les architectures collabortives et distribuées, les moteurs transactionnelles et les concepts de programmation orientés objet. |
| XAS Services - Zaïr BEZGHICHE - Copyright 1991-2011 tous droits réservés- Powered by XAS.Technology |