Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Portal » Foro » Gambas » Aplicaciones/Fragmentos de Código

Fecha y hora actual: Domingo, 28 Abril 2024, 08:59 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Ahorrando Código Con Last Y Group!! Ejemplo


Publicar nuevo tema  Responder al tema  		Página 1 de 1
 
 
Ahorrando Código Con Last Y Group!! Ejemplo
Autor Mensaje
Desconectado v3ctor Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: May 2013
Mensajes: 1786
Edad: 44
Ubicación: uruguay.png Uruguay
 
 
Responder citando   Descargar mensaje  
Mensaje Ahorrando Código Con Last Y Group!! Ejemplo 
 
código largo:

' gambas class file

Private SalirGuardando As Boolean
Private Separacion As Byte = 5



Public Sub btnCancelar_Click()
  FMain.FiltroLibros = Null
  Me.Close
  FMain.cbxBuscar.Index = 0
  FMain.txtFiltro.SetFocus
End


Public Sub Form_Open()
    
  Me.Title = "Filtrar libros"
  LabVersion.Text = FMain.NumVersion
  FMain.FiltroLibros = New Integer[]
  
  If Not IsNull(Settings["Libros/Elecciones"]) Then
    MarcarElecciones()
  Endif

End

Private Sub ONoff(XCheckBox As CheckBox, ValueCheckbox As Boolean, Libro As Byte)
  If ValueCheckbox Then
    FMain.FiltroLibros.Add(Libro)
    XCheckBox.Font.Bold = True
  Else
    FMain.FiltroLibros.Remove(FMain.FiltroLibros.Find(Libro))
    XCheckBox.Font.Bold = False
  Endif
  
  LabCantidad.Text = FMain.FiltroLibros.Count
'   FMain.SdoTecla.Play
End

Private Sub Efecto1(QueChekbox As CheckBox, MasOMenos As Boolean)
  If MasOMenos Then
    QueChekbox.Font.Underline = True
    QueChekbox.X += Separacion
    QueChekbox.Font.Size = 11
  Else
    QueChekbox.Font.Underline = False
    QueChekbox.X -= Separacion
    QueChekbox.Font.Size = 9
  Endif
 
End

Public Sub Form_Close()

  If SalirGuardando = False Then
   FMain.cbxBuscar.Index = 0
   FMain.FiltroLibros = Null
   FMain.txtFiltro.SetFocus
  Endif
  
End


Public Sub btnGuardar_Click()
    Dim numlibro As Integer
    Dim EsteCheckBox As Object
    Dim Elecciones As String
    
    If FMain.FiltroLibros.Count <= 0 Then
      Message.Info("Seleccione un libro como mínimo, sino presione cancelar")
      Return
    Endif
    
      FMain.txtFiltro.SetFocus
    
    For Each EsteCheckBox In Personalizado.Children
      If Object.Is(EsteCheckBox, "CheckBox") Then
         If EsteCheckBox.value = True Then
            Elecciones &= EsteCheckBox.name & ","
         Endif
      Endif
    Next
    
    Elecciones = Left$(Elecciones, Len(Elecciones) - 1)
    
    Settings["Libros/Elecciones"] = Elecciones
    Settings.Save
    
    FMain.FiltroLibros.Sort(gb.Ascent)
    For Each numlibro In FMain.FiltroLibros
'       Print numlibro
    Next
    SalirGuardando = True
    Me.Close

End


Public Sub chkMateo_Click()
   ONoff(chkMateo, chkMateo.Value, 40)
End

Public Sub chkJudas_Click()
   ONoff(chkJudas, chkJudas.Value, 65)
End

Public Sub btnNinguno_Click()
Dim Xobjeto As Object

For Each Xobjeto In Me.Children
  If Object.Is(Xobjeto, "CheckBox") Then
    Xobjeto.Value = False
  Endif
Next
  
End

Public Sub chkFilemon_Click()
   ONoff(chkFilemon, chkFilemon.Value, 57)
End

Public Sub chk3deJuan_Click()
   ONoff(chk3deJuan, chk3deJuan.Value, 64)
End

Public Sub chk2deJuan_Click()
   ONoff(chk2deJuan, chk2deJuan.Value, 63)
End

