Foro NoterosChile
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Reconocer Plataforma (Windows/Macintosh,..)

Ir abajo

Reconocer Plataforma (Windows/Macintosh,..) Empty Reconocer Plataforma (Windows/Macintosh,..)

Mensaje por JoseRios Lun Feb 25, 2008 5:56 pm

Con la función Platform podemos reconocer la plataforma en la cual se encuentra corriendo el cliente/servidor.

Código:
Dim s As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim plat As String
plat = s.Platform
If plat = "Windows/32" Then
  Messagebox "Esta plataforma es Windows/32"
  Call workspace.OpenframeSet("PlataformaPc")
Elseif plat="Macintosh" Then
  Messagebox "Esta plataforma es Macintosh"
  Call workspace.OpenframeSet("PlataformaMac")
End If
JoseRios
JoseRios

Cantidad de envíos : 39
Edad : 39
Localización : Santiago, Chile
Fecha de inscripción : 25/02/2008

http://noteroschile.wordpress.com

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.