Comunidad Gambas-es

guizans 24-01-2022, 19:33

Hola.

Como indica el título, he creado un constructor de una nueva ventana que he creado, recibe dos parámetros obligatorios y uno opcional.

Código:
Public Sub _new($nombre as String, $respuestas as Integer, Optional $modo as Boolean  = False)

Hasta aquí todo normal. Pero el problema viene cuando desde un evento del formulario principal hago esto:

Código:
Dim nuevaVentana as VentanaPregunta

nuevaVentana = New VentanaPregunta("hola", 30, True)

Esto me da error, ya que el tercer parámetro, que también es opcional me sale que es de tipo Control, y es algo que no acabo de entender. También he probado a poner dos comas seguidas, pero no funciona. Algo estoy haciendo mal, pero no se el que.
[Imagen: Kd76Hos.png]

Muchas gracias.

Edito: La solución es pasar en los parámetros el nombre de la variable donde se almacena

Código:
nuevaVentana = New VentanaPregunta("hola", 30, nuevaVentana, True)

Lo que no se es el porque de este comportamiento.

General Respuestas 2

FlareRenamer - programa

HenryGuzman 24-01-2022, 19:18

Hola buen dia a todos , està publicaciòn es para presentar un programa que hace poco he terminado , su nombre es FlareRenamer , es un programa que nos ayudarà a trabajar con los nombres de los archivos que tengamos en un directorio o que nosotros agreguemos en el programa , podemos aplicar diferentes filtros como .

Nombre de archivos en Minusculas,Mayusculas , Capitalizar .
Buscar y reemplazar palabra.
Numerar los archivos .
Añadir fecha .
Añadir un nombre para todos los archivos (Se activa la numeraciòn para evitar colisiones).
Distintos idiomas disponibles.
Filtrado de archivos por extensiòn.

El programa cuenta con los paquetes RPM y DEB . tàmbien està disponible un repositorio en OBS para las distribuciòn OpenSuse en donde se subirà los proyectos mucho màs rapido . sin màs les dejo la direcciòn del blog que hice para que sepan acerca de el . muchas gracias , sugerencias para mejorar el programa las pueden hacer en la siguiente direcciòn.

henry151ea@yandex.com

como tàmbien en el blog o en està publicaciòn.

FlareRenamer

[Imagen: AVvXsEh9qXCXE0Mep1LvzKJNC3ePjQw-2yWb1Jtb...F1_w=s1280]

[Imagen: AVvXsEh9qXCXE0Mep1LvzKJNC3ePjQw-2yWb1Jtb...F1_w=s1280]

Aplicaciones/Fragmentos de Código Sin respuestas

Como se dispara el Evento Draw en el siguiente ejemplo?

AlfredoSC 22-01-2022, 22:38

Hola:

Estoy en el tema de poner un DrawingArea en un proyecto, en el cual quiero dibujar algunas funciones trigonométricas. Así que mirando en la web encontré este ejemplo, el cual no explica nada sobre cómo es que "corre solo". No requiere, según el ejemplo, de hacer click en ningún botón. Así no me lleva a comprender cómo funciona DrawingArea. Por favor si alguien me puede decir como aplicarlo?

Código:
' Gambas class file

Public activado As Boolean

Public Sub _new()

End

Public Sub Form_Open()

  ScrollArea1.ResizeContents(400, 400)

  ScrollArea1.Refresh

  ScrollArea1.Shadow = True 'sombra

End

Public Sub ScrollArea1_Draw()

  Paint.DrawText("hola mundo", 10 - ScrollArea1.ScrollX, 10 - ScrollArea1.Scrolly)

  Paint.DrawText("hola mundo", 100 - ScrollArea1.Scrollx, 100 - ScrollArea1.Scrolly, 200, 500)

  Paint.DrawRichText("<h1>Hola <font color=\"red\"> Mundo</font></h1>", 110 - ScrollArea1.ScrollX, 130 - ScrollArea1.Scrolly, 200, 200)

  Paint.MoveTo(100 - ScrollArea1.ScrollX, 100 - ScrollArea1.Scrolly)

  Paint.LineTo(10 - ScrollArea1.ScrollX, 39 - ScrollArea1.Scrolly)

  Paint.LineWidth = 3

  Paint.Rectangle(3 - ScrollArea1.ScrollX, 3 - ScrollArea1.Scrolly, 10, 100)

  Paint.Stroke()  

  Paint.MoveTo(100 - ScrollArea1.ScrollX, 100 - ScrollArea1.Scrolly)

  Paint.LineTo(10 - ScrollArea1.ScrollX, 139 - ScrollArea1.Scrolly)

  Paint.LineWidth = 1

  Paint.Rectangle(3 - ScrollArea1.ScrollX, 3 - ScrollArea1.Scrolly, 10, 100)

  Paint.Stroke()

  Paint.DrawText("Gambas3", 300 - ScrollArea1.Scrollx, 200 - ScrollArea1.Scrolly, 200, 500)

  Paint.DrawRichText("<h1><font color=\"blue\"> Gambas3</font></h1>", 110 - ScrollArea1.ScrollX, 230 - ScrollArea1.Scrolly, 200, 200)

End

Public Sub DrawingArea1_Draw()

  Paint.DrawText("hola mundo", 10, 10)

  Paint.DrawText("hola mundo", 100, 100, 200, 500)

  Paint.DrawRichText("<h1>Hola <font color=\"red\"> Mundo</font></h1>", 110, 130, 200, 200)

  Paint.MoveTo(100, 100)

  Paint.LineTo(10, 39)

  Paint.LineWidth = 3

  Paint.Rectangle(3, 3, 10, 100)

  Paint.Stroke()  

  Paint.MoveTo(100, 100)

  Paint.LineTo(10, 139)

  Paint.LineWidth = 1

  Paint.Rectangle(3, 3, 10, 100)

  Paint.Stroke()

End