Public Sub chk2dePedro_Click()
   ONoff(chk2dePedro, chk2dePedro.Value, 61)
End

Public Sub chk2deTesalonicenses_Click()
  ONoff(chk2deTesalonicenses, chk2deTesalonicenses.Value, 53)
End

Public Sub chkTito_Click()
   ONoff(chkTito, chkTito.Value, 56)
End

Public Sub chk1deJuan_Click()
   ONoff(chk1deJuan, chk1deJuan.Value, 62)
End

Public Sub chkAbdias_Click()
   ONoff(chkAbdias, chkAbdias.Value, 31)
End

Public Sub chkHageo_Click()
   ONoff(chkHageo, chkHageo.Value, 37)
End

Public Sub chkFilipenses_Click()
  ONoff(chkFilipenses, chkFilipenses.Value, 50)
End

Public Sub chkColosenses_Click()
  ONoff(chkColosenses, chkColosenses.Value, 51)
End

Public Sub chk1dePedro_Click()
   ONoff(chk1dePedro, chk1dePedro.Value, 60)
End


Public Sub MarcarElecciones()
  Dim Xobjeto As Object
  Dim EstosObjetos As String[]
  Dim NomObjeto As String
  
  EstosObjetos = Split(Settings["Libros/Elecciones"], ",")
  
  For Each Xobjeto In Personalizado.Children
     If Object.Is(Xobjeto, "CheckBox") = False Then Continue
     For Each NomObjeto In EstosObjetos
        If NomObjeto = Xobjeto.name Then
           Xobjeto.value = True
        Endif
     Next
  Next
 
End

Public Sub chk1deTesalonicenses_Click()
  ONoff(chk1deTesalonicenses, chk1deTesalonicenses.Value, 52)
End

Public Sub chk2deTimoteo_Click()
  ONoff(chk2deTimoteo, chk2deTimoteo.Value, 55)
End

Public Sub btnTodos_Click()
  Dim Xobjeto As Object

For Each Xobjeto In Me.Children
  If Object.Is(Xobjeto, "CheckBox") Then
    Xobjeto.Value = True
  Endif
Next

End

Public Sub chk1_Click()

 SelecionarColumnaChekBox("1", chk1)
End

Public Sub chk2_Click()
  SelecionarColumnaChekBox("2", chk2)
End

Public Sub chk3_Click()
  SelecionarColumnaChekBox("3", chk3)
End

Public Sub chk4_Click()
  SelecionarColumnaChekBox("4", chk4)
End

Private Sub SelecionarColumnaChekBox(columna As String, EsteCheckBox As CheckBox)
  
  Dim Xobjeto As Object

  For Each Xobjeto In Me.Children
    If Object.Is(Xobjeto, "CheckBox") Then
       If Xobjeto.tag = columna Then
            If EsteCheckBox.Value = True
               Xobjeto.value = True
            Else
               Xobjeto.value = False
            Endif
       Endif
    Endif
  Next
  
End



Public Sub chkSantiago_Click()
   ONoff(chkSantiago, chkSantiago.Value, 59)
End

Public Sub chk1deTimoteo_Click()
   ONoff(chk1deTimoteo, chk1deTimoteo.Value, 54)
End

Public Sub chkApocalipsis_Click()
   ONoff(chkApocalipsis, chkApocalipsis.Value, 66)
End

Public Sub chkGalatas_Click()
   ONoff(chkGalatas, chkGalatas.Value, 48)
End

Public Sub chkEfesios_Click()
  ONoff(chkEfesios, chkEfesios.Value, 49)
End

Public Sub chkHebreos_Click()
   ONoff(chkHebreos, chkHebreos.Value, 58)
End

Public Sub chkJoel_Click()
   ONoff(chkJoel, chkJoel.Value, 29)
End

Public Sub chkNahum_Click()
   ONoff(chkNahum, chkNahum.Value, 34)
End

Public Sub chkLamentaciones_Click()
  ONoff(chkLamentaciones, chkLamentaciones.Value, 25)
End

Public Sub chk2Corintios_Click()
  ONoff(chk2Corintios, chk2Corintios.Value, 47)
End

Public Sub chkMalaquias_Click()
  ONoff(chkMalaquias, chkMalaquias.Value, 39)
End

