Shordi 04-07-2023, 11:48
Tengamos este formulario.
[Imagen: Wtnce9d.png]
Tiene dos gridviews, tres Label y un Listbox.
Al pulsar el botón Colorize quiero que los gridviews y los labels cambien de colores para lo que hacemos una función que lo haga y que descienda recursivamente por el árbol de contenedores:
Código:
Private Sub ColorizeGrid(ctrl As Object)  
 
  Dim o As Object
  Dim sClass As String
 
  sClass = Object.Class(ctrl).Name
  If sClass = "GridView" Or If sClass = "Label" Then ' Si es Gridview o Label cambiamos los colores
    ctrl.Background = Color.lightGray
    ctrl.Foreground = Color.DarkRed
  Endif  
  If Object.Class(ctrl).Exist("Children") And If ctrl.Children.count > 0 Then 'Si es un contenedor, recursivo a sus hijos
    For Each o In ctrl.Children
      ColorizeGrid(o)
    Next
  Endif
 
End


Lo pulsamos y obtenemos ésto:
[Imagen: o69uCEs.png]

¡Oh, sorpresa! el ListBox también ha cambiado de colores. ¿Por qué? Pues porque internamente contiene un Gridview al que accedemos mediante la propiedad Children.
Esto pasaría con un treeview, o con cualquier objeto que contenga gridviews o Labels, etc.

¿A alguien se le ocurre cómo prevenir ésto y que sólo se coloreen los controles que deseamos?

Venga, a estrujarse el coco, que es una tontería pero me lleva loco.

Adjunto el proyectito de prueba.

Saludos
Archivos adjuntos
.gz
Containers_War-0.0.1.tar.gz (Tamaño: 12.42 KB Descargas: 5)
Shell 03-07-2023, 14:13
Buenas!.

Puede que se os dé el caso. Lleváis un buen rato con el ordenador encendido haciendo cosas y "casualmente" necesitáis apagar el equipo,
se te ha antojado hacer otra cosa (normalmente una necesidad que te obliga a apagar el pc, ver la tele, tu mujer te esta llamando por algo, etc.)

Y parece que el sistema cobra vida, se niega a cerrarse "por las buenas".
Y se muestra una ventana que dice lo del titulo, en la lista de las aplicaciones encuentras "Aplicación desconocida ".

Pues como es un proceso que no tiene nombre, no es fácil de saber que hay que buscar, eliminar, etc.
La primera solución, la habitual.

Artículos en ingles.

Dealing with Runaway Processes

Y este que se aproxima más al problema. ( Guardar como oro en paño )

[SOLVED] Unknown Process Halts Shutdown

Saludos
Shordi 03-07-2023, 09:49
Con el rollo de las grandes bibliotecas de epub (270.000 libros) en el disco mecánico, el Calibre se eterniza en arrancar. Si las ubico en el MM2 de 500 GB, se me queda a más del 80% de ocupación, así que, como tenía algo que celebrar (41 años de matrimonio), pues me he acercado a ver precios y he quedado sorprendido de que los MM2 han bajado de precio que te cagas. Cuando compré el de 500 GB los de 1TB eran carísimos y los de 2TB sencillamente inalcalzanbles. Ahora me mercado un disco MM2 de 2TB.

[Imagen: ZcwS7pn.png]
https://www.amazon.es/dp/B07MLJD32L?psc=...ct_details (y no, no cobro nada de Amazon por poner este enlace).

Los había más caros y más rápidos... para gaming (según la propaganda), pero como yo no gaming at all y estoy satisfecho con el de 500GB, que es de la misma gama que éste, he repetido con Samsung.

Ahora creo que tendré que comprar un adaptador PCI-MM2 para poder poner los dos discos. Con ello tendré 2TB + 0,5TB + 4TB = 6,5TB de memoria "Operativa" a la que hay que sumar 3TB+2TB+1TB = 6TB de discos para copias de seguridad. ¡12,5TB de Almacenamiento en mi PC casero!

(Permitidme que me emocione, estáis leyendo a alguien que se emocionaba en su día cuando enviaron desde madrid cuatro discos de 500 GB para el servidor y los cogías con una sola mano y exclamabas ¡Dos Gigas y me caben en la mano!)

Desde que me jubilé, (¿¡Hace ya cuatro años!?), no había tocado mi equipo, con el que estoy muy satisfecho, hasta hoy y quería compartir mi pequeña celebración con vosotros.

Ahora toca abrirlo, limpiarlo, mimarlo, cambiar el disco y reinstalar, reinstalar y reinstalar. Mola. (Por cierto, me entran tentaciones de cambiar de SO otra vez. ¿Manjaro?¿ArchLinux? No sé, no sé...



Saludos
Páginas (564):    1 156 157 158 159 160 564   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 292
Último miembro: DarkWolf
Temas del foro: 1,742
Mensajes del foro: 9,031
Últimos temas
Ordenar en un TableView
Foro: General
Último mensaje por: guizans, 05-11-2025, 23:26
Respuestas: 5 - Vistas: 139
Odio a gb.Report
Foro: General
Último mensaje por: guizans, 02-11-2025, 13:36
Respuestas: 9 - Vistas: 1,577
Reportes de Gambas
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: Alberto59, 27-10-2025, 16:34
Respuestas: 2 - Vistas: 1,342
Ordenando las carpetas
Foro: Programación en otros lenguajes
Último mensaje por: tercoide, 22-10-2025, 15:57
Respuestas: 0 - Vistas: 118
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.