Visual Basic - Problema Con Declaracion Global

Life is soft - evento anual de software empresarial
 
Vista:

Problema Con Declaracion Global

Publicado por Victor Tapia (41 intervenciones) el 23/11/2005 23:55:22
holas , resulta que en un Modulo tengo lo siguiente.

Global Formulario as Form

y cuando en un boton Pongo.

Formulario = me ó Formulario = Form3

Me da error.. "Uso no Valido De La Propiedad"

Alquien sabe por q
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema Con Declaracion Global

Publicado por Arnaldo (53 intervenciones) el 24/11/2005 01:15:50
Hola, seria de mas ayuda si comentaras cual es tu objetivo. Lo que veo creo que esta mal.

Tu variable global Formulario deveria estar declarada de la siguiente forma:
Public Formulario As Form 'Form es el nombre del formulario que tengas.
Te mando un ejemplo de como generar otro formulario con las misma propiedades del formulario inicial.

Option Explicit

Private Sub Command1_Click()
Dim I As Integer
If Command1.Caption = "Nuevo Formulario" Then

'Cargar y Visualizar un ejemplar

Set Formulario = New Form1
Formulario.Show
'Mover
Formulario.Move Left + (1 * Width \ 10), _
Top + (1 * Height \ 6)
Formulario.Text1 = Form1.Text1.Text
Formulario.Command1.Caption = "Salir"
Else
If Me Is Formulario Then
Form1.Text1.Text = Formulario.Text1.Text
Unload Formulario
Set Formulario = Nothing
End If
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Me Is Formulario Then
Cancel = 0
Unload Formulario
Set Formulario = Nothing
End If
End Sub

'Modulo1
Option Explicit

Public Formulario As Form1

Te envio al e-mail el programa, por si no me expreso bien.
Suerte

Arnaldo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema Con Declaracion Global

Publicado por Victor Tapia (41 intervenciones) el 24/11/2005 01:47:51
Holas,,Recibi tu Correo Gracias, Pero como dices no me explique bien :(

Resulta q tengo 4 Form's 1 de ellos hace las veses de "Previsualizar Datos Antes de Ser Impresos", el punto es que dependiendo de el Form desde el cual se invoque va a ser la forma en que este form se va a comportar..
Por eso lo que Queria saber si se Podia hacer esa asignacion para haci no tener que una un Swith en el form ,Por ejemplo.

Esta Linea Puede ser Asi en 1 caso:
Form3.MSChart1.Width = ((w * (chtscroll(Index).Value / 100)) / 0.25)

O asi en otro:
Form2.MSChart1.Width = ((w * (chtscroll(Index).Value / 100)) / 0.25)

Oasi en otro
Form1.MSChart1.Width = ((w * (chtscroll(Index).Value / 100)) / 0.25)

la Idea es Tener una Sola OSea.
Formulario.MSChart1.Width = ((w * (chtscroll(Index).Value / 100)) / 0.25)

En la cual formulario valla tomando los Valores Queridos

Entiendes,,,

Gracias de Todas Formas.

PD:Me Ahorraria un Monton de Codigo si Pudiera Hacer Esto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema Con Declaracion Global

Publicado por ivan (463 intervenciones) el 24/11/2005 02:00:30
Se me ocurre lo siguiente...:

Para el caso del Form1
Formulario.Form1.MSChart1.Width = ((w * (chtscroll(Index).Value / 100)) / 0.25)

Para el caso del Form2
Formulario.Form2.MSChart1.Width = ((w * (chtscroll(Index).Value / 100)) / 0.25)

Para el caso del Form3
Formulario.Form3.MSChart1.Width = ((w * (chtscroll(Index).Value / 100)) / 0.25)

Formulario lo creas igual a como se crearon Form1, Form2....

No se si te funcione, ya que yo no se como funcione el MsChart. Pero lo que si me funciona es desde un formulario, usar controles de otros formularios, inclusive variables de otros formularios, siempre y cuando sean públicas.

Espero esto te sirva de algo... si no... a esperar otras respuestas, seguro las habrá. Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar