Gambas ONE

You're right, I asked him what version it works for and he answered this: :roll: :roll: :mrgreen: AI say: The code I provided earlier is a hypothetical example and is not associated with a specific version of Gambas. Gambas is an evolving programming language, and features can vary by version. As of...

:lol: :lol: :lol: With all due respect, you already know me a little. The AI said that it only works on versions higher than my version, which is 3.15.2 Therefore I couldn't prove it. On the other hand, it seems to me that the problem was that the person who asked did not know how to ask. Before ask...

Me, say: All the explanation and example code is developed by an AI for you, expressly. I think this is what you are looking for, if not, tell me. AI, say: Sure, here's the previous explanation and example in English: In Gambas, the `Completion` property on a `Form` object is used to configure autom...

Other sample: ' Gambas Form file $Form1 = New Form $Form1.Text = "Autocompletion Example" $Form1.Resize(300, 100) 'Text input field $TextBox1 = New TextBox $TextBox1.Text = "" $TextBox1.Move(10, 10, 280, 30) $TextBox1.Parent = $Form1 ' Create a Completion control $Completion1 = N...

This example is developed by an AI in response to your question. PUBLIC SUB Main() DIM Calculator AS NEW CalculatorApp PRINT "Bienvenido a la calculadora básica" PRINT "Operaciones válidas: suma, resta, multiplicacion, division" DO DIM Input AS String Input = INPUT("Ingrese ...

Thanks, it works perfectly.
You do know about Gambas programming.

That's if I painted the wall in my living room, maybe I wouldn't call you.

Thank you very much for your always effort. Thank you. With ListView1.Add(resultado["ID"], resultado["Name"], Picture[$sNoMonitor]) .Foreground = Color.RGB(255, 0, 125) '.RichText = "<b style='color:rgb(255,0,125);'>" & resultado["Nombre"] & "</b>...

My solution: With ListView1 .Add(resultado["ID"], resultado["Name"], Picture[$sNoMonitor]) .Foreground = Color.RGB(255, 0, 125) '.RichText = "<b style='color:rgb(255,0,125);'>" & resultado["Nombre"] & "</b>" .Font.Bold = True End With Note: (...

I have this line that works: ListView1.Add(resultado["ID"], resultado["Name"], Picture[$sNoMonitor]).Foreground = Color.RGB(255, 0, 125) ' ListView1.Add(resultado["ID"], resultado["Name"], Picture[$sNoMonitor]).RichText = "<b style='color:rgb(255,0,125);'...

My solution: Public Sub txtFind_KeyRelease() For Each key As Integer In ListView1.Keys If String.InStr(UCase(ListView1[key].Text), UCase(txtFind.Text)) <> 0 Then ListView1[key].Foreground = Color.Blue Else ListView1[key].Foreground = Color.Default Endif Next ListView1.Refresh End