tincho   24-04-2021, 01:02
#1
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

1 Saludo.
vuott   24-04-2021, 02:47
#2
Sì, interesante.

« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)

« Las ondas nunca regresan. » (Genesis: Ripples, 1976)

« Vita non suavis esse potest, nec Mors amara. »  (...vuott)
cogier   24-04-2021, 17:31
#3
Echa un vistazo a 'Gambas_Classes' en la Granja de Gambas

[Imagen: Gambas_classes.png]
tincho   24-04-2021, 20:56
#4
(24-04-2021, 17:31)cogier escribió: Echa un vistazo a 'Gambas_Classes' en la Granja de Gambas

Muy bueno. Te felicito.
Saludos.

1 Saludo.
tincho   29-04-2021, 09:59
#5
(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. Smile
  • 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
[Imagen: FUB96Rs.png]
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.
Archivos adjuntos
.gz
Gambas_Classes-1.0.3.tar.gz (Tamaño: 21.79 KB Descargas: 1)

1 Saludo.
tincho   03-05-2021, 02:30
#6
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.
[Imagen: 7VozLyV.png]
https://gambas-es.org/showthread.php?tid=382
Saludos.

1 Saludo.
  
Usuarios navegando en este tema: 2 invitado(s)
Powered By MyBB, © 2002-2024 MyBB Group.
Made with by Curves UI.