Shell 03-05-2023, 00:21
Buenas!
Tengo que eliminar una serie de controles en un contenedor. Pero la eliminación de estos es un poco más complicado que ocultarlos.
Por otro lado cuando se elimina un control, ¿ se elimina o queda invalido ?.
He creado este ejemplo. En un panel añado picturebox desde los botones de abajo, su imagen varia dependiendo si quiero que muestre
un círculo o un cuadrado.
Puedo ocultar cada uno de los controles, ¿ pero seria posible eliminarlos ?. Acordaros que los controles en su contenedor tienen un indice.
Si es un array, haceros a la idea de lo que quiere decir eso, cuando eliminas un elemento y lo que ocurre con sus indices.
Actualmente solo oculto los controles creados.
![[Imagen: cBFL4iL.png]](https://i.imgur.com/cBFL4iL.png)
Para eliminar se debe hacer click sobre la figura.
Subo el ejemplo.
Saludos
Tengo que eliminar una serie de controles en un contenedor. Pero la eliminación de estos es un poco más complicado que ocultarlos.
Por otro lado cuando se elimina un control, ¿ se elimina o queda invalido ?.
He creado este ejemplo. En un panel añado picturebox desde los botones de abajo, su imagen varia dependiendo si quiero que muestre
un círculo o un cuadrado.
Puedo ocultar cada uno de los controles, ¿ pero seria posible eliminarlos ?. Acordaros que los controles en su contenedor tienen un indice.
Si es un array, haceros a la idea de lo que quiere decir eso, cuando eliminas un elemento y lo que ocurre con sus indices.
Actualmente solo oculto los controles creados.
Para eliminar se debe hacer click sobre la figura.
Código:
'Actualmente no los elimina, los oculta
Private afigures As New PictureBox[] 'Almacenará todos los picturebox
Private indice As Integer
Public Sub Form_Open()
Me.Title = "Eliminar control de su contenedor"
Panel1.Arrangement = Arrange.Row
End
Public Sub CrearFigura(tipo As Integer)
Dim pfigura As PictureBox
pfigura = New PictureBox(Panel1) As "Figura"
Select Case tipo
Case 1
pfigura.Picture = Picture.Load(Application.Path &/ "circulo.png")
Case 2
pfigura.Picture = Picture.Load(Application.Path &/ "cuadrado.png")
End Select
With pfigura
.Tooltip = "Haz click para eliminarlo del panel"
.w = 64
.H = 64
.Tag = indice
End With
indice += 1
afigures.Add(pfigura)
End
Public Sub BotonesCreadores_Click()
'Crea un circulo "1" o un cuadrado "2"
CrearFigura(Last.tag)
End
Public Sub Figura_MouseDown()
'Se oculta el último picturebox en el que se ha hecho click dentro de el
Last.Hide
EndSubo el ejemplo.
Saludos
Archivos adjuntos
Shell 27-04-2023, 12:17
Buenas!.
El tiempo que tarda la copia total la vimos hace ya tiempo en un ejemplo con la barra de progreso.
Pero, ¿ cómo calcularíamos la velocidad en tiempo real de la copia de "x" archivos ?.
En Gambas tenemos la posibilidad de saber cuanto mide un archivo mediante el comando Stat.
Salida:
Imaginar que tenemos 10 archivos iguales como ese. ( Eso puede ser lo más fácil )
Cada vez que termina la copia de uno de esos archivos, ha pasado un tiempo y se ha transferido una cantidad de información.
Cada vez que escribe 4458K en el disco se acaba una copia, tenemos cuando comenzó y cuando terminó y vuelve a repetirse el proceso.
comienzo = Timer
diferenciadetiempo = Timer - comienzo
Es tamaño / tiempo si no recuerdo mal.
En el caso de un archivo si ha tardado 0.25 segundos y su tamaño es 4M, su velocidad podía haber sido:
4M / 0.25 = 16M/s ¿ No ?.
Eso sería lo que tarda en copiarse un archivo. Como son archivos iguales pues sería sencillo de calcular.
Ahora lo interesante sería de que los archivos fueran de distinto tamaño.
Entonce supongo que por la formula anterior iríamos sumando los tiempos que tarda cada copia y dividiríamos por la media del número de archivos.
Eso supongo que es lo que debe mostrarse en el progresos de la copia.
¿ Ustedes que opinan ?. Tranquis el mundo va a seguir ahí.
Saludos
El tiempo que tarda la copia total la vimos hace ya tiempo en un ejemplo con la barra de progreso.
Código:
Public Sub Copiar()
Dim aarchivos As New String[]
Dim unarchivo As String
Dim incrementos As Float
comienzo = Timer
aarchivos.Clear
ProgressBar1.Value = 0
aarchivos = RDir(directoriorigen, "*", gb.File)
incrementos = 1 / aarchivos.Count
For Each unarchivo In aarchivos
ProgressBar1.Value += incrementos
lblStatus.Text = "Copiando " & unarchivo
Wait 0.01
' Para copiar, descomentar
' Copy directoriorigen &/ unarchivo To directoriodestino &/ unarchivo
Next
diferenciadetiempo = Timer - comienzo
Message.Info("Copia completada" & gb.NewLine & "El tiempo que ha tardado en copiar los archivos es: " & Format(diferenciadetiempo, "-#.##") & "s")
Me.Close
EndPero, ¿ cómo calcularíamos la velocidad en tiempo real de la copia de "x" archivos ?.
En Gambas tenemos la posibilidad de saber cuanto mide un archivo mediante el comando Stat.
Código:
Public Sub Main()
Dim rutaarchivo As String
'Uso un nombre de archivo que tengo en el disco
rutaarchivo = User.Home &/ "001 The Present Simple of to be.mp3"
With Stat(rutaarchivo)
Print "Tamaño de archivo: " & Round(.Size / 1024); "K"
Print "Tamaño de archivo: " & Round(.Size / 1024 ^ 2); "M"
End With
EndSalida:
Cita:
Tamaño de archivo: 4458K
Tamaño de archivo: 4M
Imaginar que tenemos 10 archivos iguales como ese. ( Eso puede ser lo más fácil )
Cada vez que termina la copia de uno de esos archivos, ha pasado un tiempo y se ha transferido una cantidad de información.
Cada vez que escribe 4458K en el disco se acaba una copia, tenemos cuando comenzó y cuando terminó y vuelve a repetirse el proceso.
comienzo = Timer
diferenciadetiempo = Timer - comienzo
Es tamaño / tiempo si no recuerdo mal.
En el caso de un archivo si ha tardado 0.25 segundos y su tamaño es 4M, su velocidad podía haber sido:
4M / 0.25 = 16M/s ¿ No ?.
Eso sería lo que tarda en copiarse un archivo. Como son archivos iguales pues sería sencillo de calcular.
Ahora lo interesante sería de que los archivos fueran de distinto tamaño.
Entonce supongo que por la formula anterior iríamos sumando los tiempos que tarda cada copia y dividiríamos por la media del número de archivos.
Eso supongo que es lo que debe mostrarse en el progresos de la copia.
¿ Ustedes que opinan ?. Tranquis el mundo va a seguir ahí.
Saludos
TypeOf...
tincho 25-04-2023, 12:03
Hola amigos.
Si en gambas ponemos:
Esto devolverá 9.
Muy bien. Ahora, sabiendo el 9 ¿Como puedo "imprimir" gb.String?
Si en gambas ponemos:
Código:
Print TypeOf("untextocualquiera")Muy bien. Ahora, sabiendo el 9 ¿Como puedo "imprimir" gb.String?
Bienvenido, Invitado
Últimos temas
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: guizans, Hace 4 horas
Respuestas: 4 - Vistas: 119
Odio a gb.Report
Foro: GeneralÚltimo mensaje por: guizans, 02-11-2025, 13:36
Respuestas: 9 - Vistas: 1,570
Reportes de Gambas
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: Alberto59, 27-10-2025, 16:34
Respuestas: 2 - Vistas: 1,335
FACTURA POR REPORT GAMBAS...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: Alberto59, 27-10-2025, 15:03
Respuestas: 0 - Vistas: 87
Ordenando las carpetas
Foro: Programación en otros lenguajesÚltimo mensaje por: tercoide, 22-10-2025, 15:57
Respuestas: 0 - Vistas: 116