Public Sub chkSofonias_Click()
   ONoff(chkSofonias, chkSofonias.Value, 36)
End

Public Sub chkHabacuc_Click()
   ONoff(chkHabacuc, chkHabacuc.Value, 35)
End

Public Sub chkJonas_Click()
   ONoff(chkJonas, chkJonas.Value, 32)
End

Public Sub chk1Corintios_Click()
  ONoff(chk1Corintios, chk1Corintios.Value, 46)
End

Public Sub chkFilipenses_Enter()
  chkFilipenses.Font.Underline = True
End

Public Sub chkFilipenses_Leave()
  chkFilipenses.Font.Underline = False
End

Public Sub chkEfesios_Enter()
  chkEfesios.Font.Underline = True
End

Public Sub chkEfesios_Leave()
   chkEfesios.Font.Underline = False
End

Public Sub chkColosenses_Enter()
  chkColosenses.Font.Underline = True
End

Public Sub chkColosenses_Leave()
  chkColosenses.Font.Underline = False
End

Public Sub chkRomanos_Click()
  ONoff(chkRomanos, chkRomanos.Value, 45)
End

Public Sub chkRomanos_Enter()
  chkRomanos.Font.Underline = True
End

Public Sub chkRomanos_Leave()
  chkRomanos.Font.Underline = False
End

Public Sub chk1Corintios_Enter()
  chk1Corintios.Font.Underline = True
End

Public Sub chk1Corintios_Leave()
  chk1Corintios.Font.Underline = False
End

Public Sub chk2Corintios_Enter()
  chk2Corintios.Font.Underline = True
End

Public Sub chk2Corintios_Leave()
  chk2Corintios.Font.Underline = False
End

Public Sub chkGalatas_Enter()
  chkGalatas.Font.Underline = True
End

Public Sub chkGalatas_Leave()
   chkGalatas.Font.Underline = False
End

Public Sub chk1deTesalonicenses_Enter()
  chk1deTesalonicenses.Font.Underline = True
End

Public Sub chk1deTesalonicenses_Leave()
   chk1deTesalonicenses.Font.Underline = False
End

Public Sub chk2deTesalonicenses_Enter()
   chk2deTesalonicenses.Font.Underline = True
End

Public Sub chk2deTesalonicenses_Leave()
   chk2deTesalonicenses.Font.Underline = False
End

Public Sub chk1deTimoteo_Enter()
   chk1deTimoteo.Font.Underline = True
End

Public Sub chk1deTimoteo_Leave()
   chk1deTimoteo.Font.Underline = False
End

Public Sub chk2deTimoteo_Enter()
   chk2deTimoteo.Font.Underline = True
End

Public Sub chk2deTimoteo_Leave()
   chk2deTimoteo.Font.Underline = False
End

Public Sub btnGuardar_Enter()
  btnGuardar.Font.Bold = True
End

Public Sub btnGuardar_Leave()
  btnGuardar.Font.Bold = False
End

Public Sub chkTito_Enter()
  chkTito.Font.Underline = True
End

Public Sub chkTito_Leave()
   chkTito.Font.Underline = False
End

Public Sub chkFilemon_Enter()
  chkFilemon.Font.Underline = True
End

Public Sub chkFilemon_Leave()
  chkFilemon.Font.Underline = False
End

Public Sub chkHebreos_Enter()
  chkHebreos.Font.Underline = True
End

Public Sub chkHebreos_Leave()
  chkHebreos.Font.Underline = False
End

Public Sub chkSantiago_Enter()
  chkSantiago.Font.Underline = True
End

Public Sub chkSantiago_Leave()
   chkSantiago.Font.Underline = False
End

Public Sub chk1dePedro_Enter()
  chk1dePedro.Font.Underline = True
End

Public Sub chk1dePedro_Leave()
  chk1dePedro.Font.Underline = False
End

Public Sub chk2dePedro_Enter()
  chk2dePedro.Font.Underline = True
End

Public Sub chk2dePedro_Leave()
  chk2dePedro.Font.Underline = False
End

Public Sub chk1deJuan_Enter()
  chk1deJuan.Font.Underline = True
End

Public Sub chk1deJuan_Leave()
  chk1deJuan.Font.Underline = False
End

