Differenze tra le versioni di "Creare e dimensionare un oggetto con lo spostamento del mouse sul form"
Da Gambas-it.org - Wikipedia.
Riga 10: | Riga 10: | ||
<FONT color=#006400>' ''Raccogliamo la posizione iniziale del mouse''</font> | <FONT color=#006400>' ''Raccogliamo la posizione iniziale del mouse''</font> | ||
− | + | xIniz = Mouse.X | |
− | + | yIniz = Mouse.Y | |
'''End''' | '''End''' |
Versione delle 06:53, 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() ' 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