elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  MiFormCliente As FormCliente		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: MiFormCliente As FormCliente  (Leído 1,613 veces)
TheGhost(Z)

Desconectado Desconectado

Mensajes: 230



Ver Perfil
MiFormCliente As FormCliente
« en: 13 Julio 2010, 12:50 pm »
Hola. Tengo un formulario "FormCliente" que tiene una variable Publica ID
Ejecuto al Cliente:
Código:
Dim IDcliente As Long
IDcliente = CLng(Val(lsv.SelectedItem.Text))
Dim MiCliente As New FormCliente
With MiCliente
    .ID = IDcliente
    .Show
End With
En línea
TheGhost(Z)

Desconectado Desconectado

Mensajes: 230



Ver Perfil
Re: MiFormCliente As FormCliente
« Respuesta #1 en: 13 Julio 2010, 13:02 pm »
Le he dado a publica en ves de previsulaizar...  ;D

Pues como habran notado tengo un Listado con clientes. pues al dar doble click las cargo con el codigo de arriba.

Pero que pasa si ya tengo cargado al cliente. seria genal que reciba un mensaje "El cliente ya esta abierto".

Pues esa parte es lo que no me sale...

he intentado con el codigo que se mostrará abajo.. pero me da a entender que f.ID no existe

Código:
Dim f As Form
For Each f In Forms
    If f.ID = ID Then MsgBox "El cliente ya esta abierto"
Next


Notanto que la f.ID no existe intento con esto:

Código:
Dim f As ForCliente
For Each f In Forms
    If f.ID = ID Then MsgBox "Cliente abierto"
Next


Y mesale con que los tipos no cinciden... algien me puede decir donde esta el aerror..??
En línea
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: MiFormCliente As FormCliente
« Respuesta #2 en: 13 Julio 2010, 20:12 pm »
Código
  1.  
  2. Dim f As Form
  3. For Each f In Forms
  4.     If f.ID = ID Then MsgBox "Cliente abierto"
  5. Next
  6.  
  7.  

OJO el For Each recorrerá TODOS los Forms cargados y si alguno de estos no tiene la variable/Propiedad invocada te causara error así qué hay qué hacer esto!¡.

Código
  1.  
  2. Dim f As Form
  3. For Each f In Forms
  4.     if f is FormCliente then
  5.         If f.ID = ID Then MsgBox "Cliente abierto"
  6.     end if
  7. Next
  8.  
  9.  

Ahora en el formulario "FormCliente" pega esto en el cabezal.

Código
  1.  
  2. option explicit
  3.  
  4. Public ID as string
  5.  
  6.  


P.D.: Puedes usar de igual forma la propiedad .Tag en lugar de una variable ID creada por ti!¡.

Dulces Lunas!¡.
« Última modificación: 13 Julio 2010, 20:18 pm por BlackZeroX » En línea
The Dark Shadow is my passion.
TheGhost(Z)

Desconectado Desconectado

Mensajes: 230



Ver Perfil
Re: MiFormCliente As FormCliente
« Respuesta #3 en: 13 Julio 2010, 20:40 pm »
Exelente. Muchas gracias. Con el código que me pasaste no arroja error, pero no detecta la instruncción:

Código:
If f Is FormCliente then

Pero cambie por:

Código:
If f.Name  = "FormCliente" then
y funciona... Gracias BlackZeroX ;D
En línea
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: MiFormCliente As FormCliente
« Respuesta #4 en: 13 Julio 2010, 20:54 pm »
Cita de: TheGhost(Z) en 13 Julio 2010, 20:40 pm

Código:
If f Is FormCliente then

Código:
If f.Name  = "FormCliente" then
y funciona... Gracias BlackZeroX ;D


Es mejor con   if Objeto is objeto then en lugar de if Objeto.Nombre = "Objeto" then pero si te sirvio asi estara bien xP

Dulces Lunas!¡.
En línea
The Dark Shadow is my passion.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines