Comunidad Gambas-es

Obtener los eventos de controles creados en otra parte pero colocados en el formular.

tincho 03-01-2025, 12:48

Hola,

Cuando los controles se crean en un módulo, no en el formulario principal, pero luego estos son colocados en un panel en el formulario principal ¿Cuál es la forma de obtener los eventos en estos controles en el formulario?

Gracias.

Archivos adjuntos

sample-controls-by-code-0.0.1.tar.gz (Tamaño: 7.86 KB Descargas: 1)

Aplicaciones/Fragmentos de Código Respuestas 2

Lanzar aplicación desde la terminal. Propiedades del lanzador

Shell 31-12-2024, 15:37

Buenas!.

Tengo que lanzar Gambas desde la terminal, pero no quiero tener que estar escribiendo toda
la linea de comando en la terminal siempre. Quiero algo automático.

Para ello se crea un nuevo lanzador y en el tipo le dices que es terminal.

Si comparamos las propiedades del lanzador viéndolas en el escritorio, botón derecho->propiedades.
No parece que haya diferencia con la que arranca sin hacerlo desde la terminal.

Pero si la ves desde un editor de texto. Abrir el lanzador con un editor de texto.
Este archivo tiene una propiedad que es terminal y su valor puede ser False (no arranca de terminal)
y True (arranca de la terminal).

Hasta ahí bien. El problema es que la terminal se cierra, al cerrar el editor de Gambas y no permanece abierta.

Este es el contenido del archivo desktop.

Cita:#!/usr/bin/env xdg-open
[Desktop Entry]
Version=1.0
Type=Application
Terminal=true
Exec=env GB_GUI=gb.qt5 gambas3
Name[es_ES]=Gambas3DesdeTerminal
Comment[es_ES]=Ejecutar Gambas3 desde la terminal
Name=Gambas3DesdeTerminal
Comment=Ejecutar Gambas3 desde la terminal

Necesitará algo más.

Probablemente creando un script tarde menos.. Smile

Saludos

Mundo Linux Sin respuestas

mostrar resultados de consulta en textbox

alberto-moyano 28-12-2024, 22:34

Hola gente, espero hayan tenido buenas fiestas.

Siguiendo la sugerencia de Tincho estoy haciendo una actualización en mi aplicación, pasando las consultas al evento data, este es el código

Código:
Public Sub VListaBIB_Data(Row As Integer, Column As Integer)

  If ContenidoBibTotal = Null Then Return

  If Row < 0 Or Row >= ContenidoBibTotal.Count Then Return

  ContenidoBibTotal.MoveTo(Row)

  Select Case Column

    Case 0

      VListaBIB.Data.Text = ContenidoBibTotal["id"]

    Case 1

      VListaBIB.Data.Text = ContenidoBibTotal["author"]

    Case 2

      VListaBIB.Data.Text = ContenidoBibTotal["editor"]

    Case 3

      VListaBIB.Data.Text = ContenidoBibTotal["title"]

    Case 4

      VListaBIB.Data.Text = ContenidoBibTotal["journalTitle"]

    Case 5

      VListaBIB.Data.Text = ContenidoBibTotal["yearY"]

    Case 6

      VListaBIB.Data.Text = ContenidoBibTotal["dateD"]

    Case 7

      VListaBIB.Data.Text = ContenidoBibTotal["publisher"]

  End Select

End

el evento funciona sin problemas, ahora bien cuando hago click en cualquiera de las filas pretendo que se muestren en los textbox correspondientes los datos de la fila seleccionada, este es el código que escribi

Código:
Public Sub VListaBIB_RowClick(Row As Integer)

  ' configurar como se muestran los botones

  btnGuardarCambios.Visible = True

  BtnEliminarBib.Visible = True

  btnAgregarCitationKey.Visible = True

  btnGuardar.Visible = False

  btnAgregarKeyBIB.Visible = True

  BtnRefrescarBib.Visible = True

  ' Asegura de que hay una fila seleccionada

  If Row < 0 Or Row >= VListaBIB.Count Then Return

  ' Rellenar los campos de texto con los valores de la fila seleccionada

  txtIDbibtex.Text = VListaBIB[Row, 0].Text

  ComboBox1.Text = VListaBIB[Row, 1].Text

  txtCLAVEbib.Text = VListaBIB[Row, 2].Text

  txtKEYWORDS.Text = VListaBIB[Row, 3].Text

  txtAUTHOR.Text = VListaBIB[Row, 4].Text

... siguen campos

End

Ahora no obtengo error alguno, quiero decir, puedo seleccionar cualquier fila del grid, la aplicación no se cuelga pero no se reflejan en los textbox los datos de la fila seleccionada.

Y este es el código que diseña el grid en el evento open del formulario

Código:
  ' Ejecutar las consultas SQL

  ContenidoBibTotal = meConn.Exec("SELECT * FROM bibtex ORDER BY id DESC")

  VListaBIB.Rows.Count = ContenidoBibTotal.Count

  ' Configurar diseño del GridView

  With VListaBIB

    .Header = True

    .Grid = True

    .Columns.Count = 8 ' Ajusta según las columnas necesarias

    .Columns[0].Title = "Id"

    .Columns[0].Width = 0

    .Columns[1].Title = "Autor"

    .Columns[1].Width = 250

    .Columns[2].Title = "Editor"

    .Columns[2].Width = 250

    .Columns[3].Title = "Título"

    .Columns[3].Width = 600

    .Columns[4].Title = "Revista"

    .Columns[4].Width = 250

    .Columns[5].Title = "Año"

    .Columns[5].Width = 70

    .Columns[6].Title = "Fecha"

    .Columns[6].Width = 120

    .Columns[7].Title = "Editorial"

    .Columns[7].Width = 250

  End With

Estoy medio perdido, porque lei en algun lugar a Shordi decir que el evento data no trabaja con filas, alguno tiene idea de por donde vienen los tiros.

Saludos

Bases de Datos Respuestas 5

Páginas (520): 1 … 3 4 5 6 7 … 520

Bienvenido, Invitado

Buscar en los foros

Estadísticas del foro

Miembros: 264

Último miembro: NEURO

Temas del foro: 1,595

Mensajes del foro: 8,328

Últimos temas

Portal

tincho 03-01-2025, 12:48

Shell 31-12-2024, 15:37

alberto-moyano 28-12-2024, 22:34

¿Cómo crear servidor FTP ...

Ver los repositorios del ...

TextEditor. Formateado. E...

Gambas 3.20

Antiguo foro. ¿ Viable ?