sushisan 08-08-2022, 19:47
Hice un programa que arrastra un PictureBox sobre un Panel
En general funciona correctamente pero no parece responder de manera continua.
Cuando arrastro dentro del Panel hay veces que se pone como si no dejase soltar en ese lugar y otras si de manera un poco aleatoria.
Si lo suelto la imagen la coloca en ese lugar pero el evento Drop del panel no devuelve la información correcta como si no lo hubiese hecho.
Ejemplo:
Eso no siempre imprime el Tag, como si no reconociese el Drop sobre el Panel. Sucede cuando se pone en modo que no permite el Drop dentro del Panel. Insisto, la imagen la coloca en el lugar de todos modos pero no se ejecuta el evento Drop.
Hice un cambio y el problema esta al mover el PictureBox dentro de una grilla predefinida. Aparentemente hay logares donde queda el mouse fuera del objeto
Lo que hago es:
En general funciona correctamente pero no parece responder de manera continua.
Cuando arrastro dentro del Panel hay veces que se pone como si no dejase soltar en ese lugar y otras si de manera un poco aleatoria.
Si lo suelto la imagen la coloca en ese lugar pero el evento Drop del panel no devuelve la información correcta como si no lo hubiese hecho.
Ejemplo:
Código:
Public Sub Panel1_Drop()
Print "Drag Tag: " & Drag.Source.Tag
EndEso no siempre imprime el Tag, como si no reconociese el Drop sobre el Panel. Sucede cuando se pone en modo que no permite el Drop dentro del Panel. Insisto, la imagen la coloca en el lugar de todos modos pero no se ejecuta el evento Drop.
Hice un cambio y el problema esta al mover el PictureBox dentro de una grilla predefinida. Aparentemente hay logares donde queda el mouse fuera del objeto
Lo que hago es:
Código:
Public Sub Panel1_DragMove()
Drag.Source.X = Int((Round((Drag.X + Panel1.X) / Grid_Size)) * Grid_Size)
Drag.Source.Y = Int((Round((Drag.Y + Panel1.Y) / Grid_Size)) * Grid_Size)
Drag.Source.Raise
Drag.Show(Drag.Source)
End
tercoide 08-08-2022, 15:40
buen día, amigos:
Resulta que el CAD que estamos haciendo esta llegando a un punto de maduración importante y pronto (en tiempos geológicos) llegara el momento en que queramos difundirlo en las redes.
Sin llegar ser una copia y lejos de ser tener la capacidad de otros CAD de gigantes como AutoDesk, comparten nomenclatura, cosas de su formulario principal y formatos de archivo que están en ese soft, principalmente el AutoCAD. La pregunta que me hago es: hasta que punto se puede un programa parecerse a otro sin violar derechos de autor? se puede "Guardar" un archivo en un formato supuestamente privativo (DWG , aunque hubo un controversia al respecto y juicios entre companias)
Si "castellanizamos" los nombres , no estaríamos esquivando violaciones de Copyright, generalmente en ingles?
Resulta que el CAD que estamos haciendo esta llegando a un punto de maduración importante y pronto (en tiempos geológicos) llegara el momento en que queramos difundirlo en las redes.
Sin llegar ser una copia y lejos de ser tener la capacidad de otros CAD de gigantes como AutoDesk, comparten nomenclatura, cosas de su formulario principal y formatos de archivo que están en ese soft, principalmente el AutoCAD. La pregunta que me hago es: hasta que punto se puede un programa parecerse a otro sin violar derechos de autor? se puede "Guardar" un archivo en un formato supuestamente privativo (DWG , aunque hubo un controversia al respecto y juicios entre companias)
Si "castellanizamos" los nombres , no estaríamos esquivando violaciones de Copyright, generalmente en ingles?
guizans 08-08-2022, 00:03
Hola a todos.
Me estoy volviendo loco con un error que no soy capaz de encontrar. Tengo esta función, que basicamente rellena un array de dos dimensiones preguntando al usuario por los números.
Como apunte, las variables "filas" y "columnas" son variables de clase y he comprobado que no tengan un valor de cero. El caso que es en la primera vuelta del bucle for me da un error de "Bad number of dimensions" en la línea 22. Y no puede ser, ya que las variables "c" y "a" tienen el valor de 0, como digo es en la primera interacción.
El caso que poninedo este código en la web de Gambas no me da error.
Como se puede observar es practicamente el mismo, el primero me da error y el segundo no. ¿Alguién ve lo que estoy haciendo mal?
Muchas gracias.
Un saludo.
Me estoy volviendo loco con un error que no soy capaz de encontrar. Tengo esta función, que basicamente rellena un array de dos dimensiones preguntando al usuario por los números.
Código:
Private Function preguntarDatos(d As String) As Float[]
Dim a, c As Integer
Dim entrada As String
Dim en As Float[]
Dim b As Float
en = New Float[filas, columnas]
Print "Introduce los datos de la matriz '" & d & "':"
For c = 0 To filas - 1
For a = 0 To columnas - 1
While True
Print "Dato [" & Str(c + 1) & ", " & Str(a + 1) & "] = ?"
Input entrada
Try b = CFloat(entrada)
If Error Then
Print "Dato no válido..."
Else
Break
Endif
Wend
en[c, a] = b
Next
Next
Return en
EndEl caso que poninedo este código en la web de Gambas no me da error.
Código:
Dim a, c As Integer
Dim entrada,d As String
Dim en As Float[]
Dim b As Float
dim filas, columnas as integer
filas = 3
columnas = 3
d="jk"
en = New Float[filas, columnas]
Print "Introduce los datos de la matriz '" & d & "':"
For c = 0 To filas - 1
For a = 0 To columnas - 1
While True
Print "Dato [" & Str(c + 1) & ", " & Str(a + 1) & "] = ?"
entrada = "3"
Try b = CFloat(entrada)
If Error Then
Print "Dato no válido..."
Else
Break
Endif
Wend
en[c, a] = b
Next
NextComo se puede observar es practicamente el mismo, el primero me da error y el segundo no. ¿Alguién ve lo que estoy haciendo mal?
Muchas gracias.
Un saludo.
Bienvenido, Invitado
Últimos temas
Problema con el repósito ...
Foro: InstalaciónÚltimo mensaje por: guizans, 14-04-2026, 21:38
Respuestas: 2 - Vistas: 333
UEFI y BIOS
Foro: Hardware & IoTÚltimo mensaje por: guizans, 13-04-2026, 21:22
Respuestas: 3 - Vistas: 2,497
Visual Studio Code con Ga...
Foro: GeneralÚltimo mensaje por: guizans, 07-03-2026, 14:24
Respuestas: 2 - Vistas: 719
WebForm con mysql gridvie...
Foro: WebApp/WebFormsÚltimo mensaje por: vjarvelo, 03-03-2026, 16:32
Respuestas: 2 - Vistas: 3,373
Sobre la proteccion del c...
Foro: GeneralÚltimo mensaje por: Shordi, 19-02-2026, 11:07
Respuestas: 7 - Vistas: 1,308