• Jueves 14 de Noviembre de 2024, 17:13

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Ultra_putrefactus

Páginas: [1]
1
VB .NET / Cambiar Propiedades Entre Formuarios Vb .net 2005
« en: Jueves 8 de Junio de 2006, 01:19 »
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

Páginas: [1]