Foros aprenderaprogramar.com

Aprender a programar => C, C++, C#, Java, Visual Basic, HTML, PHP, CSS, Javascript, Ajax, Joomla, MySql y más => Mensaje iniciado por: LoboBlanco en 03 de Julio 2016, 18:23

Título: ¿Como añadir texto a una ventana de Dialogo con PowerBasic
Publicado por: LoboBlanco en 03 de Julio 2016, 18:23
Hola a todos de nuevo   :)

Lo que quiero hacer es presentar en pantalla 1 pregunta, con 4 posibles respuestas, unos botones de eleccion de cada posible respuesta.

El usuario elige su respuesta pulsando el botón correspondiente.

A continuación el programa le dice si es correcto o no. Y le presenta un comentario sobre la pregunta. Esta es la parte que me da problemas

No sé como añadir un segundo grupo de frases en la pantalla de dialogo.

Lo he hecho con

DIALOG NEW
CONTROL ADD TEXTBOX
CONTROL ADD BUTTON
DIALOG SHOW


No sé como añadir el texto para que con otro DIALOG SHOW aparezca en pantalla a continuación de lo anterior

Título: Re:¿Como añadir texto a una ventana de Dialogo con PowerBasic
Publicado por: César Krall en 08 de Julio 2016, 14:56
Hola!

Sería interesante que indiques qué versión de Power Basic o extensiones y compilador estás usando, si es PBDos, PBCC, PBWin, etc.

Saludos!
Título: Re:¿Como añadir texto a una ventana de Dialogo con PowerBasic
Publicado por: LoboBlanco en 13 de Julio 2016, 23:06
Estoy utilizando PB Win 10.02




Título: Re:¿Como añadir texto a una ventana de Dialogo con PowerBasic
Publicado por: César Krall en 15 de Julio 2016, 17:07
No he trabajado con Power Basic, sólo con Visual Basic, si lo hiciera con Visual lo que haría sería tener varios botones y como respuesta a hacer click en un botón puedes o bien mostrar un mensaje en un label existente en la ventana o bien lanzar una ventana de mensaje (msgbox). Hacerlo de una forma u otra sería solo cuestión de diseño del programa, es decir, lo que tú decidas que puede ser preferible...

He visto este ejemplo que sería más o menos una orientación

Código: [Seleccionar]
   #Compile Exe
   Global hDlg As Dword
   Function PBMain() As Long
      Dialog New Pixels, 0, "Button Test",300,300,200,200, _
                                      %WS_SysMenu, 0 To hDlg
      Control Add Button, hDlg, 100,"Push", 50,50,100,20
      Dialog Show Modal hDlg Call DlgProc
   End Function

   CallBack Function DlgProc() As Long
      If CB.Msg = %WM_Command And CB.Ctl = 100 And _
                        CB.CtlMsg = %BN_Clicked Then
         MsgBox "Pushed!"
      End If
   End Function