Move a form without borders with Mask
Posted: Sunday 17th May 2020 8:38pm
Hi everyone, I'm new to the Forum, sorry if I make some mistakes ..
I state that I have been developing software in Visual Basic, C ++, B4A and B4J for years, now I would like to learn Gambas to develop software for Linux.
Generally I love to draw the interface very well, this pushes me to prefer forms without borders ...
I searched one hour online for a solution without a useful result, my problem is the following: how do I move a Form by clicking on a PictureBox and dragging?
I tried to write this script by doing some tests, the Form moves but the problem is that it is moved only when the left mouse button is released .. I would like a smooth and real-time movement to be performed with the movement of the cursor, can someone help me? Thanks
'===== My Try =====
I state that I have been developing software in Visual Basic, C ++, B4A and B4J for years, now I would like to learn Gambas to develop software for Linux.
Generally I love to draw the interface very well, this pushes me to prefer forms without borders ...
I searched one hour online for a solution without a useful result, my problem is the following: how do I move a Form by clicking on a PictureBox and dragging?
I tried to write this script by doing some tests, the Form moves but the problem is that it is moved only when the left mouse button is released .. I would like a smooth and real-time movement to be performed with the movement of the cursor, can someone help me? Thanks
'===== My Try =====
Code: Select all
Public Sub PictureBox1_MouseUp()
'Verifica Tasto
If Mouse.Left = True Then
'Muovi Form
Me.Move(Mouse.X, Mouse.Y)
Endif
End
