Bienvenidos

Bienvenidos a todos aquellos internautas que visiten este blog, espero que les sea útil.

miércoles, 23 de octubre de 2013

Manejo de Propiedades en Visual Basic .NET

Primeramente se debe agregar un módulo al proyecto y definir una clase la cual contiene a modo de ejemplo: una variable para ser utilizada al setear la propiedad y su correspondiente inicialización que debe ser llamada desde algún lugar al momento de ejecutar la aplicación. En el siguiente ejemplo se demuestra la implementación y manejo de la propiedad.

'Clase
Public Class claseConfigGenerales'declaración de la clase
      
       'Variable
       Private Shared _anchoForm As Integer'declaración de la variable
      
'Propiedad
                Public Shared Property anchoFormulario As Integer 'declaración de la propiedad
            Set(value As Integer)
                _anchoForm = value
            End Set
            Get
                Return _anchoForm
            End Get
 End Property

 'Inizialización
        Public Shared Sub prcInicializarPropiedades()'inicializa las propiedades
      _anchoForm = 500
 End Sub

End Class

'Leer y asignar el valor de la propiedad
Me.Width = claseConfigGenerales.anchoFormulario

'Actualizar el valor de la propiedad
claseConfigGenerales.anchoFormulario = 450

miércoles, 30 de enero de 2013

Crear una sección en el archivo App.config xml y accederlo

' crear la sección
<configSections>

<section name="sectionModClientes" type="System.Configuration.NameValueSectionHandler,System,Version=1.0.5000.0, Culture=neutral, PublicKeyToken= b77a5c561934e089" ></section>

</configSections>

  
' agregar clave a la sección
<sectionAnchoForm>

     <add key="config_Width" value="937"/>
 
</sectionAnchoForm>
 
 
' Variable que va a manejar la sección de configuración
Dim ServiceLoggingConfig As NameValueCollection

 


 

'obtengo el handler para la sección de configuracion
ServiceLoggingConfig = CType(System.Configuration.ConfigurationManager.GetSection("sectionAnchoForm"), NameValueCollection)



'obtener el valor guardado en la clave ‘config_Width’ de la sección ‘sectionAnchoForm
Dim _Width as Integer = CInt(ServiceLoggingConfig("config_Width"))


'Importante: en la clase donde van a utilizar la variable para cargar la sección de configuración deberán importar la colección.
Imports System.Collections.Specialized