Differenze tra le versioni di "Ridimensionare la finestra del DialogBox da codice"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per ridimensionare la finestra del "DialogBox" da codice al momento della sua apertura, utilizzeremo le risorse delle Classi "DesktopWatcher" e "DesktopWindows". Vediamo di s...") |
|||
| (4 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
| − | Per ridimensionare la finestra del "DialogBox" da codice al momento della sua apertura, utilizzeremo le risorse delle Classi "DesktopWatcher" e "DesktopWindows". | + | Per ridimensionare la finestra del "DialogBox" da codice al momento della sua apertura, utilizzeremo le risorse delle Classi "DesktopWatcher" e "DesktopWindows". A tal fine dovranno essere attivati i Componenti ''gb.desktop'' e ''gb.desktop.x11''. |
Vediamo di seguito un codice commentato, nel quale la finestra del "DialogBox" sarà massimizzata a pieno schermo: | Vediamo di seguito un codice commentato, nel quale la finestra del "DialogBox" sarà massimizzata a pieno schermo: | ||
| Riga 6: | Riga 6: | ||
| − | + | Public Sub Form_Open() | |
<FONT Color=gray>' ''Osserva tutte le finestre, presenti e future, sulla Scrivania:''</font> | <FONT Color=gray>' ''Osserva tutte le finestre, presenti e future, sulla Scrivania:''</font> | ||
wa = New DesktopWatcher As "DWatch" | wa = New DesktopWatcher As "DWatch" | ||
| − | + | End | |
| − | + | ||
| + | Public Sub Button1_Click() | ||
With Dialog | With Dialog | ||
| − | <FONT Color=gray>' ''Il "Titolo" della finestra di Dialogo deve essere certo e univoco:''</font> | + | <FONT Color=gray>' '''''Il "Titolo" della finestra di Dialogo deve essere certo e univoco.''''' |
| − | .Title = " | + | ' ''In questo esempio daremo alla finestra di Dialogo il titolo: "Titolo_della_finestra_del_DialogBox".; e sarà quello che apparirà sul bordo superiore della finestra del "DialogBox" alla sua apertura.''</font> |
| + | .Title = "<FONT Color=#B22222>Titolo_della_finestra_del_DialogBox</font>" | ||
If .OpenFile() Then Return | If .OpenFile() Then Return | ||
End With | End With | ||
| − | + | End | |
| + | |||
| − | + | Public Sub DWatch_Windows() <FONT Color=gray>' ''Se la lista delle finestre sulla Scrivania è cambiata...''</font> | |
| − | <FONT Color=gray>' ''...allora controlla se la finestra, avente Titolo " | + | <FONT Color=gray>' ''...allora controlla se la finestra, avente Titolo "Titolo_della_finestra_del_DialogBox", si è aperta:''</font> |
| − | If Desktop.FindWindow(" | + | If Desktop.FindWindow("<FONT Color=#B22222>Titolo_della_finestra_del_DialogBox</font>", Null, Null).Count > 0 Then |
<FONT Color=gray>' ''In caso affermativo, la finestra di Dialogo viene ridimensionata (in questo caso a schermo pieno):''</font> | <FONT Color=gray>' ''In caso affermativo, la finestra di Dialogo viene ridimensionata (in questo caso a schermo pieno):''</font> | ||
| − | With dw = New DesktopWindow(Desktop.FindWindow(" | + | With dw = New DesktopWindow(Desktop.FindWindow("<FONT Color=#B22222>Titolo_della_finestra_del_DialogBox</font>", Null, Null)[0]) |
.Resize(Screen.AvailableWidth, Screen.AvailableHeight) | .Resize(Screen.AvailableWidth, Screen.AvailableHeight) | ||
End With | End With | ||
Endif | Endif | ||
| − | + | End | |
Versione attuale delle 12:02, 28 giu 2023
Per ridimensionare la finestra del "DialogBox" da codice al momento della sua apertura, utilizzeremo le risorse delle Classi "DesktopWatcher" e "DesktopWindows". A tal fine dovranno essere attivati i Componenti gb.desktop e gb.desktop.x11.
Vediamo di seguito un codice commentato, nel quale la finestra del "DialogBox" sarà massimizzata a pieno schermo:
Private wa As DesktopWatcher
Private dw As DesktopWindow
Public Sub Form_Open()
' Osserva tutte le finestre, presenti e future, sulla Scrivania:
wa = New DesktopWatcher As "DWatch"
End
Public Sub Button1_Click()
With Dialog
' Il "Titolo" della finestra di Dialogo deve essere certo e univoco.
' In questo esempio daremo alla finestra di Dialogo il titolo: "Titolo_della_finestra_del_DialogBox".; e sarà quello che apparirà sul bordo superiore della finestra del "DialogBox" alla sua apertura.
.Title = "Titolo_della_finestra_del_DialogBox"
If .OpenFile() Then Return
End With
End
Public Sub DWatch_Windows() ' Se la lista delle finestre sulla Scrivania è cambiata...
' ...allora controlla se la finestra, avente Titolo "Titolo_della_finestra_del_DialogBox", si è aperta:
If Desktop.FindWindow("Titolo_della_finestra_del_DialogBox", Null, Null).Count > 0 Then
' In caso affermativo, la finestra di Dialogo viene ridimensionata (in questo caso a schermo pieno):
With dw = New DesktopWindow(Desktop.FindWindow("Titolo_della_finestra_del_DialogBox", Null, Null)[0])
.Resize(Screen.AvailableWidth, Screen.AvailableHeight)
End With
Endif
End
