Differenze tra le versioni di "Creare e dimensionare un oggetto con lo spostamento del mouse sul form"

Da Gambas-it.org - Wikipedia.
 
(2 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
 
Vedremo un paio di esempi, nei quali viene creato un oggetto e quindi immediatamente e contemporaneamente dimensionato, ovvero con dimensioni predefinite e successivamente modificate.
 
Vedremo un paio di esempi, nei quali viene creato un oggetto e quindi immediatamente e contemporaneamente dimensionato, ovvero con dimensioni predefinite e successivamente modificate.
−
 
  
 
===Creazione di un oggetto e contestuale dimensionamento===
 
===Creazione di un oggetto e contestuale dimensionamento===
−
Come esempio creeremo un ''Button'' cliccando con il mouse sul ''Form'' e lo dimensioneremo immediatamente e contemporaneamente spostando il mouse sul ''Form'':
+
Come esempio creeremo un ''Button'' cliccando con il mouse sul ''Form'' e lo dimensioneremo immediatamente e contemporaneamente spostando il mouse verso '''sinistra''' sul ''Form'':
 
  Private bt As Button
 
  Private bt As Button
−
Private xIniz As Integer
 
−
Private yIniz As Integer
 
 
   
 
   
 
   
 
   
 
  '''Public''' Sub Form_MouseDown()
 
  '''Public''' Sub Form_MouseDown()
−
 
+
−
    <FONT color=#006400>' ''creiamo il Button:''</font>
+
<FONT color=#006400>' ''Crea il "Button":''</font>
 
   bt = New Button(Me)
 
   bt = New Button(Me)
−
 
−
<FONT color=#006400>' ''Raccogliamo la posizione iniziale del mouse''</font>
 
−
  xIniz = Mouse.X
 
−
  yIniz = Mouse.Y
 
 
   
 
   
 
  '''End'''
 
  '''End'''
−
 
 
   
 
   
 
  '''Public''' Sub Form_MouseMove()
 
  '''Public''' Sub Form_MouseMove()
 
   
 
   
−
  <FONT color=#006400>' ''Assegnamo le caratteristiche al "Button" mediante lo spostamento del mouse:''</font>
+
  <FONT color=#006400>' ''Assegna le caratteristiche al "Button" mediante lo spostamento verso SINISTRA del mouse:''</font>
 
   With bt
 
   With bt
−
     .Width = Mouse.X - xIniz
+
     .Width = Mouse.X - Mouse.StartX
−
     .Height = Mouse.Y - yIniz
+
     .Height = Mouse.Y - Mouse.StartY
−
     .X = xIniz  <FONT color=#006400>' ''Le coordinate di partenza sono quelle impostate''</font>
+
     .X = Mouse.StartX
−
     .Y = yIniz  <FONT color=#006400>' ''con il "MouseDown".''</font>
+
     .Y = Mouse.StartY
 
     .Text = "Button creato\ncon lo spostamento del mouse !"
 
     .Text = "Button creato\ncon lo spostamento del mouse !"
 
   End With
 
   End With
Riga 36: Riga 28:
  
 
===Creazione di un oggetto con dimensioni predefinite e loro successiva modifica===
 
===Creazione di un oggetto con dimensioni predefinite e loro successiva modifica===
−
In quest'altro esempio, prima creeremo il ''Button'' con dimensione predefinità. Quindi ne modificheremo le dimensioni cliccando all'interno del ''Button'' e sposteremo il puntatore del mouse tenendone contemporaneamente schiacciato il tasto:
+
In quest'altro esempio, prima creeremo il ''Button'' con dimensione predefinità. Quindi, ricliccando sul ''Button'', ne modificheremo le dimensioni cliccando all'interno del ''Button'' e sposteremo il puntatore del mouse tenendone contemporaneamente schiacciato il tasto:
−
  '''Private''' bt As Button
+
  Private bt As Button
 
   
 
   
 
   
 
   
 
  '''Public''' Sub Form_MouseDown()
 
  '''Public''' Sub Form_MouseDown()
 
   
 
   
−
  <FONT color=#006400>' ''creiamo il Button:''</font>
+
  <FONT color=#006400>' ''Crea il "Button":''</font>
−
   With bt = New Button(Me) As "bt"
+
   With bt = New Button(Me) As "Bt"
 
     .X = Mouse.X
 
     .X = Mouse.X
 
     .Y = Mouse.Y
 
     .Y = Mouse.Y
Riga 52: Riga 44:
 
  '''End'''
 
  '''End'''
 
   
 
   
 +
'''Public''' Sub Bt_MouseMove()
 
   
 
   
−
'''Public''' Sub bt_MouseMove()
+
  <FONT color=#006400>' ''Modifica le dimensioni del "Button" mediante lo spostamento del mouse (in questo caso, però, bisogna cliccare all'interno del "Button" creato).''
−
+
  ' ''Con "Last" è possibile modificare il "Button" cliccato fra eventuali molti creati sul "Form".''</font>
−
  <FONT color=#006400>' ''Modifichiamo le dimensioni del "Button" mediante lo spostamento del mouse''
 
−
' ''(in questo caso, però, dobbiamo cliccare all'interno del "Button" creato).''
 
−
  ' ''Con "Last" possiamo modificare il "Button" cliccato fra eventuali molti creati sul "Form".''</font>
 
 
   With Last
 
   With Last
 
     .Width = Mouse.X
 
     .Width = Mouse.X

Versione attuale delle 09:18, 14 giu 2023

Vedremo un paio di esempi, nei quali viene creato un oggetto e quindi immediatamente e contemporaneamente dimensionato, ovvero con dimensioni predefinite e successivamente modificate.

Creazione di un oggetto e contestuale dimensionamento

Come esempio creeremo un Button cliccando con il mouse sul Form e lo dimensioneremo immediatamente e contemporaneamente spostando il mouse verso sinistra sul Form: 

Private bt As Button


Public Sub Form_MouseDown()

' Crea il "Button":
 bt = New Button(Me)

End

Public Sub Form_MouseMove()

' Assegna le caratteristiche al "Button" mediante lo spostamento verso SINISTRA del mouse:
 With bt
   .Width = Mouse.X - Mouse.StartX
   .Height = Mouse.Y - Mouse.StartY
   .X = Mouse.StartX
   .Y = Mouse.StartY
   .Text = "Button creato\ncon lo spostamento del mouse !"
 End With

End


Creazione di un oggetto con dimensioni predefinite e loro successiva modifica

In quest'altro esempio, prima creeremo il Button con dimensione predefinità. Quindi, ricliccando sul Button, ne modificheremo le dimensioni cliccando all'interno del Button e sposteremo il puntatore del mouse tenendone contemporaneamente schiacciato il tasto: 

Private bt As Button


Public Sub Form_MouseDown()

' Crea il "Button":
 With bt = New Button(Me) As "Bt"
   .X = Mouse.X
   .Y = Mouse.Y
   .W = 10
   .H = 10
 End With

End

Public Sub Bt_MouseMove()

' Modifica le dimensioni del "Button" mediante lo spostamento del mouse (in questo caso, però, bisogna cliccare all'interno del "Button" creato).
' Con "Last" è possibile modificare il "Button" cliccato fra eventuali molti creati sul "Form".
 With Last
   .Width = Mouse.X
   .Height = Mouse.Y
 End With

End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Creare_e_dimensionare_un_oggetto_con_lo_spostamento_del_mouse_sul_form&oldid=34147"