Public Sub chk2deJuan_Enter()
  chk2deJuan.Font.Underline = True
End

Public Sub chk2deJuan_Leave()
  chk2deJuan.Font.Underline = False
End

Public Sub chk3deJuan_Enter()
  chk3deJuan.Font.Underline = True
End

Public Sub chk3deJuan_Leave()
  chk3deJuan.Font.Underline = False
End

Public Sub chkJudas_Enter()
  chkJudas.Font.Underline = True
End

Public Sub chkJudas_Leave()
  chkJudas.Font.Underline = False
End

Public Sub chkApocalipsis_Enter()
  chkApocalipsis.Font.Underline = True
End

Public Sub chkApocalipsis_Leave()
  chkApocalipsis.Font.Underline = False
End

Public Sub chkMarcos_Click()
  ONoff(chkMarcos, chkMarcos.Value, 41)
End

Public Sub chkMarcos_Enter()
  chkMarcos.Font.Underline = True
End

Public Sub chkMarcos_Leave()
   chkMarcos.Font.Underline = False
End

Public Sub chkMateo_Enter()
   chkMateo.Font.Underline = True
End

Public Sub chkMateo_Leave()
  chkMateo.Font.Underline = False
End

Public Sub chkMalaquias_Enter()
  Efecto1(chkMalaquias, True)
End

Public Sub chkMalaquias_Leave()
  Efecto1(chkMalaquias, False)
End

Public Sub chkHageo_Enter()
  Efecto1(chkHageo, True)
End

Public Sub chkHageo_Leave()
  Efecto1(chkHageo, False)
End

Public Sub chkSofonias_Enter()
  Efecto1(chkSofonias, True)
End

Public Sub chkSofonias_Leave()
  Efecto1(chkSofonias, False)
End

Public Sub chkHechos_Click()
  ONoff(chkHechos, chkHechos.Value, 44)
End

Public Sub chkHechos_Enter()
  chkHechos.Font.Underline = True
End

Public Sub chkHechos_Leave()
  chkHechos.Font.Underline = False
End

Public Sub chkJuan_Click()
  ONoff(chkJuan, chkJuan.Value, 43)
End

Public Sub chkJuan_Enter()
   chkJuan.Font.Underline = True
End

Public Sub chkJuan_Leave()
  chkJuan.Font.Underline = False
End

Public Sub chkLucas_Click()
  ONoff(chkLucas, chkLucas.Value, 42)
End

Public Sub chkLucas_Enter()
  chkLucas.Font.Underline = True
End

Public Sub chkLucas_Leave()
  chkLucas.Font.Underline = False
End

Public Sub chkHabacuc_Enter()
   Efecto1(chkHabacuc, True)
End

Public Sub chkHabacuc_Leave()
   Efecto1(chkHabacuc, False)
End

Public Sub chkNahum_Enter()
  Efecto1(chkNahum, True)
End

Public Sub chkNahum_Leave()
  Efecto1(chkNahum, False)
End

Public Sub chkJonas_Enter()
   Efecto1(chkJonas, True)
End

Public Sub chkJonas_Leave()
    Efecto1(chkJonas, False)
End

Public Sub chkAbdias_Enter()
   Efecto1(chkAbdias, True)
End

Public Sub chkAbdias_Leave()
  Efecto1(chkAbdias, False)
End

Public Sub chkJoel_Enter()
  Efecto1(chkJoel, True)
End

Public Sub chkJoel_Leave()
  Efecto1(chkJoel, False)
End

Public Sub chkGenesis_Click()
  ONoff(chkGenesis, chkGenesis.Value, 1)
End

Public Sub chkExodo_Click()
   ONoff(chkExodo, chkExodo.Value, 2)
End

Public Sub chkLevitico_Click()
   ONoff(chkLevitico, chkLevitico.Value, 3)
End

Public Sub chkNumeros_Click()
   ONoff(chkNumeros, chkNumeros.Value, 4)
End

Public Sub chkDeuteronomio_Click()
   ONoff(chkDeuteronomio, chkDeuteronomio.Value, 5)
End

Public Sub chkJosue_Click()
   ONoff(chkJosue, chkJosue.Value, 6)
End

Public Sub chkJueces_Click()
   ONoff(chkJueces, chkJueces.Value, 7)
