Search found 26 matches

by vuott
Thursday 16th January 2020 11:20pm
Forum: Component
Topic: Does anyone understand the gb.Map component?
Replies: 6
Views: 169

Re: Does anyone understand the gb.Map component?

Hello
...from Wiki of italian Gambas Forum:

https://www.gambas-it.org/wiki/index.ph ... enziazione
by vuott
Tuesday 17th September 2019 8:15am
Forum: General
Topic: Kill FireFox
Replies: 10
Views: 1244

Re: Kill FireFox

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.
by vuott
Tuesday 17th September 2019 6:43am
Forum: General
Topic: Kill FireFox
Replies: 10
Views: 1244

Re: Kill FireFox

cage wrote:
Tuesday 17th September 2019 3:44am
... but I get an error when I run it.
Where ?
by vuott
Monday 16th September 2019 9:18am
Forum: General
Topic: Kill FireFox
Replies: 10
Views: 1244

Re: Kill FireFox

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...
by vuott
Sunday 28th July 2019 2:52pm
Forum: General
Topic: 1st Time User Gambas Questions(Former VB6 user)
Replies: 22
Views: 2618

Re: 1st Time User Gambas Questions(Former VB6 user)

However, remember that Gambas is not a VB emulation.
by vuott
Monday 14th January 2019 11:02am
Forum: General
Topic: using the progressbar ... foreground color
Replies: 8
Views: 1665

Re: using the progressbar ... foreground color

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(...
by vuott
Friday 28th December 2018 7:25pm
Forum: General
Topic: How best to move a control
Replies: 7
Views: 1700

Re: How best to move a control

...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...
by vuott
Wednesday 26th December 2018 3:43pm
Forum: General
Topic: Using the media component
Replies: 3
Views: 1047

Re: Using the media component

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 >= ...
by vuott
Saturday 22nd December 2018 7:45pm
Forum: General
Topic: Using the media component
Replies: 3
Views: 1047

Re: Using the media component

Hello,

about audio file path you have to use:

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