playmepe 03-09-2023, 01:25
Buenas noches/dias a todos, mi consulta es lo siguiente; alguien tiene idea de como hacer el filtro como de pcmanfm-qt que cuando vas escribiendo algo se va filtrando el nombre de los archivos. estoy pensando utilizar dirview, fileview y un combobox pero me gustaría sugerencias y ayuda del código.
Gracias de antemano.
tincho 02-09-2023, 13:00
Hola
El tema va sobre estos programas de listas de correo como GNU Mailman etc. que supongo que coreen en un servidor siempre conectado ¿Verdad?

El caso es que me gustaría poder gestionar listas de correo para enviar noticias (Newsletters) y que el sistema gestione de forma automática altas y bajas de direcciones.

¿Alguien podría recomendar la forma mas fácil y gratuita de gestionar noticias por correo electrónico?

Gracias de antemano.
tincho 31-08-2023, 16:04
Hola crustaceos.
Para recorrer los controles de un formulario de forma recursiva les planteo este método que me viene dando buenos resultados.

Código:
'' Este método recibe un objeto como parámetro de entrada y devuelve ,por la
'' salida estándar, el tipo de objeto, el objeto padre y, si existen, los
'' simbolos Text, Value y Tag. Es un método recursivo puesto que si el objeto
'' tiene hijos se llama a si mismo y pasa el contenedor como parametro. Esta
'' pensado para recorrer controles de un formulario que inicialmente se pasa
'' como parametro, y luego recorrer hasta el último nivel de anidamiento en
'' el que exista un control.
'' *eng* This method takes an object as an input parameter and returns, via
'' standard output, the type of the object, the parent object, and, if they
'' exist, the symbols Text, Value, and Tag. It is a recursive method since if
'' the object has children it calls itself and passes the container as a
'' parameter. It is intended to loop through form controls, this form is
'' initially passed as a parameter, and then loop through to the last nesting
'' level in which a control exists.

Public Sub Looper(ob As Object)

  Dim ch As Object
  Dim sTag, sVal As String
  Dim cls As Class
  Dim aSymbols As New String[]
  Dim sMark As String

  Select Object.Class(ob).Parent.Name
    Case "Form", "Container", "UserContainer"
      For Each ch In ob.Children
        Looper(ch)
      Next
    Case "Control", "UserControl", "TextBox", "Label"
      sMark = ""
      cls = Classes[Object.Class(ob).Parent.Name]
      If cls.Symbols.Exist("Tag") Then
        If ob.Tag = "" Then
          aSymbols.Add("Symbol.Tag.Empty")
        Else
          aSymbols.Add("Symbol.Tag." & ob.Tag)
        Endif
      Else
        aSymbols.Add("Symbol.Tag.None")
      Endif

      If cls.Symbols.Exist("Text") Then
        If ob.Text = "" Then
          aSymbols.Add("Symbol.Text.Empty")
        Else
          aSymbols.Add("Symbol.Text." & ob.Text)
        Endif
      Else
        aSymbols.Add("Symbol.Text.None")
      Endif

      If cls.Symbols.Exist("Value") Then
        If ob.Value <> 0 Then
          aSymbols.Add("Symbol.Value." & CStr(ob.Value))
        Else
          aSymbols.Add("Symbol.Value.Empty")
        Endif
      Else
        aSymbols.Add("Symbol.Value.None")
      Endif
    Case Else
      sMark = "#"
  End Select

  Print sMark & Object.Class(ob).Parent.Name & ":" & Object.Class(ob).Name & ":" & aSymbols.Join(":")

End
Páginas (557):    1 131 132 133 134 135 557   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 284
Último miembro: VALENTIN KORONADO
Temas del foro: 1,719
Mensajes del foro: 8,923
Últimos temas
Un sistema de ayudas cont...
Foro: Videotutoriales
Último mensaje por: guizans, 22-06-2025, 19:55
Respuestas: 3 - Vistas: 204
Publicidad
Foro: Sobre gambas-es.org
Último mensaje por: Shordi, 18-06-2025, 07:35
Respuestas: 5 - Vistas: 204
Web con gambas, a ver si ...
Foro: WebApp/WebForms
Último mensaje por: jackrobot, 16-06-2025, 17:11
Respuestas: 40 - Vistas: 31,907
Crear una aplicación para...
Foro: Bases de Datos
Último mensaje por: Shell, 29-05-2025, 20:11
Respuestas: 11 - Vistas: 1,271
Paso de parámetros a una ...
Foro: General
Último mensaje por: guizans, 29-05-2025, 19:27
Respuestas: 9 - Vistas: 788
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.