Differenze tra le versioni di "Creare e dimensionare un oggetto con lo spostamento del mouse sul form"
Da Gambas-it.org - Wikipedia.
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 | ||
− | |||
− | |||
'''Public''' Sub Form_MouseDown() | '''Public''' Sub Form_MouseDown() | ||
− | + | ||
− | + | <FONT color=#006400>' ''Crea il "Button":''</font> | |
bt = New Button(Me) | bt = New Button(Me) | ||
− | |||
− | |||
− | |||
− | |||
'''End''' | '''End''' | ||
− | |||
'''Public''' Sub Form_MouseMove() | '''Public''' Sub Form_MouseMove() | ||
− | <FONT color=#006400>' '' | + | <FONT color=#006400>' ''Assegna le caratteristiche al "Button" mediante lo spostamento verso SINISTRA del mouse:''</font> |
With bt | With bt | ||
− | .Width = Mouse.X - | + | .Width = Mouse.X - Mouse.StartX |
− | .Height = Mouse.Y - | + | .Height = Mouse.Y - Mouse.StartY |
− | .X = | + | .X = Mouse.StartX |
− | .Y = | + | .Y = Mouse.StartY |
.Text = "Button creato\ncon lo spostamento del mouse !" | .Text = "Button creato\ncon lo spostamento del mouse !" | ||
End With | End With | ||
Riga 37: | Riga 29: | ||
===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 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() | '''Public''' Sub Form_MouseDown() | ||
− | <FONT color=#006400>' '' | + | <FONT color=#006400>' ''Crea il "Button":''</font> |
− | With bt = New Button(Me) As " | + | 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() | ||
− | + | <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>' '' | ||
− | |||
− | ' ''Con "Last" | ||
With Last | With Last | ||
.Width = Mouse.X | .Width = Mouse.X |
Versione delle 09:16, 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 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