Comunidad Gambas-es

FranChesstein 31-08-2022, 09:45

Buenas un saludo a la comunidad gambas

Este es mi primer post en este foro, así que me voy a presentar brevemente, soy aficionado a la programación en general, y al basic en particular Big Grin

.

No habia programado nunca en gambas, tampoco en Visual Basic, soy de la vieja escuela del C, y estoy haciendo un pequeño programa (y primero) en gambas3, basicamente para aprender a conocer este lenguaje, y estoy teniendo dificultades en gestionar el control "tapstrip", concretamente me he quedado atascado (no encuentro información en internet) en pasar de una pestaña a otra desde código sin intervención del usuario. Me explico, en una pestaña, por ejemplo, realizo una serie de operaciones, y que una vez terminadas le doy a un control tipo "button" para me salte a otro control tipo "textarea" donde mostrar información y que está en otra pestaña, sin que el usuario tenga que picar manualmente en las pestañas del control.

he probado con textarea.show(), textarea.setfocus(), etc, tambien he intentado ver si el control tabstrit tiene algún tipo de indice que te pueda redirigir a otras pestañas, pero nada de nada. Solo veo que existe la propiedad "current", y otra para fijar el número de pestañas, pero no existe ningún método que te permita redirigirte a otra pestaña.

Espero haberme explicado, y gracias de antemano

Controles/Librerías/Componentes Respuestas 11

TextLabel. Letras y colores

Shell 30-08-2022, 22:21

Buenas!.

En este ejemplo se pretende que cada letra se imprima en un color.
Ahora que me fijo no era exactamente lo que quería, es el fondo lo que quiero cambiar, pero de cada letra.

[Imagen: CBxqzjv.png]

Código:
Private Const encabezado As String = "h2"

Public Sub Form_Open()

  Dim suncolor As String

  Dim spalabra As String  

  Dim i, j As Integer

  Randomize

  'Párrafo es esdrújula. Problema de código de página al mostrar con tilde.  

  'spalabra = "Muestra letras cada una de un color en un solo párrafo"  

  spalabra = "Muestra letras cada una de un color en un solo parrafo"

  'TextLabel1.Text = "<" & encabezado & "><meta charset=" & Quote("utf-8") & "/>"

  TextLabel1.Text = "<" & encabezado & ">"

  For j = 0 To String.Len(spalabra)

    suncolor = "#"

    For i = 1 To 3      

      'Color al azar sin tener en cuenta el fondo y que pueda no verse

      'TODO: Generar y comprobar antes

      'Concatenar números en hexadécimal con dos digitos en una variable de cadena

      suncolor &= CString(Hex(Rnd(0, 255), 2))

    Next   

    'Concatena texto tantas veces como letras tenga la palabra    

    TextLabel1.Text &= "<span style=" & "color:" & suncolor & ">" & spalabra[j] & "</span>"   

  Next   

  TextLabel1.Text &= "</" & encabezado & ">"

End

Quizás podía haber usado un gridview. Smile

Ah, no pude mostrar su tilde correspondiente en párrafo.

Saludos

Es sustituir prácticamente esto:

Código:
TextLabel1.Text &= "<span style=" & "color:" & suncolor & ">" & spalabra[j] & "</span>"

Por:

Código:
TextLabel1.Text &= "<span style=" & "background-color:" & suncolor & ">" & spalabra[j] & "</span>"

General Respuestas 2

Pc's antiguos

Shell 30-08-2022, 15:04

Buenas!.

En vacaciones para pasar las mañana encontré ordenadores viejos por la casa y una placa de lo que parece un 486 que usaré para desoldar.
De esa quiero preguntaros algo.

Cuando estuve viendo la placa del 486 (parecida a la que estaba en un chasis) no recordaba de como eran antes.
Solo veía un conector grueso de teclado.

[Imagen: h20dLb2.jpg]

Fijaros que no lleva el IO/Shield donde van todos los conectores.
En este caso lleva dos seriales, uno de ellos parece igual que el conector del puerto paralelo.

Y la fuente de alimentación tenía un conector que iba al interruptor de encendido con cuatro tomas.

[Imagen: X0xcNNm.jpg]

Las fuentes AT debían ser distintas a las ATX. Nosotros no solemos en la caja tocar esto (el cable grueso negro), ni existe.
Cosa curiosa es que la placa se podía montar en un chasis, que esta atornillado, aunque un poco
difícil para acceder al interior.

Las conexiones al interruptor.

[Imagen: houfxFH.jpg]