showpopup

[DemoneBianco]

Buongiorno a tutti, sto muovendo i primi passi con visual basic e mi sto allenando usando gambas3. Ai superiori ho studiato altri programmi, ma dopo 20 anni sono un po' arrugginito.

Vorrei chiedere una cosa e ringrazio anticipatamente a chi vorrà dedicare il suo tempo a rispondermi:

Avendo problemi con le finestre dei form chi va in primo piano e chi in secondo, ho fatto un test per mettere un form in primo piano usando la funzione showpopup. L'ho usato per testare l'uso di una progress bar. Essa quando finisce il processo rimane in evidenza e non si chiude nonostante abbia provato hide, close ecc, ho provato pure delete, ma crasha direttamente tutto il programma. Lo sviluppatore mi ha passato un link di modifiche, ma i file citati sul link non li torvo nel mio pc. Tuttavia come si chiude un popup?
 

[vuott]

ho fatto un test per mettere un form in primo piano...

Per porre in primo piano un Form, all'atto della sua aprertura, rispetto agli altri devi utilizzare il suo Metodo " Me.Activate( ) ", avendo cura di porre questa riga di comando all'interno dell'evento " _Activate() " del Form medesimo:

Codice: [Seleziona]

Public Sub Form_Activate()

  Me.Activate

End

[Gianluigi]

Buongiorno a tutti, sto muovendo i primi passi con visual basic e mi sto allenando usando gambas3.

Attenzione che Gambas è parecchio diverso, anzi è meglio dire completamente diverso da VB, specialmente nel modo in cui tratta le finestre.

Avendo problemi con le finestre dei form chi va in primo piano e chi in secondo, ho fatto un test per mettere un form in primo piano usando la funzione showpopup. L'ho usato per testare l'uso di una progress bar. Essa quando finisce il processo rimane in evidenza e non si chiude nonostante abbia provato hide, close ecc, ho provato pure delete, ma crasha direttamente tutto il programma. Lo sviluppatore mi ha passato un link di modifiche, ma i file citati sul link non li torvo nel mio pc. Tuttavia come si chiude un popup?

Puoi usare l'evento Open della popup con per prima la voce Me.Show e poi richiamare la barra e quindi Me.Close

 

P.S. Ho parlato prima di provare il codice, non funziona. Meglio se segui vuott 

Solo una domanda perché ti serve una finestra popup? e non una modale?

[vuott]

Se poi vuoi attivare un Form, cliccando ad esempio su un Button posto su un altro Form, puoi utilizzare la proprietà Application.MainWindows nel modo che segue:

Poniamo l'esempio di avere due Form: uno principale e uno secondario, chiamato "Secondario".
Sul Form principale poniamo un Button, e nel codice del Form principale scriviamo questo evento/routine:

Codice: [Seleziona]

Public Sub Button1_Click()

     Application.MainWindow = Secondario
    
     Application.MainWindow.Activate

End

[DemoneBianco]

Tanto non conosco nemmeno visual basic, ho reminiscenze di pascal, c++, prolog e assembly fermo a 20 anni fa.

Sto giocando facendo esempi di azioni. Adesso c'è il main e quando clicco sul pulsante si apre un altro form "barra" che fa un avanzamento di percentuale da 0 a 100% con refresh e wait. Mi serve per imparare come funziona la progressbar. Come premesso prima ho problemi nel gestire le finestra in primo e secondo piano. Smanettando la main finisce prima all'apertura di "barra" e quando attivo message.info anche questa non lavora bene. Allora ho visto che c'è la funzione showpopup e aprivo barra come popup" ma una volta aperto mi rimane aperto. Sono per adesso codici senza senso per prendere padronanza con la teoria che sto leggendo

[Gianluigi]

Ti allego un esempio.
Volevi fare una cosa del genere?

 

[cogier]

O qualcosa del genere?

[DemoneBianco]

Codice: [Seleziona]

Public Sub Button5_Click()
'Application.MainWindow = Barra
'Application.MainWindow.Activate
  'Me.Hide()
  'Barra.ShowPopup()
  Barra.Show()
 ' Barra.Window.Center()
  'Me.Window.TopOnly = False
  'Me.TopOnly = False
 
  Message.Info("Operazione completata", "OK")
  'Me.Show()
End

Codice: [Seleziona]

