Comunidad Gambas-es

Como agregar un control durante la ejecución y manejar sus eventos???

tercoide 19-07-2022, 00:52

Necesito ayuda en algo que seguramente para algunos sera una sonzera, pero nunca lo hice: en algun momento de la ejecucion del progrma voy a abrir un archivo, entoces tengo que agregar una TabStrip al lado de Drawing1, y meter otra TabStrip (o TabPanel) tal como esta ahi, con un control GLArea metido. Se puede hacer? Supongamos que el user intentara abrir muchos archivos....
Siendo la otra posibilidad de crearlos en el IDE , digamos unos 10 tabs y limitar la apertura de archivos a ese numero; y ocultando los tabs que no se usan.

[Imagen: hh4UAqk.png]

Controles/Librerías/Componentes Respuestas 4

Cambiar el tamaño a un control diseñado sobre un formulario en modo diseño

Shell 18-07-2022, 16:47

Buenas!.

Cuando situamos un control nativo de Gambas sobre el formulario en modo diseño, podemos ampliar o reducir su tamaño,
pero no es un icono, es un "elemento" que reacciona cambiando su tamaño según ajustamos sus vértices con el ratón.
¿ Se comporta igual un control que hemos diseñado nosotros o tan solo es un icono dentro de un marco ?.

Una cosa es el icono que aparece en la hoja de propiedades en la caja de los distintos grupos y otra cosa es el diseño que
lo representa al situarlo en el formulario. Si mi control es compuesto puede que no se muestre entero a la hora de ejecución.

Imaginar que mi control es un rectángulo de color azul, pues eso es precisamente lo que quiero ver en modo diseño,
un rectángulo que cambio el tamaño de sus lados al modificar los extremos del marco que lo contiene.

Saludos

Controles/Librerías/Componentes Respuestas 4

Problema convirtiendo nombre de archivo. Código de página

Shell 17-07-2022, 13:41

Buenas!.

Un grupo de nombres de los archivo que aparecían en un ebook que tengo por aquí mostraba caracteres raros.
Las tildes. Decidí convertir el nombre a otros códigos de página, pero no parece un nombre de archivo con sentido al convertir el código de página. Sad

Adjunto el código del programa y el ejemplo para poder intentar solucionar el problema.
Utilizo para ello distintas codificaciones de página que me genera el comando iconv.

Código:
Private cuentafilas As Integer

Public Sub Form_Open()

  With grdTabla

    .Header = GridView.Both

    .Columns.Count = 3

    .Rows.Count = 0

    .Columns[0].Title = "Texto original"

    .Columns[0].W = 350

    .Columns[1].Title = "Codificación"

    .Columns[1].w = 150    

    .Columns[1].Alignment = Align.Center

    .Columns[2].Title = "Texto convertido a UTF-8"

    .Columns[2].W = 350

    .Columns[2].Alignment = Align.Center

  End With

End

Public Sub rellenarGridView(nombrefichero As String, datos As String[])

  Dim jc As String

  Dim conversion As String

  For Each jc In datos

    grdTabla.Rows.Count = cuentafilas + 1

    grdTabla[cuentafilas, 0].Alignment = Align.Left

    grdTabla[cuentafilas, 0].Text = nombrefichero

    grdTabla[cuentafilas, 1].Alignment = Align.Center

    grdTabla[cuentafilas, 1].Text = jc

    grdTabla[cuentafilas, 2].Alignment = Align.Center    

    Try conversion = Conv(nombrefichero, jc, "UTF-8")

    If Not IsNull(conversion) Then grdTabla[cuentafilas, 2].Text = conversion        

    If Error Then

      'No cuentes fila

      Continue

    Else

      cuentafilas += 1

    Endif    

  Next

  Label1.Text = "Total de conversiones: " & Str(cuentafilas + 1)

End

Public Sub Button1_Click()

  Dim archivo As String

  Dim juegodec As New String[]

  Dim tiposdecodificacion As String  

  'conv de gambas es un intermediario del comando iconv del sistema  

  'pasamos todos los códigos de página que existe a la variable

  Try Exec ["iconv", "--list"] To tiposdecodificacion

  'Copiado y pegado directamente el nombre del archivo en el editor de Gambas

  'No puedo pasar el archivo, ya que no tengo seguridad si es libre

  archivo = "Benito Prerz Gald¢s - Los Ayacuchos.epub"

  juegodec = Split(tiposdecodificacion, "\n", "//", True)    

  rellenarGridView(archivo, juegodec)

   'Esto salta siempre al final. No sé si es un error que viene del relleno del gridview

   'He tenido que anular su ejecución

  'If Error Then Message.Warning("No tienes instalado iconv en tu sistema!")

End