Differenze tra le versioni di "Uso della classe DesktopWindow"

Da Gambas-it.org - Wikipedia.
 
(9 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
La classe <b>DesktopWindow</b> è usata per rappresentare una finestra di primo livello.
+
La classe <b>DesktopWindow</b> è usata, attivando i Componenti ''gb.desktop'' e ''gb.desktop.x11'', per rappresentare una finestra di primo livello.
  
 
In particolare, questa Classe può essere usata per ottenere e gestire la finestra attiva di un programma.
 
In particolare, questa Classe può essere usata per ottenere e gestire la finestra attiva di un programma.
  
−
Le sue risorse attualmente sono:
+
Mostriamo qualche esempio pratico:
−
.Activate()
+
  Public Sub Form_Open()
−
.Close()
 
−
.Desktop
 
−
.Frame
 
−
.FullScreen
 
−
.Geometry
 
−
.GetIcon()
 
−
.GetScreenshot
 
−
.H
 
−
.Height
 
−
.Icon
 
−
.Id
 
−
.Maximized
 
−
.Minimized
 
−
.Move()
 
−
.Name
 
−
.Refresh()
 
−
.Resize()
 
−
.Shaded
 
−
.SkipTaskbar
 
−
.Sticky
 
−
.VisibleName
 
−
.W
 
−
.Width
 
−
.X
 
−
.Y
 
−
 
 
−
 
 
−
Esempio pratico:
 
−
  '''Public''' Sub Form_Open()
 
 
   
 
   
 
   Dim i As Integer[]
 
   Dim i As Integer[]
 
   
 
   
−
  <font color=gray>' <i>poiché DesktopWindow è una classe, gli si associa una variabile del tipo di quella Classe:</i></font>
+
  <font color=gray>' <i>Poiché DesktopWindow è una classe, gli si associa una variabile del tipo di quella Classe:</i></font>
 
   Dim dw As DesktopWindow
 
   Dim dw As DesktopWindow
 
   
 
   
−
  c = Desktop.FindWindow("<i>Nome_della_finestra</i>")
+
  i = Desktop.FindWindow("<font color=gray>Nome_della_finestra</font>")
 
   
 
   
−
  With dw = New DesktopWindow(c[0])
+
  With dw = New DesktopWindow(i[0])
 
  <font color=gray>' <i>Otteniamo informazioni dalla finestra individuata, e la gestiamo:</i></font>
 
  <font color=gray>' <i>Otteniamo informazioni dalla finestra individuata, e la gestiamo:</i></font>
−
    Print Hex(.Id), .VisibleName, .Width, .Height
+
    Print Hex(.Id), .VisibleName, .Width, .Height
−
    .Move(100, 200, 100, 300)
+
    .Move(100, 200, 100, 300)
−
  End With
+
  End With
−
+
 
−
  '''End'''
+
  End
  
  
 
Se la finestra è il ''Form'' principale dell'applicazione, allora il suo Id si individuerà facilmente:
 
Se la finestra è il ''Form'' principale dell'applicazione, allora il suo Id si individuerà facilmente:
−
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
   
 
   
 
   Dim dw As DesktopWindow
 
   Dim dw As DesktopWindow
 
   
 
   
−
  Me.Show
+
  Me.Show
 +
 +
  With dw = New DesktopWindow(Me.Id)
 +
    Print Hex(.Id), .VisibleName, .Width, .Height
 +
    .Move(100, 200, 100, 300)
 +
  End With
 +
 +
End
 +
 
 +
 
 +
E' possibile individuare tutte le finestre aperte sulla Scrivania:
 +
Public Sub Button1_Click()
 +
 
 +
  Dim dw As DesktopWindow
 
   
 
   
−
  With dw = New DesktopWindow(Me.Id)
+
  For Each dw In Desktop.Windows
−
    Print Hex(.Id), .VisibleName, .Width, .Height
+
    Print "Nome finestra: "; Quote(dw.Name), "X = "; Quote(dw.X), "Y = "; Quote(dw.Y)
−
    .Move(100, 200, 100, 300)
+
  Next
−
  End With
 
 
   
 
   
−
  '''End'''
+
  End
  
  
 
La Classe <i>DesktopWindow</i> può rappresentare anche una finestra creata virtualmente con una variabile di tipo "Window":
 
La Classe <i>DesktopWindow</i> può rappresentare anche una finestra creata virtualmente con una variabile di tipo "Window":
−
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
   
 
   
 
   Dim dw As DesktopWindow
 
   Dim dw As DesktopWindow
 
   Dim w As New Window
 
   Dim w As New Window
−
   Dim i As Image
+
    
−
   Dim p As Picture
+
   With w
−
 
−
 
−
  With w
 
 
  <font color=gray>' ''Assegna un nome di comodo alla finestra (non è indispensabile, e <span style="text-decoration:underline">non</span> modificherà il nome visibile in testa alla finestra):''</font>
 
  <font color=gray>' ''Assegna un nome di comodo alla finestra (non è indispensabile, e <span style="text-decoration:underline">non</span> modificherà il nome visibile in testa alla finestra):''</font>
−
    .Window.Name = "<i>Nome_finestra</i>"
+
    .Window.Name = "<i>Nome_finestra</i>"
 
  <font color=gray>' ''Se invece si pone solo: <b>.Name</b> senza assegnazione, allora il nome sarà quello della finestra del programma.''</font>
 
  <font color=gray>' ''Se invece si pone solo: <b>.Name</b> senza assegnazione, allora il nome sarà quello della finestra del programma.''</font>
 
   
 
   
 
  <font color=gray>' ''Carica un'immagine, che sarà poi mostrata appresso in dw:''</font>
 
  <font color=gray>' ''Carica un'immagine, che sarà poi mostrata appresso in dw:''</font>
−
    .Icon = Picture.Load("<i>percorso_immagine</i>")
+
    .Icon = Picture.Load("<FONT Color=gray>''/percorso/dell'immagine''</font>")
 
  <font color=gray>' ''Mostra nella "TextLabel" il nome fittizio precedentemente assegnato alla finestra:''</font>
 
  <font color=gray>' ''Mostra nella "TextLabel" il nome fittizio precedentemente assegnato alla finestra:''</font>
−
    TextLabel1.Text = .Name
+
    TextLabel1.Text = .Name
−
  End With
+
  End With
 +
 
 +
  dw = New DesktopWindow(w.Handle) <font color=gray>' ''"w.Handle" è il numero identificativo dell'handle della finestra rappresentata dalla variabile "w"''</font>
 +
<font color=gray>' ''Mostra l'immagine assegnata alla Proprietà ".Icon" della finestra :''</font>
 +
  PictureBox1.Picture = dw.Icon
 
   
 
   
 +
End
 +
 +
 +
La Classe <i>DesktopWindow</i> può rappresentare anche la finestra "attiva" di un programma in quel momento:
 +
Public Sub Form_Open()
 
   
 
   
−
  dw = New DesktopWindow(w.Handle) <font color=gray>' <i>"w.Handle" è il numero identificativo dell'handle della finestra rappresentata dalla variabile "w"</i>
+
  Dim dw As DesktopWindow
 
   
 
   
−
' <i>invece:</i>
+
   With dw = New DesktopWindow(Desktop.ActiveWindow) <font color=gray>' ''"Desktop.ActiveWindow" è la finestra "attiva" di un programma in quel momento:''</font>
−
   dw = New DesktopWindow(Desktop.ActiveWindow) ' <i>"Desktop.ActiveWindow" è la finestra attiva di un programma in quel momento</i></font>
+
    Print .Desktop
 +
    Print .FullScreen
 +
    Print .Height
 +
    Print .Id
 +
    Print .Maximized
 +
    Print .Name
 +
    Print .SkipTaskbar
 +
    Print .VisibleName
 +
<font color=gray>' ''Mostra l'eventuale icona della finestra del programma:''</font>
 +
    PictureBox1.Picture = .Icon
 +
  End With
 
   
 
   
−
   
+
  End
−
  With dw
+
 
−
    Print .Desktop
+
 
−
    Print .FullScreen
+
Per assegnare un Form ad uno specifico schermo si userà la Proprietà ".Desktop":
−
<font color=gray>' <i>Assegna alla variabile "i" l'icona precedentemente assegnata alla variabile "w":</i></font>
+
Public Sub Button1_Click()
−
    i = .Icon
+
 
−
    Print .Height
+
  Dim dw As DesktopWindow
−
    Print .Id
+
 
−
    Print .Maximized
+
  With dw = New DesktopWindow(Me.Id)
−
    Print .Name
+
  <font color=gray>' ''Spostiamo il Form principale della nostra applicazione sul terzo desktop (indice 2):''</font>
−
    Print .SkipTaskbar
+
    .Desktop = 2
−
    Print .VisibleName
+
  End With
−
  End With
+
   
−
+
  End
−
  <font color=gray>' <i>andiamo a vedere l'eventuale icona della finestra del programma:</i></font>
 
−
  p = i.Picture
 
−
  PictureBox1.Picture = p
 
−
 
−
  '''End'''
 

Versione attuale delle 01:18, 14 giu 2024

La classe DesktopWindow è usata, attivando i Componenti gb.desktop e gb.desktop.x11, per rappresentare una finestra di primo livello.

In particolare, questa Classe può essere usata per ottenere e gestire la finestra attiva di un programma.

Mostriamo qualche esempio pratico: 

Public Sub Form_Open()

 Dim i As Integer[]

' Poiché DesktopWindow è una classe, gli si associa una variabile del tipo di quella Classe:
 Dim dw As DesktopWindow

 i = Desktop.FindWindow("Nome_della_finestra")

 With dw = New DesktopWindow(i[0])
' Otteniamo informazioni dalla finestra individuata, e la gestiamo:
   Print Hex(.Id), .VisibleName, .Width, .Height
   .Move(100, 200, 100, 300)
 End With
 
End


Se la finestra è il Form principale dell'applicazione, allora il suo Id si individuerà facilmente: 

Public Sub Form_Open()

 Dim dw As DesktopWindow

 Me.Show

 With dw = New DesktopWindow(Me.Id)
   Print Hex(.Id), .VisibleName, .Width, .Height
   .Move(100, 200, 100, 300)
 End With

End


E' possibile individuare tutte le finestre aperte sulla Scrivania: 

Public Sub Button1_Click()
 
 Dim dw As DesktopWindow

 For Each dw In Desktop.Windows
   Print "Nome finestra: "; Quote(dw.Name), "X = "; Quote(dw.X), "Y = "; Quote(dw.Y)
 Next 

End


La Classe DesktopWindow può rappresentare anche una finestra creata virtualmente con una variabile di tipo "Window": 

Public Sub Form_Open()

 Dim dw As DesktopWindow
 Dim w As New Window
 
 With w
' Assegna un nome di comodo alla finestra (non è indispensabile, e non modificherà il nome visibile in testa alla finestra):
   .Window.Name = "Nome_finestra"
' Se invece si pone solo: .Name senza assegnazione, allora il nome sarà quello della finestra del programma.

' Carica un'immagine, che sarà poi mostrata appresso in dw:
   .Icon = Picture.Load("/percorso/dell'immagine")
' Mostra nella "TextLabel" il nome fittizio precedentemente assegnato alla finestra:
   TextLabel1.Text = .Name
 End With
 
 dw = New DesktopWindow(w.Handle) ' "w.Handle" è il numero identificativo dell'handle della finestra rappresentata dalla variabile "w"
' Mostra l'immagine assegnata alla Proprietà ".Icon" della finestra :
 PictureBox1.Picture = dw.Icon

End


La Classe DesktopWindow può rappresentare anche la finestra "attiva" di un programma in quel momento: 

Public Sub Form_Open()

 Dim dw As DesktopWindow

 With dw = New DesktopWindow(Desktop.ActiveWindow) ' "Desktop.ActiveWindow" è la finestra "attiva" di un programma in quel momento:
   Print .Desktop
   Print .FullScreen
   Print .Height
   Print .Id
   Print .Maximized
   Print .Name
   Print .SkipTaskbar
   Print .VisibleName
' Mostra l'eventuale icona della finestra del programma:
   PictureBox1.Picture = .Icon
 End With

End


Per assegnare un Form ad uno specifico schermo si userà la Proprietà ".Desktop": 

Public Sub Button1_Click()
 
 Dim dw As DesktopWindow
  
 With dw = New DesktopWindow(Me.Id)
' Spostiamo il Form principale della nostra applicazione sul terzo desktop (indice 2):
   .Desktop = 2
 End With
   
End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Uso_della_classe_DesktopWindow&oldid=37102"