Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

ArbolBiblia (clase Heredada De TreeView)

ArbolBiblia (clase Heredada De TreeView)
Artículo
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




 
última edición por v3ctor el Viernes, 04 Enero 2019, 00:06; editado 2 veces 
v3ctor - Ver perfil del usuario Enviar mensaje privado  
v3ctor [ Viernes, 04 Enero 2019, 00:04 ]
 


ArbolBiblia (clase Heredada De TreeView)
Comentarios
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
 
Publicar nuevo tema  Responder al tema  Página 1 de 1
 
 

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