End

Public Sub chkRut_Click()
  ONoff(chkRut, chkRut.Value, 8)
End

Public Sub chk1Samuel_Click()
   ONoff(chk1Samuel, chk1Samuel.Value, 9)
End

Public Sub chk2Samuel_Click()
   ONoff(chk2Samuel, chk2Samuel.Value, 10)
End

Public Sub chk1Reyes_Click()
   ONoff(chk1Reyes, chk1Reyes.Value, 11)
End

Public Sub chk2Reyes_Click()
   ONoff(chk2Reyes, chk2Reyes.Value, 12)
End

Public Sub chk1Cronicas_Click()
   ONoff(chk1Cronicas, chk1Cronicas.Value, 13)
End

Public Sub chk2Cronicas_Click()
   ONoff(chk2Cronicas, chk2Cronicas.Value, 14)
End

Public Sub chkEsdras_Click()
  ONoff(chkEsdras, chkEsdras.Value, 15)
End

Public Sub chkNehemias_Click()
  ONoff(chkNehemias, chkNehemias.Value, 16)
End

Public Sub chkEster_Click()
  ONoff(chkEster, chkEster.Value, 17)
End

Public Sub chkJob_Click()
   ONoff(chkJob, chkJob.Value, 18)
End

Public Sub chkSalmos_Click()
  ONoff(chkSalmos, chkSalmos.Value, 19)
End

Public Sub chkProverbios_Click()
  ONoff(chkProverbios, chkProverbios.Value, 20)
End

Public Sub chkEclesiastes_Click()
 ONoff(chkEclesiastes, chkEclesiastes.Value, 21)
End

Public Sub chkCantares_Click()
  ONoff(chkCantares, chkCantares.Value, 22)
End

Public Sub chkIsaias_Click()
   ONoff(chkIsaias, chkIsaias.Value, 23)
End

Public Sub chkJeremias_Click()
  ONoff(chkJeremias, chkJeremias.Value, 24)
End

Public Sub chkEzequiel_Click()
  ONoff(chkEzequiel, chkEzequiel.Value, 26)
End

Public Sub chkDaniel_Click()
  ONoff(chkDaniel, chkDaniel.Value, 27)
End

Public Sub chkOseas_Click()
  ONoff(chkOseas, chkOseas.Value, 28)
End

Public Sub chkAmos_Click()
  ONoff(chkAmos, chkAmos.Value, 30)
End

Public Sub chkMiqueas_Click()
  ONoff(chkMiqueas, chkMiqueas.Value, 33)
End

Public Sub chkZacarias_Click()
  ONoff(chkZacarias, chkZacarias.Value, 38)
End

Public Sub chkRut_Enter()
   Efecto1(chkRut, True)
End

Public Sub chkRut_Leave()
  Efecto1(chkRut, False)
End

Public Sub chkLamentaciones_Enter()
  Efecto1(chkLamentaciones, True)
End

Public Sub chkLamentaciones_Leave()
  Efecto1(chkLamentaciones, False)
End

Public Sub chkMiqueas_Enter()
  Efecto1(chkMiqueas, True)
End

Public Sub chkMiqueas_Leave()
  Efecto1(chkMiqueas, False)
End

Public Sub chkZacarias_Enter()
  Efecto1(chkZacarias, True)
 End

Public Sub chkZacarias_Leave()
  Efecto1(chkZacarias, False)
End

Public Sub chkNehemias_Enter()
  Efecto1(chkNehemias, True)
End

Public Sub chkNehemias_Leave()
  Efecto1(chkNehemias, False)
End

Public Sub chkAmos_Enter()
  Efecto1(chkAmos, True)
End

Public Sub chkAmos_Leave()
  Efecto1(chkAmos, False)
End

Public Sub chkOseas_Enter()
  Efecto1(chkOseas, True)
End

Public Sub chkOseas_Leave()
  Efecto1(chkOseas, False)
End

Public Sub chkCantares_Enter()
  Efecto1(chkCantares, True)
End

Public Sub chkCantares_Leave()
  Efecto1(chkCantares, False)
End

Public Sub chkGenesis_Enter()
  Efecto1(chkGenesis, True)
End

