1
« 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