• Jueves 14 de Noviembre de 2024, 23:11

Autor Tema:  Cambiar Propiedades Entre Formuarios Vb .net 2005  (Leído 1165 veces)

Ultra_putrefactus

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Cambiar Propiedades Entre Formuarios Vb .net 2005
« en: Jueves 8 de Junio de 2006, 01:19 »
0
Hola a todos,

Espero que alguien pueda  ayudarme. Mi problema el siguiente:

Estoy iniciando en vb .net y estoy desarrollando una aplicación para visualizar los distintos anexos telefónicos de una empresa. Una de las opciones de este programa es poder cambiar la apariencia de la ventana principal, la cual contiene un data grid view, la idea es que esta operación se realice desde un formulario que contiene un propertygrid que es desplegado desde el formulario principal del programa en forma modal, pero no logro cambiar los colores ni ninguna propiedad del data grid view. Este es el código que tengo:

En el fomulario Principal (FrnAnexos)
'Para desplegar el formulario que contiene El PropertyGrid
Private Sub BtnAbout_Apariencia(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAbout.Click
        Dim f As New frmAparence
        Me.AddOwnedForm(f)
        f.ShowDialog()
End Sub

En el formulario secundario (FrmAparence)

'Cuando cambio alguna propiedad.
Private Sub PG_PropertyValueChanged(ByVal s As Object, ByVal e As System.Windows.Forms.PropertyValueChangedEventArgs) Handles PG.PropertyValueChanged
        Select Case UCase(e.ChangedItem.Label)
            Case "BACKCOLOR"
                FrmAnexos.DG.BackgroundColor = D.BackColor
            Case "GRIDBACKCOLOR"
                FrmAnexos.DG.DefaultCellStyle.BackColor = D.GridBackColor
   Case.......
        End Select

End Sub
también he intentado utilizando ctype de la siguiente forma

Private Sub PG_PropertyValueChanged(ByVal s As Object, ByVal e As System.Windows.Forms.PropertyValueChangedEventArgs) Handles PG.PropertyValueChanged
        Select Case UCase(e.ChangedItem.Label)
            Case "BACKCOLOR"
                CType(Me.Owner, FrmAnexos).DG.BackgroundColor = D.BackColor
            Case "GRIDBACKCOLOR"
                CType(Me.Owner, FrmAnexos).DG.DefaultCellStyle.BackColor = D.GridBackColor
   Case........
        End Select
End Sub

Pero ninguna de las dos formas funciona.

Si alguien sabe como puedo resolver este problema por favor ayúdeme.

De antemano muchas gracias
This asshole mother fucker will'b destroyed

x.cyclop

  • Miembro de PLATA
  • *****
  • Mensajes: 1039
  • Nacionalidad: mx
    • Ver Perfil

- Great works aren't produced on the first try. [Ernest Hemingway]
- Be ambitious, yet realistic in your dreams. Do something that makes a positive impact. Don’t let the nay-sayers get you down. [Bjarne Stroustrup]