Differenze tra le versioni di "Creare e dimensionare un oggetto con lo spostamento del mouse sul form"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Come esempio creeremo e dimensioneremo un ''Button'' su un form. Private bt As Button Private xIniz As Integer Private yIniz As Integer '''Public''' Sub Form_MouseDown() b...) |
|||
Riga 24: | Riga 24: | ||
.Width = Mouse.X - xIniz | .Width = Mouse.X - xIniz | ||
.Height = Mouse.Y - yIniz | .Height = Mouse.Y - yIniz | ||
− | .X = xIniz <FONT color=#006400>' ''Le coordinate di partenza sono quelle impostate'' | + | .X = xIniz <FONT color=#006400>' ''Le coordinate di partenza sono quelle impostate''</font> |
− | .Y = yIniz ' ''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 With | ||
'''End''' | '''End''' |
Versione delle 06:52, 8 set 2012
Come esempio creeremo e dimensioneremo un Button su un form.
Private bt As Button Private xIniz As Integer Private yIniz As Integer Public Sub Form_MouseDown() bt = New Button(Me) ' creiamo il Button ' Raccogliamo la posizione iniziale del mouse xIniz = Mouse.X yIniz = Mouse.Y End Public Sub Form_MouseMove() Dim x, y As Integer ' 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