Public Sub chkGenesis_Leave()
  Efecto1(chkGenesis, False)
End

Public Sub chkDaniel_Enter()
  Efecto1(chkDaniel, True)
End

Public Sub chkDaniel_Leave()
   Efecto1(chkDaniel, False)
End

Public Sub chkEsdras_Enter()
  Efecto1(chkEsdras, True)
End

Public Sub chkEsdras_Leave()
 Efecto1(chkEsdras, False)
End

Public Sub chkEclesiastes_Enter()
 Efecto1(chkEclesiastes, True)
End

Public Sub chkEclesiastes_Leave()
  Efecto1(chkEclesiastes, False)
End

Public Sub chkEster_Enter()
  Efecto1(chkEster, True)
End

Public Sub chkEster_Leave()
  Efecto1(chkEster, False)
End

Public Sub chkExodo_Enter()
  Efecto1(chkExodo, True)
End

Public Sub chkExodo_Leave()
  Efecto1(chkExodo, False)
End

Public Sub chkLevitico_Enter()
  Efecto1(chkLevitico, True)
End

Public Sub chkLevitico_Leave()
  Efecto1(chkLevitico, False)
End

Public Sub chkNumeros_Enter()
  Efecto1(chkNumeros, True)
End

Public Sub chkNumeros_Leave()
  Efecto1(chkNumeros, False)
End




código corto gracias a last y group:

' gambas class file

Private SalirGuardando As Boolean
Private Separacion As Byte = 5


Public Sub btnCancelar_Click()
  FMain.FiltroLibros = Null
  Me.Close
  FMain.cbxBuscar.Index = 0
  FMain.txtFiltro.SetFocus
End


Public Sub Form_Open()
    
  Me.Title = "Filtrar libros"
  LabVersion.Text = FMain.NumVersion
  FMain.FiltroLibros = New Integer[]
  
  If Not IsNull(Settings["Libros/Elecciones"]) Then
    MarcarElecciones()
  Endif

End

Private Sub ONoff(XCheckBox As CheckBox, ValueCheckbox As Boolean, Libro As Byte)
  If ValueCheckbox Then
    FMain.FiltroLibros.Add(Libro)
    XCheckBox.Font.Bold = True
  Else
    FMain.FiltroLibros.Remove(FMain.FiltroLibros.Find(Libro))
    XCheckBox.Font.Bold = False
  Endif
  
  LabCantidad.Text = FMain.FiltroLibros.Count

End

Private Sub Efecto1(QueChekbox As CheckBox, MasOMenos As Boolean)
  
  If MasOMenos Then
    QueChekbox.Font.Underline = True
    QueChekbox.X += Separacion
    QueChekbox.Font.Size = 11
  Else
    QueChekbox.Font.Underline = False
    QueChekbox.X -= Separacion
    QueChekbox.Font.Size = 9
  Endif
 
End

Public Sub Form_Close()

  If SalirGuardando = False Then
   FMain.cbxBuscar.Index = 0
   FMain.FiltroLibros = Null
   FMain.txtFiltro.SetFocus
  Endif
  
End

Public Sub btnGuardar_Click()
    Dim numlibro As Integer
    Dim EsteCheckBox As Object
    Dim Elecciones As String
    
    If FMain.FiltroLibros.Count <= 0 Then
      Message.Info("Seleccione un libro como mínimo, sino presione cancelar")
      Return
    Endif
    
      FMain.txtFiltro.SetFocus
    
    For Each EsteCheckBox In Personalizado.Children
      If Object.Is(EsteCheckBox, "CheckBox") Then
         If EsteCheckBox.value = True Then
            Elecciones &= EsteCheckBox.name & ","
         Endif
      Endif
    Next
    
    Elecciones = Left$(Elecciones, Len(Elecciones) - 1)
    
    Settings["Libros/Elecciones"] = Elecciones
    Settings.Save
    
    FMain.FiltroLibros.Sort(gb.Ascent)
    For Each numlibro In FMain.FiltroLibros

    Next
    
    SalirGuardando = True
    Me.Close

End

Public Sub btnNinguno_Click()
Dim Xobjeto As Object

For Each Xobjeto In Me.Children
  If Object.Is(Xobjeto, "CheckBox") Then
    Xobjeto.Value = False
  Endif
