Creare e dimensionare un oggetto con lo spostamento del mouse sul form
Da Gambas-it.org - Wikipedia.
Versione del 2 gen 2020 alle 19:42 di Vuott (Discussione | contributi)
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 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). ' Con "Last" possiamo modificare il "Button" cliccato fra eventuali molti creati sul "Form". With Last .Width = Mouse.X .Height = Mouse.Y End With End