« Risposta #1 il: 17 Agosto 2016, 23:54:21 »
...più o meno la sostanza è questa:
Private da As DrawingArea
Private bo As Boolean
Public Sub Form_Open()
With da = New DrawingArea(Me) As "DrawingArea1"
.X = 200
.Y = 200
.W = 100
.H = 80
End With
End
Public Sub DrawingArea1_Draw()
Dim pc As Picture
Dim testo As String
pc = Stock["32/monitor"]
testo = "Testo qualsiasi"
With Draw
.Style.Button(0, 0, da.W, da.H, bo, 0, False)
.Picture(pc, (.W - pc.W) / 2, 10)
.Text(testo, (.W - .TextWidth(testo)) / 2, 50)
End With
bo = Not bo
End
Public Sub DrawingArea1_MouseDown()
Print "Tasto premuto";
da.Refresh
End
Public Sub DrawingArea1_MouseUp()
Print " e rilasciato"
da.Refresh
End
« Ultima modifica: 18 Agosto 2016, 03:07:09 da vuott »
Registrato
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »
