grazie per la risposta... ma non so se ho sbagliato io sezione del forum, ma mi dice che non è un progetto Gambas 2. Ho provato a modificare i file ricreando i form su un falso progetto gambas 2 e inserendo il codice con copia e incolla, ma si ferma dandomi un errore alla linea 45 di FMain.class, esattamente dove compare Paint:
Public Area As New DrawingArea[]
Public Btn As New ToggleButton[]
Public Sub _new()
End
Public Sub Form_Open()
Me.Center()
Form1.Show()
End
Public Sub AddObj()
Dim BtnX As ToggleButton
Dim AreaX As DrawingArea
BtnX = New ToggleButton(Me.ScrollView1) As "Button"
Btn.Add(BtnX)
Btn[Btn.Max].Name = "Button" & Btn.Count
Btn[Btn.Max].Move(5, 5 + (100 * Btn.Max), 28, 28)
Btn[Btn.Max].Tag = Btn.Max
AreaX = New DrawingArea(Me.ScrollView1) As "DrawingArea"
Area.Add(AreaX)
Area[Area.Max].Name = "DrawingArea" & Area.Count
Area[Area.Max].Move(40, 5 + (100 * Area.Max), 100, 100)
Area[Area.Max].Border = Border.Plain
Area[Area.Max].Tag = Area.Max
End
Public Sub Button_Click()
Area[Last.Tag].Refresh()
End
Public Sub DrawingArea_Draw()
Paint.Begin(Last) 'qui mi da l'errore: unknown identifier Paint alla linea 45 (cioè questa)!!
Paint.Rectangle(30, 30, 40, 40)
If Btn[Last.Tag].Value = True Then
Paint.Brush = Paint.Color(Color.Red)
Else
Paint.Brush = Paint.Color(Color.Green)
Endif
Paint.Fill()
Paint.End()
End
Cmq se ho capito bene il trucco sta nel creare una "funzione" in FMain che poi il Form1 va a richiamare al click del pulsante, giusto? grazie ancora dell'aiuto :D