XAS, Xml Server, Xml Services, XML Kiosk, Administration des entités, (Web, Web Services, PDA, WidGet, Fat Client)

Administration des entités, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Samedi 1 Mai 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Jeudi 13 Mai 2010	Par	Support France
Thème	Administration des entités, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmEntity.DoLbOnglet

Prototype

Function DoLbOnglet (Id As Integer) As Integer

Usage
Administration-des-entites.DoLbOnglet(...)
HTTP (GET,POST)	SOAP WSDL	SOAP REST	XML-RPC

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function DoLbOnglet (Id As Integer) As Integer

Function DoLbOnglet (Id As Integer) As Integer
Dim i%
Dim Ret%

For i = 0 To 4
    If XasUserGetStateRollOver(LbOnglet(i)) <> 2 Then
	Ret = XasUserSetStateRollOver(LbOnglet(i), 2)
    End If
Next i
Ret = XasUserSetStateRollOver(LbOnglet(Id), 1)

CelFond(1).Visible = False
CelFond(2).Visible = False
CelFond(8).Visible = False
CelFond(11).Visible = False
CelFond(14).Visible = False
CelTxt.Visible = False
Ret = XasUserSetProperties(Cel(2), 211, "")

CurEcran = Id
Select Case Id
    Case 0
	CelFond(1).Visible = True
	If ModeEasy = True Then
	    Ret = DoEasyMode(0)
	End If
	CelTxt.Visible = True
    Case 1
	CelFond(2).Visible = True
    Case 2
	CelFond(8).Visible = True
    Case 3
	CelFond(11).Visible = True
    Case 4
	Ret = XasUserSetProperties(Cel(2), 211, "multipart/form-data")
	CelFond(14).Visible = True
End Select

End Function

Références Composants

Administration-des-entites-FrmEntity-DoEasyMode,

Références XAS.Technology

XasUserGetStateRollOver , XasUserSetStateRollOver , XasUserSetProperties ,

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.