(24-04-2021, 17:31)cogier escribió: 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
Código:
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.