tincho 17-11-2022, 01:20
Hola amigos.
Estoy agregando la visualización de fotos en un panel en el que agrego por código una serie de picturebox donde les cargo la imagen de la foto pero es lento.
Estoy usando el siguiente código para lograr la carga de imágenes 128 o 256 pixeles de lado:
Código:
Public Function CanvasPic(sFile As String, iSize As Integer) As Picture
  Dim pic As Picture
  Dim img As Image
  Dim sc As Float
  Dim H, W As Integer
  If Exist(sFile) Then
    img = Image.Load(sFile)
    If img.W >= img.H Then
      sc = img.H / img.W
      W = iSize
      H = iSize * sc
    Else
      sc = img.W / img.H
      W = iSize * sc
      H = iSize
    Endif
    pic = img.Stretch(W, H).Picture
  Endif
  Return pic
End

Pero al ser tan lento no lo puedo implementar para representar muchas imágenes.
Alguien podría sugerir alternativas mas eficientes.
Muchas gracias de antemano.
Shell 15-11-2022, 15:21
Buenas!.

Necesito ejecutar una aplicación una y otra vez para ver los cambios rápidamente. Y no perder mucho tiempo. Es una aplicación gráfica.

- Ejecuto con F5
- Para cerrar. O le doy al botón de la x para cerrar la ventana o en el evento KeyPress hago que cierre mediante el método close o quit con la tecla Escape.
- Intento ejecutar de nuevo con F5. Se ha perdido el foco y necesito darle al botón de ejecución.

Gambas 3.17.3. Linux Mint Mate 20.3

Probablemente sea algo normal, pero no debería ser así, el teclado no debe pasar a un segundo plano y que se necesite el ratón si o si. Huh

Curiosamente el cursor no parpadea en el área de código. Rolleyes

"El cursor no está, el cursor se fue. El cursor se escapa del área de código..." Cool


Saludos
gartumar2 15-11-2022, 00:47
Creo que me estoy equivocando al entender que Result es un conjunto de registros obtenidos de la bdd.

Ejemplo primero y planteo la duda:

Dim rDatos as Result
rDatos = db.Find("tabla1")
rDatos.MoveFirst (ya sé que esto no es imprescindible aquí)
while rDatos.Available
       blabla(rDatos!campo1, rDatos!campo2, rDatos!campo3)
       rDatos.MoveNext
wend
 Perfecto,  funciona de mil maravillas.
Peeeero si la tabla tiene un montón de campos....... los tengo que pasar todos de uno en uno????

No he encontrado la forma de hacer blabla(rDatos.TodoElregistroDeUNgolpe) o algo que se le parezca

public sub blabla(registro As ???????what)

NI con fields, ni con ResultField, ni nada de nada.

Algo me he perdido.

Una ayudita, please.
Páginas (566):    1 251 252 253 254 255 566   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 295
Último miembro: ncofre98
Temas del foro: 1,748
Mensajes del foro: 9,072
Últimos temas
Problemas con las interru...
Foro: General
Último mensaje por: guizans, 14-12-2025, 18:40
Respuestas: 5 - Vistas: 214
Scrolling un ScrollArea
Foro: Controles/Librerías/Componentes
Último mensaje por: Shordi, 12-12-2025, 07:24
Respuestas: 5 - Vistas: 228
Ordenar en un TableView
Foro: General
Último mensaje por: guizans, 08-12-2025, 23:06
Respuestas: 9 - Vistas: 915
Resultados dispares según...
Foro: Bases de Datos
Último mensaje por: guizans, 04-12-2025, 22:49
Respuestas: 6 - Vistas: 380
Mover un Result a una pos...
Foro: Bases de Datos
Último mensaje por: guizans, 30-11-2025, 19:25
Respuestas: 2 - Vistas: 212
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.