Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
ArbolBiblia (clase Heredada De TreeView)
Autor Mensaje
Responder citando   Descargar mensaje 
Mensaje ArbolBiblia (clase Heredada De TreeView) 
 
buenas..

a ver que opinan de esta clase, me gustaría que hagan su criticas fuertes si ven errores de cualquier tipo, diseño, nombres de variables de cualquier tipo, métodos que se podrían agregar.

consiste en un treeview pero que ya tiene todo armado con respecto a una key biblia y subkey antiguo y nuevo testamento con sus key libro.

surgió porque ya la he usado 2 vez y he repetido código y ahora necesitaba una tercera entonces no queda otra que hacer una clase.

esta en pañales recién hice lo básico pero me doy cuenta que se le pueden agregar muchos métodos iré subiendo a medida que la mejore y cuando este lista la subo a la granja




' gambas class file

Export

Inherits TreeView

Public Const _Properties As String = "*,LibroBiblia,LibroAT,LibroNT,Libro,ExpBiblia,ExpBiblia,ExpAT,ExpNT"
Public Const _IsControl As Boolean = True

Public Const _DefaultEvent As String = "Click"
Public Const _DefaultSize As String = "4,4"
Public Const _Group As String = "View"

Property LibroBiblia As Picture ''Icono de la llave Biblia<br>sdfasdf
Property LibroAT As Picture
Property LibroNT As Picture
Property Libro As Picture

Property ExpBiblia As Boolean
Property ExpAT As Boolean
Property ExpNT As Boolean


Private $LibroBiblia As Picture
Private $LibroAT As Picture
Private $LibroNT As Picture
Private $Libro As Picture

Private $ExpBiblia As Boolean
Private $ExpAT As Boolean
Private $ExpNT As Boolean

Private KeyLibros As String[] = ["Genesis", "Exodo", "Levitico", "Numeros", "Deuteronomio",
  "Josue", "Jueces", "Rut", "1Samuel", "2Samuel", "1Reyes", "2Reyes", "1Cronicas", "2Cronicas",
  "Esdras", "Nehemias", "Ester", "Job", "Salmos", "Proverbios", "Eclesiastes", "Cantares",
  "Isaias", "Jeremias", "Lamentaciones", "Ezequiel", "Daniel", "Oseas", "Joel", "Amos", "Abdias",
  "Jonas", "Miqueas", "Nahum", "Habacuc", "Sofonias", "Hageo", "Zacarias", "Malaquias",
  "Mateo", "Marcos", "Lucas", "Juan", "Hechos", "Romanos", "1Corintios", "2Corintios", "Galatas",
  "Efesios", "Filipenses", "Colosenses", "1Tesalonicenses", "2Tesalonicenses", "1Timoteo", "2Timoteo",
  "Tito", "Filemon", "Hebreos", "Santiago", "1Pedro", "2Pedro", "1Juan", "2Juan", "3Juan",
  "Judas", "Apocalipsis"]

Public Sub _new()
  
  ArmarArbol
  
End

