Creare e dimensionare un oggetto con lo spostamento del mouse sul form
Da Gambas-it.org - Wikipedia.
Versione del 8 set 2012 alle 06:52 di Vuott (Discussione | contributi)
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