Next
  
End

Public Sub MarcarElecciones()
  Dim Xobjeto As Object
  Dim EstosObjetos As String[]
  Dim NomObjeto As String
  
  EstosObjetos = Split(Settings["Libros/Elecciones"], ",")
  
  For Each Xobjeto In Personalizado.Children
     If Object.Is(Xobjeto, "CheckBox") = False Then Continue
     For Each NomObjeto In EstosObjetos
        If NomObjeto = Xobjeto.name Then
           Xobjeto.value = True
        Endif
     Next
  Next
 
End

Public Sub btnTodos_Click()
  Dim Xobjeto As Object

For Each Xobjeto In Me.Children
  If Object.Is(Xobjeto, "CheckBox") Then
    Xobjeto.Value = True
  Endif
Next

End

Public Sub AT_Enter()
   Efecto1(Last, True)
End

Public Sub AT_Leave()
  Efecto1(Last, False)
End

Public Sub AT_Click()
  Dim dato As String[]
  
  dato = Split(Last.tag, ",")
  ONoff(Last, Last.Value, dato[0])
  
End

Public Sub colum_Click()
   Dim dato As String[]
  
   dato = Split(Last.tag, ",")
   SelecionarColumnaChekBox(dato[1], Last)

End

Private Sub SelecionarColumnaChekBox(columna As String, EsteCheckBox As CheckBox)
  Dim Xobjeto As Object
  Dim dato As String[]
  
  For Each Xobjeto In Me.Children
    If Object.Is(Xobjeto, "CheckBox") Then
       dato = Split(Xobjeto.tag, ",")
       If dato[0] = "c" Then Continue
       If dato[1] = columna Then
            If EsteCheckBox.Value = True Then
               Xobjeto.value = True
            Else
               Xobjeto.value = False
            Endif
       Endif
    Endif
  Next
  
End

Public Sub NT_Click()
  Dim dato As String[]
  
  dato = Split(Last.tag, ",")
  ONoff(Last, Last.Value, dato[0])

End

Public Sub NT_Enter()
   Last.Font.Underline = True
End

Public Sub NT_Leave()
   Last.Font.Underline = False
End


 444_1476480651_895987

que opinan gamberos?
 




===================
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/
 
#1  Viernes, 14 Octobre 2016, 22:31
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado jguardon Sexo: Masculino
Administrador
Administrador
avatar
Registrado: Septiembre 2009
Mensajes: 2708
Edad: 57
Ubicación: spain.png Granada
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Ahorrando Código Con Last Y Group!! Ejemplo 
 
La mejora es más que evidente.

Mira que no soy religioso, pero sólo por tu programa me están dando ganas de leer la sagrada biblia. Buen trabajo, v3ctor.

Saludos
 




===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
 
#2  Viernes, 14 Octobre 2016, 22:39
jguardon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado v3ctor Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: May 2013
Mensajes: 1786
Edad: 44
Ubicación: uruguay.png Uruguay
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Ahorrando Código Con Last Y Group!! Ejemplo 
 
es que recién estoy entendiendo mas o menos como funciona last y group.

al principio me resultaba muy muy difícil entender pero de a poco se va sumando conocimiento y todo empieza a resultar mas fácil.

jguardon escribió: [Ver mensaje]

Mira que no soy religioso, pero sólo por tu programa me están dando ganas de leer la sagrada biblia. Buen trabajo, v3ctor.


Es la idea que en libertad y el que quiera, tenga una buena herramienta de Estudio.
 




===================
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/
 
#3  Viernes, 14 Octobre 2016, 23:02
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado Grandamakulo Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Enero 2016
Mensajes: 311
Edad: 55
Ubicación: spain.png En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Ahorrando Código Con Last Y Group!! Ejemplo 
 
¡Estupendo!
Paso a repasar mi código en un programilla que ha crecido demasiado por no usar esto.
 



 
#4  Lunes, 17 Octobre 2016, 11:39
Grandamakulo - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 

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

Portal » Foro » Gambas » Aplicaciones/Fragmentos de Código

Fecha y hora actual: Domingo, 28 Abril 2024, 08:59 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
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
Puede descargar archivos
No puede publicar eventos en el calendario


  

 
cron