• Usercontrol / Options - M...
  Foro: Controles/Librerías/Componentes
  Último mensaje por: gambix
  Hace 34 minutos
  » Respuestas: 5
  » Vistas: 94
• format y operaciones mate...
  Foro: General
  Último mensaje por: jguardon
  Hace 5 horas
  » Respuestas: 7
  » Vistas: 107
• Bits
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: tercoide
  Hace 6 horas
  » Respuestas: 5
  » Vistas: 72
• Tablas foráneas referenci...
  Foro: Bases de Datos
  Último mensaje por: tincho
  Ayer, 23:36
  » Respuestas: 3
  » Vistas: 56
• Comet-VideoConverter un F...
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: HenryGuzman
  13-08-2022, 18:11
  » Respuestas: 7
  » Vistas: 360

• Mensajes del foro:4,787
• Temas del foro:879
• Miembros:167
• Último miembro:alfonsoC3

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.

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
End

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
  Next

Buenos días a todos.

Necesito implementar algo que se comporte como el Form en el IDE: que se pueda arrastrar "algo" (una imagen por ejemplo) y se coloque según una grilla, pero que , una vez colocado, pueda volverse a arrastrar de nuevo para reubicarlo. Intente un drag/drop sobre un Drawapanel y dibujar la imagen, lo cual funciona correctamente, pero eso no puede volver a reubicarse de la misma manera, queda fijo. Lo cual es correcto porque el nuevo dibujo no es un objeto si no un dibujo sobre el DrawPanel.

Hay algo parecido o un ejemplo de algo similar?

Buenas!.

¿ Es normal tener una opción en el menú que es un calco una de la otra ?.

- Herramientas -> Encontrar
- Herramientas -> Buscar y reemplazar

No es una cuestión propia del editor de Gambas.
Es normal que existan dos opciones en un menú ya que son opciones distintas, aunque su formulario sea similar.

Gambas:



( Muy buena, tanto la opción de resaltado como la opción de buscar sin usar el menú, una búsqueda detalla en la parte inferior de la ventana del editor)

Visual Studio Code: Parece muy breve.



El botón izquierdo ">" permite abrir la opción de reemplazar.



Idle: Es el que más difiere.



Reemplazar en Idle: