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: | ||
− | Come esempio creeremo e dimensioneremo | + | Vedremo un paio di esempi, nei quali viene creato un oggetto e quindi dimensionato ovvero modificate successivamente le sue dimensioni. |
+ | |||
+ | |||
+ | ===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'': | ||
Private bt As Button | Private bt As Button | ||
Private xIniz As Integer | Private xIniz As Integer | ||
Riga 7: | Riga 11: | ||
'''Public''' Sub Form_MouseDown() | '''Public''' Sub Form_MouseDown() | ||
− | + | <FONT color=#006400>' ''creiamo il Button:''</font> | |
+ | bt = New Button(Me) | ||
<FONT color=#006400>' ''Raccogliamo la posizione iniziale del mouse''</font> | <FONT color=#006400>' ''Raccogliamo la posizione iniziale del mouse''</font> | ||
Riga 25: | Riga 30: | ||
.Y = yIniz <FONT color=#006400>' ''con il "MouseDown".''</font> | .Y = yIniz <FONT color=#006400>' ''con il "MouseDown".''</font> | ||
.Text = "Button creato\ncon lo spostamento del mouse !" | .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() | ||
+ | |||
+ | <FONT color=#006400>' ''creiamo il Button:''</font> | ||
+ | With bt = New Button(Me) As "bt" | ||
+ | .X = Mouse.X | ||
+ | .Y = Mouse.Y | ||
+ | .W = 10 | ||
+ | .H = 10 | ||
+ | End With | ||
+ | |||
+ | '''End''' | ||
+ | |||
+ | |||
+ | '''Public''' Sub bt_MouseMove() | ||
+ | |||
+ | <FONT color=#006400>' ''Modifichiamo le dimensioni del "Button" mediante lo spostamento del mouse'' | ||
+ | ' ''(in questo caso, però, dobbiamo cliccare all'interno del "Button" creato):</font> | ||
+ | With bt | ||
+ | .Width = Mouse.X | ||
+ | .Height = Mouse.Y | ||
End With | End With | ||
'''End''' | '''End''' |
Versione delle 16:41, 28 mag 2013
Vedremo un paio di esempi, nei quali viene creato un oggetto e quindi dimensionato ovvero modificate successivamente le sue dimensioni.
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:
Private bt As Button Private xIniz As Integer Private yIniz As Integer Public Sub Form_MouseDown() ' creiamo il Button: bt = New Button(Me) ' Raccogliamo la posizione iniziale del mouse xIniz = Mouse.X yIniz = Mouse.Y End Public Sub Form_MouseMove() ' Assegnamo le caratteristiche al "Button" mediante lo spostamento del mouse: With bt .Width = Mouse.X - xIniz .Height = Mouse.Y - yIniz .X = xIniz ' Le coordinate di partenza sono quelle impostate .Y = yIniz ' con il "MouseDown". .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() ' creiamo 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() ' Modifichiamo le dimensioni del "Button" mediante lo spostamento del mouse ' (in questo caso, però, dobbiamo cliccare all'interno del "Button" creato): With bt .Width = Mouse.X .Height = Mouse.Y End With End