Gracias Diego El día 24/08/07, Diego Cepero <[EMAIL PROTECTED]> escribió: > > Existe… se llama TryCast. > > Saludos. > > > ------------------------------ > > *De:* Daniel Calvin [mailto:[EMAIL PROTECTED] > *Enviado el:* Viernes, 24 de Agosto de 2007 09:57 > *Para:* [email protected] > *Asunto:* [puntonet] Saber si un objeto implementa una interface (Ex: OT > rdp) > > > > Una aporte mas a la confusión general.... > > Les cuento algo que existe en c#, no se si esta disponible en vb, el > operador as.. > > En C# uno podria hacer una conversion de tipo segura, evitando una > exception verificando primero con is, ejemplo: > > IServiceProvider isp=null; > if (this is IServiceProvider) > ips = (IServiceProvider)this; > > Una forma mas elegante, y tambien mas eficiente si miran el codigo msil > resultante, es usar el operador as, ejemplo: > > IServiceProvider isp = this as IServiceProvider; > > Esto último hace lo mismo que el ejemplo anterior, si this no implementa > IServiceProvider ips valdra null. :)) > > Saben si hay equivalente en vb???, busque y no lo encontre.... > > Bueno, me parecio que valia la pena.... :)) > > Saludos > > Daniel Calvin > > El día 24/08/07, *Luis Capra* < [EMAIL PROTECTED]> escribió: > > Yo para hacer eso, en C# hice un metodo: > > > > public static bool IsInterfaceImplemented(Type type, Type > interfaceType) > { > return type.FindInterfaces( > new TypeFilter( > delegate(Type _type, object _filter) > { > return (_type.Name == ((Type) > _filter).Name) && > (_type.Namespace == ((Type) > _filter).Namespace); > } > ), > interfaceType > ).Length == 1; > } > > Peor por lo visto es mucho mas sencillo lo otro :=) > > > > > > > > On 8/24/07, *Carlos Marcelo Santos* <[EMAIL PROTECTED] > wrote: > > ¡¡¡Muchas Gracias!!! > > Auspiciosa manera de comenzar un viernes… > > > > Carlos Marcelo Santos. > > > ------------------------------ > > *From:* [email protected] [mailto:[EMAIL PROTECTED] *On Behalf Of * > [EMAIL PROTECTED] > *Sent:* Viernes, 24 de Agosto de 2007 02:39 a.m. > > > *To:* [email protected] > *Subject:* [puntonet] Saber si un objeto implementa una interface (Ex: OT > rdp) > > > > If TypeOf miControl Is ISerializable Then > > > > Saludos > > Leonardo > > > ------------------------------ > > *De:* Carlos Marcelo Santos [mailto:[EMAIL PROTECTED] > *Enviado el: *Jueves, 23 de Agosto de 2007 09:53 p.m. > *Para:* [email protected] > *Asunto:* [puntonet] Saber si un objeto implementa una interface (Ex: OT > rdp) > > > > * Replies will be sent through Spamex to [email protected] > * For additional info click -> www.spamex.com/i/?v=13137989 > > > > Hola Diego: > > Gracias por prolijar el subject. > > No funciona para este caso > > If miControl Is ISerializable Then > > Da error > > Y ahora probé > > If miControl = ISerializable Then > > También da error > > > > Gracias. > > > > Carlos Marcelo Santos . > > > ------------------------------ > > *From:* [email protected] [mailto:[EMAIL PROTECTED] *On Behalf Of *Diego > Jancic > *Sent:* Jueves, 23 de Agosto de 2007 09:42 p.m. > *To:* [email protected] > *Subject:* [puntonet] Saber si un objeto implementa una interface (Ex: OT > rdp) > > > > Hola, > > Cambie el asunto del email para que se entienda un poco mas de que estamos > hablando… > > > > Según un traductor de C# a VB.NET <http://vb.net/>, esto: > > > > bool a = myControl is ISerializable; > > > > se traduce a esto: > > > > Dim a As Boolean = (myControl = ISerializable) > > > > > > Espero que te sirva. > > > > Saludos, > Diego > > > > > ------------------------------ > > *From:* [email protected] [mailto:[EMAIL PROTECTED] *On Behalf Of *Carlos > Marcelo Santos > *Sent:* Jueves, 23 de Agosto de 2007 09:34 p.m. > *To:* [email protected] > *Subject:* [puntonet] OT rdp > > > > Hola Gente: > > ¿Cómo se pregunta en VB si un objeto implementa una interface? > > Lo que en C# sería > > if (myControl is ISerializable) > > > > Gracias. > > > > Carlos Marcelo Santos . > > > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.484 / Virus Database: 269.12.2/967 - Release Date: 22/08/2007 > 06:51 p.m. > > > > No virus found in this outgoing message. > Checked by AVG Free Edition. > Version: 7.5.484 / Virus Database: 269.12.2/967 - Release Date: 22/08/2007 > 06:51 p.m. > > > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.484 / Virus Database: 269.12.2/967 - Release Date: 22/08/2007 > 06:51 p.m. > > > > No virus found in this outgoing message. > Checked by AVG Free Edition. > Version: 7.5.484 / Virus Database: 269.12.2/967 - Release Date: 22/08/2007 > 06:51 p.m. > > > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.484 / Virus Database: 269.12.2/967 - Release Date: 22/08/2007 > 06:51 p.m. > > > > No virus found in this outgoing message. > Checked by AVG Free Edition. > Version: 7.5.484 / Virus Database: 269.12.2/967 - Release Date: 22/08/2007 > 06:51 p.m. > > > > > > > -- > Daniel A. Calvin > Cooperator Team Member > http://www.cooperator.com.ar > Microsoft Certified Professional >
-- Daniel A. Calvin Cooperator Team Member http://www.cooperator.com.ar Microsoft Certified Professional
