Ridimensionare la finestra del DialogBox da codice
Da Gambas-it.org - Wikipedia.
Versione del 11 giu 2021 alle 11:25 di Vuott (Discussione | contributi) (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...")
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 = "Abcde" 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 "Abcde", si è aperta: If Desktop.FindWindow("Abcde", 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("Abcde", Null, Null)[0]) .Resize(Screen.AvailableWidth, Screen.AvailableHeight) End With Endif End