Public Sub Form_Open()
Dim i As Integer
Barra.Visible = True
Barra.Window.TopOnly = True
Barra.TopOnly = True
Barra.Window.Center()
ProgressBar1.Visible = True
For i = 1 To 100 Step 1
ProgressBar1.Refresh()
Wait (1 / 10)
ProgressBar1.Value = i / 100
Next 
Me.Window.TopOnly = False
Me.TopOnly = False
'Barra.Hide()
Barra.Delete()
'Message.Info("Operazione completata", "OK")
End

[Gianluigi]

Ma tu il codice dell'esempio che ti ho postato lo hai visto?
ProgressBar.Value è di tipo Float e va da 0 a 1, quindi lo puoi comandare solo in quel lasso di valore.
Pertanto se desideri dividere la barra in 100 avanzamenti devi fare come da mio esempio:

Codice: [Seleziona]

  Public Sub Form_Open()

  Dim f As Float

  Me.Show
  'FMain.bOpen = True
  For f = 0 To 1 Step 0.001
    Wait 0.005
    Try ProgressBar1.Value = f
  Next
  'FMain.bOpen = False
  Try Me.Close()

End  

 

[DemoneBianco]

Ma la barra funziona, è la sua gestione che nell'ignoranza pecco

Non ancora, li apro appena torno a smanettare col codice

[Gianluigi]

Ma la barra funziona, è la sua gestione che nell'ignoranza pecco

Non ancora, li apro appena torno a smanettare col codice

Si scusa hai ragione non ho visto la divisione, anzi il tuo codice è corretto il mio era solo per far capire il float ma non andrebbe mai usato nel codice "vero".
Guardati entrambi gli esempi, quello di cogier è mirato al primo piano delle finestre.
Tieni anche conto che una progress bar normalmente viene usata a "mouse bloccato" (application.busy) e abitualmente viene usata una finestra modale per contenerla.
Altrimenti devi tener conto di troppe cose...

 

[DemoneBianco]

ovviamente chi è agli inizi ha un codice "sporco" e alcune funzioni non sa che potrebbero essere fatte meglio in altri modi. Errori da niubbi che credo perdoniate  Potrei anche chiedere per ora altre cose stupide e inesatte. Abbiate per favore molta pazienza

[vuott]

Errori da niubbi che credo perdoniate  Potrei anche chiedere per ora altre cose stupide e inesatte. Abbiate per favore molta pazienza

Non devi chiedere scusa di niente: il forum non è una passarella per "perfetti programmatori". Il forum, anzi, esiste proprio per ottenere consulenza e aiuto.
Pertanto, qui tu - in qualità di membro - puoi porre tutte le domande che vuoi.


Colgo l'occasione per segnalarti di seguito altri collegamenti utili all'apprendimento del linguaggio Gambas:

Sito ufficiale di Gambas:
 - http://gambas.sourceforge.net/en/main.html

Wiki ufficiale di Gambas:
 - http://gambaswiki.org/wiki

Mailing List ufficiale di Gambas:
 - https://lists.gambas-basic.org/pipermail/user/

Forum, Wiki ed altri siti esistenti su Gambas:
 - https://gambas-es.org/
 - https://foro.gambas-es.org/forum.php
 - http://www.gambas-club.de/index.php
 - https://forum.gambas.one/
 - http://www.gambaslinux.fr/
 - http://89.234.156.109/
 - http://www.gambas-it.org/wiki/index.php?title=Pagina_principale
 - https://gambas-buch.de/dwen/doku.php
 - https://de.wikibooks.org/wiki/Gambas
 - http://sologambas.blogspot.com/p/indice.html
 - https://jsbsan.blogspot.com/
 - http://captainbodgit.blogspot.com/search/label/Gambas
 - https://pigalore.miraheze.org/wiki/Main_Page
 - http://icculus.org/piga/
 - http://novatocodegambas.blogspot.com/
 - http://forum.3d-phenomen.fr/index.php

Testi, manuali e corsi esistenti:
 - https://cursogambas.blogspot.com/p/indice.html
 - https://github.com/jsbsan/Ejemplos-del-Curso-De-Gambas3
 - http://gambaswiki.org/wiki/doc/book?nh&l=en
 - https://en.wikibooks.org/wiki/Programming_Gambas_from_Zip
 - https://wordpress.gambas.one/a-book-by-gerry-buzolic/
 - https://wordpress.gambas.one/2020/04/10/the-gap-bg-project/

[DemoneBianco]

Grazie a tutti

[kicco]

il forum non è una passarella per "perfetti programmatori"

Ecco dove sbagliavo!