Public Sub ArmarArbol()
  
  With Me
    .Clear()
    .add("biblia", "Biblia", $LibroBiblia)
    
    .add("AT", "Antiguo Testamento", $LibroAT, "biblia")
    
    '***** Antiguo Testamento **************************
    .add("Genesis", "Génesis", $Libro, "AT")
    .add("Exodo", "Éxodo", $Libro, "AT")
    .add("Levitico", "Levítico", $Libro, "AT")
    .add("Numeros", "Números", $Libro, "AT")
    .add("Deuteronomio", "Deuteronomio", $Libro, "AT")
    .add("Josue", "Josué", $Libro, "AT")
    .add("Jueces", "Jueces", $Libro, "AT")
    .add("Rut", "Rut", $Libro, "AT")
    .add("1Samuel", "1 de Samuel", $Libro, "AT")
    .add("2Samuel", "2 de Samuel", $Libro, "AT")
    .add("1Reyes", "1 de Reyes", $Libro, "AT")
    .add("2Reyes", "2 de Reyes", $Libro, "AT")
    .add("1Cronicas", "1 de Crónicas", $Libro, "AT")
    .add("2Cronicas", "2 de Crónicas", $Libro, "AT")
    .add("Esdras", "Esdras", $Libro, "AT")
    .add("Nehemias", "Nehemías", $Libro, "AT")
    .add("Ester", "Ester", $Libro, "AT")
    .add("Job", "Job", $Libro, "AT")
    .add("Salmos", "Salmos", $Libro, "AT")
    .add("Proverbios", "Proverbios", $Libro, "AT")
    .add("Eclesiastes", "Eclesiastés", $Libro, "AT")
    .add("Cantares", "Cantares", $Libro, "AT")
    .add("Isaias", "Isaías", $Libro, "AT")
    .add("Jeremias", "Jeremías", $Libro, "AT")
    .add("Lamentaciones", "Lamentaciones", $Libro, "AT")
    .add("Ezequiel", "Ezequiel", $Libro, "AT")
    .add("Daniel", "Daniel", $Libro, "AT")
    .add("Oseas", "Oseas", $Libro, "AT")
    .add("Joel", "Joel", $Libro, "AT")
    .add("Amos", "Amós", $Libro, "AT")
    .add("Abdias", "Abdías", $Libro, "AT")
    .add("Jonas", "Jonás", $Libro, "AT")
    .add("Miqueas", "Miqueas", $Libro, "AT")
    .add("Nahum", "Nahum", $Libro, "AT")
    .add("Habacuc", "Habacuc", $Libro, "AT")
    .add("Sofonias", "Sofonías", $Libro, "AT")
    .add("Hageo", "Hageo", $Libro, "AT")
    .add("Zacarias", "Zacarías", $Libro, "AT")
    .add("Malaquias", "Malaquías", $Libro, "AT")
    
    '***** Nuevo Testamento **************************
    .add("NT", "Nuevo Testamento", $LibroNT, "biblia")
    
    .add("Mateo", "Mateo", $Libro, "NT")
    .add("Marcos", "Marcos", $Libro, "NT")
    .add("Lucas", "Lucas", $Libro, "NT")
    .add("Juan", "Juan", $Libro, "NT")
    .add("Hechos", "Hechos", $Libro, "NT")
    .add("Romanos", "Romanos", $Libro, "NT")
    .add("1Corintios", "1 de Corintios", $Libro, "NT")
    .add("2Corintios", "2 de Corintios", $Libro, "NT")
    .add("Galatas", "Gálatas", $Libro, "NT")
    .add("Efesios", "Efesios", $Libro, "NT")
    .add("Filipenses", "Filipenses", $Libro, "NT")
    .add("Colosenses", "Colosenses", $Libro, "NT")
    .add("1Tesalonicenses", "1 de Tesalonicenses", $Libro, "NT")
    .add("2Tesalonicenses", "2 de Tesalonicenses", $Libro, "NT")
    .add("1Timoteo", "1 de Timoteo", $Libro, "NT")
    .add("2Timoteo", "2 de Timoteo", $Libro, "NT")
    .add("Tito", "Tito", $Libro, "NT")
    .add("Filemon", "Filemón", $Libro, "NT")
    .add("Hebreos", "Hebreos", $Libro, "NT")
    .add("Santiago", "Santiago", $Libro, "NT")
    .add("1Pedro", "1 de Pedro", $Libro, "NT")
    .add("2Pedro", "2 de Pedro", $Libro, "NT")
    .add("1Juan", "1 de Juan", $Libro, "NT")
    .add("2Juan", "2 de Juan", $Libro, "NT")
    .add("3Juan", "3 de Juan", $Libro, "NT")
    .add("Judas", "Judas", $Libro, "NT")
    .add("Apocalipsis", "Apocalipsis", $Libro, "NT")
    
  End With
  
End

Private Function LibroBiblia_Read() As Picture
  
  Return $LibroBiblia
  
End

Private Sub LibroBiblia_Write(Value As Picture)
  
  $LibroBiblia = Value
  Me["biblia"].Picture = $LibroBiblia
  
End

Private Function LibroAT_Read() As Picture
  
  Return $LibroAT
  
End

Private Sub LibroAT_Write(Value As Picture)
  
  $LibroAT = Value
  Me["AT"].Picture = $LibroAT
  
End

Private Function LibroNT_Read() As Picture
  
  Return $LibroNT
  
End

Private Sub LibroNT_Write(Value As Picture)
  
  $LibroNT = Value
  Me["NT"].Picture = $LibroNT
  
End

Private Function Libro_Read() As Picture
  
  Return $Libro
  
End

Private Sub Libro_Write(Value As Picture)

  Dim keyLibro As String
  
  $Libro = Value
  
  For Each keyLibro In KeyLibros
    Me[keyLibro].Picture = $Libro
  Next
  
End



Private Function ExpBiblia_Read() As Boolean

  Return $ExpBiblia

End

Private Sub ExpBiblia_Write(Value As Boolean)

  $ExpBiblia = Value
  Me["biblia"].Expanded = $ExpBiblia
  
End

Private Function ExpAT_Read() As Boolean

  Return $ExpAT

End

Private Sub ExpAT_Write(Value As Boolean)

  $ExpAT = Value
   Me["AT"].Expanded = $ExpAT

End

Private Function ExpNT_Read() As Boolean

  Return $ExpNT

End

Private Sub ExpNT_Write(Value As Boolean)

  $ExpNT = Value
   Me["NT"].Expanded = $ExpNT

End

 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
última edición por v3ctor el Viernes, 04 Enero 2019, 00:06; editado 2 veces 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes El Control TreeView soplo Controles/Librerías/Componentes 15 Martes, 16 Noviembre 2010, 15:18 Ver último mensaje
epereza10
No hay nuevos mensajes Tamaño De Formulario En Una Clase Heredad... santijav Controles/Librerías/Componentes 4 Martes, 03 Enero 2012, 20:02 Ver último mensaje
santijav
No hay nuevos mensajes Cuestión Sobre El TreeView shordi General 3 Lunes, 02 Junio 2014, 09:53 Ver último mensaje
shordi
No hay nuevos mensajes Clase Respaldo (clase Básica) v3ctor Aplicaciones/Fragmentos de Código 0 Domingo, 18 Octobre 2015, 00:56 Ver último mensaje
v3ctor
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario