| XML Kiosk |
| Technologie | XAS.Technology | Version | V 6.0.1 |
| Dernière modification | Dimanche 3 Janvier 2010 | Par | Zaïr BEZGHICHE |
| Dernière vérification | Mardi 5 Janvier 2010 | Par | Support France |
| Thème | Administration des emails, (Web, Web Services, PDA, WidGet, Fat Client) | Fonction | FrmMail.Form_EvtUser |
| Prototype |
| Sub Form_EvtUser (Evt As Integer, id As Integer, Idn As Integer, RefObject As String, sParam As String) |
| Usage | |||
| Administration-des-emails.Form_EvtUser(...) | |||
| HTTP (GET,POST) | SOAP WSDL | SOAP REST | XML-RPC |
| Format de sortie | |||
| XML | HTML | TEXT | EXCEL(CSV) |
| Code Source - développement open source |
| Sub Form_EvtUser (Evt As Integer, id As Integer, Idn As Integer, RefObject As String, sParam As String) |
Sub Form_EvtUser (Evt As Integer, id As Integer, Idn As Integer, RefObject As String, sParam As String)
Dim Ret%
Dim s$
If Evt = 23 Then
For Ret = 0 To 4
txt(Ret).Text = ""
Next Ret
Ret = PosCombo(cb(0), "2")
Ret = PosCombo(cb(1), "1")
Ret = PosCombo(cb(2), "2")
Ret = PosCombo(cb(3), "2")
Ret = PosCombo(cb(4), "2")
Ret = PosCombo(cb(5), "0")
Ret = PosCombo(cb(6), "2")
Ret = PosCombo(cb(7), "2")
StrURI = ""
If XasUserGetString(6, s) = True Then
txt(0).Text = s
End If
If XasUserGetString(7, s) = True Then
txt(1).Text = s
End If
If XasUserGetString(8, s) = True Then
txt(2).Text = s
End If
If XasUserGetString(9, s) = True Then
txt(3).Text = s
End If
If XasUserGetString(10, s) = True Then
StrURI = s
End If
End If
End Sub
|
| Références Composants |
| Administration-des-emails-FrmMail-PosCombo, |
| Références XAS.Technology |
| XasUserGetString , |
| 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 |