Shell 24-07-2024, 23:14
Buenas!.
En este caso he añadido el evento mousemove y he activado la propiedad Tracking del ScrollArea.
![[Imagen: FClqbgt.jpeg]](https://i.imgur.com/FClqbgt.jpeg)
Al principio el primer problema que me encontré es que me mostraba en el DrawingArea las barras de desplazamiento
del ScrollArea, luego lo solucioné.
Puede que sea interesante añadirle zoom.
Aún así, no funciona del todo. Lo sé por que donde salgo yo, no se muestra, llegaba tarde al senado..je, es deformación profesional.
Fijaros con la barra se ven los dos senadores en la parte inferior derecha del dibujo, en cambio con el ratón no se puede.
Saludos
En este caso he añadido el evento mousemove y he activado la propiedad Tracking del ScrollArea.
Al principio el primer problema que me encontré es que me mostraba en el DrawingArea las barras de desplazamiento
del ScrollArea, luego lo solucioné.
Código:
Private unaimagen As Image
Public Sub Form_Open()
unaimagen = Image.Load("Politica-historia-Roma.jpg")
With ScrollArea1
.AutoResize = False
.ScrollBar = Scroll.Both
.ResizeContents(unaimagen.W, unaimagen.H)
.Tracking = True
.Refresh
End With
End
Public Sub DibujarImagen()
Paint.Translate(-ScrollArea1.ScrollX, -ScrollArea1.ScrollY)
Paint.DrawImage(unaimagen, 0, 0)
End
Public Sub ScrollArea1_Draw()
DibujarImagen
DrawingArea1.Refresh
End
Public Sub DrawingArea1_Draw()
Dim otraimagen As New Image
Dim hbrush As PaintBrush
If unaimagen Then
'Si se activa esta línea y se desactiva la siguiente, se muestran las barras de desplazamiento del ScrollArea en el DrawingArea
'otraimagen = Desktop.Screenshot(ScrollArea1.ScreenX, ScrollArea1.ScreenY, ScrollArea1.Width, ScrollArea1.Height).Image
otraimagen = Desktop.Screenshot(ScrollArea1.ScreenX, ScrollArea1.ScreenY, ScrollArea1.ClientWidth, ScrollArea1.ClientHeight).Image
hbrush = Paint.Image(otraimagen)
hbrush.Scale(DrawingArea1.W / otraimagen.W, DrawingArea1.H / otraimagen.H)
Paint.Brush = hbrush
Paint.Rectangle(0, 0, DrawingArea1.W, DrawingArea1.H)
Paint.Fill
Endif
End
Public Sub ScrollArea1_MouseMove()
ScrollArea1.Scroll(Mouse.X, Mouse.y)
EndPuede que sea interesante añadirle zoom.
Aún así, no funciona del todo. Lo sé por que donde salgo yo, no se muestra, llegaba tarde al senado..je, es deformación profesional.
Fijaros con la barra se ven los dos senadores en la parte inferior derecha del dibujo, en cambio con el ratón no se puede.
Saludos
Archivos adjuntos
El IDE no reconoce las tildes
Grandamakulo 24-07-2024, 19:07
Hola, compañeros:
De repente, because if, sin saber por qué, el IDE no reconoce las tildes cuando estoy escribieno.
En otros programas no tengo problemas.
Si copio y pego, no hay problema.
Con la «ñ» y la «ç» tampoco hay problema.
He cambiado el teclado a «Esperanto» y a «Español - Dvorak» y nada.
He reiniciado Gambas, Cinammon y Linux, por ese orden, y nada de nada.
¿A alguien más le pasa?
¿Cuál es la solución?
Muchas gracias de antemano.
PS.—Me estoy poniendo mucho de los nervios
De repente, because if, sin saber por qué, el IDE no reconoce las tildes cuando estoy escribieno.
En otros programas no tengo problemas.
Si copio y pego, no hay problema.
Con la «ñ» y la «ç» tampoco hay problema.
He cambiado el teclado a «Esperanto» y a «Español - Dvorak» y nada.
He reiniciado Gambas, Cinammon y Linux, por ese orden, y nada de nada.
¿A alguien más le pasa?
¿Cuál es la solución?
Muchas gracias de antemano.
PS.—Me estoy poniendo mucho de los nervios
portaro 23-07-2024, 02:01
![[Imagen: 0MIkw2h.png]](https://i.imgur.com/0MIkw2h.png)
Hola a todos estoy intentando hacer un programa que hiciera lo siguiente :1 tubiera una imagen.
2 Importara una lista en tablas me da tanto que sea DB o una simple hoja con datos.
Pasa que no se ni pana de que controles usar.
Me hice con DB browser y experimente hacer una DB alla y que despues gambas me la meta en data view o grid view o table view ... y todos los view que vi en el menu de gambas.
Seguro tengo el codigo malo andube buscando y copie un poco de este lugar → https://gambas-buch.de/dwen/doku.php?id=....4.1:start
No toco Gambas hace tiempo recuerdo que hice un programa asi antes pero me daba problemas de tamaño en el form y no supe continuar pero se que llegue a hacer que me importara datos de un archivo usando en programa de DB browser pero despues me comia celdas, solo que ya se me borro como lo hice.
Se podria hacer con un list view ?
Si hay alguno en la forja de Gambas decidme que asi me lo descargo.
Gracias.
Bienvenido, Invitado
Últimos temas
Un interprete de basic en...
Foro: HTML, CSS, JavascriptÚltimo mensaje por: guizans, 03-02-2026, 23:34
Respuestas: 5 - Vistas: 173
El ratón no hace click do...
Foro: InstalaciónÚltimo mensaje por: guizans, 30-01-2026, 20:41
Respuestas: 2 - Vistas: 174
Parámetro de clase y pará...
Foro: GeneralÚltimo mensaje por: guizans, 30-01-2026, 20:40
Respuestas: 8 - Vistas: 346
Gmao-Factory: Aplicación ...
Foro: PythonÚltimo mensaje por: jguardon, 25-01-2026, 15:53
Respuestas: 5 - Vistas: 284
SqetchDB, un proyecto re-...
Foro: GeneralÚltimo mensaje por: guizans, 21-01-2026, 19:57
Respuestas: 8 - Vistas: 426