Italian Popup B4A

ken87

Active Member
Licensed User
Longtime User
Salve, vorrei gestire un messaggio ( popup ) apribile con un evento click di un pulsante.
 

ken87

Active Member
Licensed User
Longtime User
Ciao ho cercato ma non trovo una soluzione attimale,
Vorrei aootenete una specie di panello parziemalmente trasparente dove nel sup interno ci ci sia un tasto per la chiusura.
Grazie mille a tutti
 

Emme Developer

Well-Known Member
Licensed User
Longtime User
Ciao ho cercato ma non trovo una soluzione attimale,
Vorrei aootenete una specie di panello parziemalmente trasparente dove nel sup interno ci ci sia un tasto per la chiusura.
Grazie mille a tutti
Ken87, un consiglio personale, dovresti veramente imparare a cercare meglio, o quanto meno imparare per quanto ti è possibile l'inglese (non so se non lo conosci) e iniziare a chiedere di meno e a provare di più. Lo dico perché in questo lavoro, che tu lo faccia per hobby o meno, senza curiosità e "sbattimento" non vai da nessuna parte.

Per quanto riguarda il pannello, molto semplice
B4X:
Dim p as panel
p.initialize("") 'p.initialize("close") se vuoi chiuderlo al click del pannello
activity.addview(p,0,0,100%x,100%y)
p.color = 0x72000000 'Notazione esadecimale, ARGB

Dim b as button
b.initialize("close")
p.addview(b,p.width-50dip,0,50dip,50dip)

Sub close_Click
dim send as view = sender
if send is button then
dim p as panel = send.parent
else
dim p as panel = send
end if

p.removeView
end sub
 

Star-Dust

Expert
Licensed User
Longtime User
Ken87, un consiglio personale, dovresti veramente imparare a cercare meglio, o quanto meno imparare per quanto ti è possibile l'inglese (non so se non lo conosci) e iniziare a chiedere di meno e a provare di più. Lo dico perché in questo lavoro, che tu lo faccia per hobby o meno, senza curiosità e "sbattimento" non vai da nessuna parte.

Per quanto riguarda il pannello, molto semplice
B4X:
Dim p as panel
p.initialize("") 'p.initialize("close") se vuoi chiuderlo al click del pannello
activity.addview(p,0,0,100%x,100%y)
p.color = 0x72000000 'Notazione esadecimale, ARGB

Dim b as button
b.initialize("close")
p.addview(b,p.width-50dip,0,50dip,50dip)

Sub close_Click
dim send as view = sender
if send is button then
dim p as panel = send.parent
else
dim p as panel = send
end if

p.removeView
end sub
Condivido quello che dice Emme, spesso fai domande non particolarmente complesse e spesso trattate in altri post.

Probabilmente devi imparare usare il bottone Cerca nel forum :p
 

Star-Dust

Expert
Licensed User
Longtime User
LucaMs sei OT :p:p
 
Top