[tincho]

Hola a todos.
Existe una muy interesante pagina en el foro hermano Gambas.one que lista todas las clases nativas de gambas de una forma muy practica.
https://www.gambas.one/classes/
Saludos

[vuott]

Sì, interesante.

[cogier]

Echa un vistazo a 'Gambas_Classes' en la Granja de Gambas

[tincho]

Echa un vistazo a 'Gambas_Classes' en la Granja de Gambas

Muy bueno. Te felicito.
Saludos.

[tincho]

Echa un vistazo a 'Gambas_Classes' en la Granja de Gambas

Hola Cogier, nuevamente gracias por el programa, es muy útil.
Me tome la libertad de cambiar algunas cosas para que se vea mejor en mi escritorio oscuro:

• Cambie el evento "_Click" por "_Select" así se puede navegar el "TreeView" con el teclado.
  
• Cambie la propiedad .Mode del TreeView  a single (esto evita que tengas que poner el color amarillo para resaltar la selección)
  
• Cambie los fondos de un TextBox y de un Label
  

GAMBAS

Public Sub GridViewClass_Select(Optional iRow As Integer)
 
  Dim sUrl As String = "http://gambaswiki.org/wiki/comp/"
 
  If iRow = -1 Then iRow = Settings["LastRow", 0] Else iRow = Last.Row
 
  Settings["LastRow"] = iRow
 
  ' GridViewClass[iLastRow, 0].Background = Color.Default
  ' GridViewClass[iLastRow, 1].Background = Color.Default
 
  WebViewClass.Url = sUrl & LCase(GridViewClass[iRow, 1].Text) & "/" & LCase(GridViewClass[iRow, 0].Text)
  LabelDisplay.Text = GridViewClass[iRow, 0].Text & " (" & GridViewClass[iRow, 1].Text & ")"
 
  ' GridViewClass[iRow, 0].Background = Color.Darker(Color.Default) 'Color.Yellow
  ' GridViewClass[iRow, 1].Background = Color.Darker(Color.Default) 'Color.Yellow
 
  iLastRow = iRow
 
End

Saludos.

[tincho]

Hola Cogier.
Hice un programa para explorar clases que hace lo mismo que el tuyo con algunas variaciones, espero que te resulte tan util como me resulto el tuyo.

https://gambas-es.org/showthread.php?tid=382
Saludos.