Differenze tra le versioni di "Ridimensionare la finestra del DialogBox da codice"
Da Gambas-it.org - Wikipedia.
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:'''''</font> | ||
− | .Title = " | + | .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 delle 05:50, 28 giu 2023
Per ridimensionare la finestra del "DialogBox" da codice al momento della sua apertura, utilizzeremo le risorse delle Classi "DesktopWatcher" e "DesktopWindows".
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: .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