Gambas ONE

Hello
...from Wiki of italian Gambas Forum:

https://www.gambas-it.org/wiki/index.ph ... enziazione

......

https://www.gambas-it.org/wiki/index.ph ... mma_Gambas

I use Linux Mint 19.2 Tina - Desktop: Cinnamon 4.2.4

However you can also try using the other two parameters of the Desktop.FindWindow() function.

cage wrote: ↑

Tuesday 17th September 2019 3:44am

... but I get an error when I run it.

Where ?

Feel free to modify the program to your tastes. ...without using Shell: Private wid As Integer[] Public Sub Form_Open() CheckFox End Public Sub BuKillFox_Click() Dim dw As DesktopWindow dw = Desktop.Windows.FromHandle(wid[0]) dw.Close() Wait 1 BuKillFox.Enabled = False CheckFox End Public Sub Check...

However, remember that Gambas is not a VB emulation.

Currently I would suggest something as this little example: :| Private da As DrawingArea Public Sub Form_Open() ProgressBar1.Background = Color.Lighter(Color.Green) da = ProgressBar1.Children[0] Object.Attach(da, Me, "DA") End Public Sub DA_Draw() With Paint .Brush = .Color(Color.Yellow) .Rectangle(...

...a little code: Private Label1 As Label Private spx As Short Private spy As Short Public Sub Form_Open() With Label1 = New Label(Me) As "Label1" .X = 100 .Y = 100 .W = 30 .H = 30 .Background = Color.Orange End With End Public Sub Label1_MouseDown() spx = Mouse.X spy = Mouse.Y End Public Sub Label1...

Just a little example: Private gPlayer As New MediaPlayer Public Sub Main() gPlayer.URL = Media.URL(User.Home &/ "a.mp3") gPlayer.Play() Print Date(0, 0, 0, 0, 0, 0, gPlayer.Length * 1000) Repeat Write "\r" & CStr(Date(0, 0, 0, 0, 0, 0, gPlayer.Position * 1000)) Wait 0.001 Until gPlayer.Position >= ...

Hello,

about audio file path you have to use:

gPlayer.URL = Media.URL(User.Home &/ "a.mp3")