Uruguay
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
