Shell 31-08-2022, 12:36
Buenas!.
En este caso existe un evento que cumple una tarea y se llama al evento KeyPress del formulario.
Normalmente usamos sentencias de comparación o varias para saber si se ha pulsado una tecla.
A ver que os parece la forma de evitarla.
Como son constantes no puedo usa sus valores al comienzo del código y declarar teclas como pública.
Saludos
En este caso existe un evento que cumple una tarea y se llama al evento KeyPress del formulario.
Normalmente usamos sentencias de comparación o varias para saber si se ha pulsado una tecla.
A ver que os parece la forma de evitarla.
Código:
Public Sub Form_KeyPress()
Dim teclas As Integer[] = [Key.Enter, Key.Return]
'If Key.Code = Key.Enter Or Key.Code = Key.Return Then Button1_Click
If teclas.Exist(Key.Code) Then Button1_Click
EndComo son constantes no puedo usa sus valores al comienzo del código y declarar teclas como pública.
Saludos
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
.
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
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
.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
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]](https://i.imgur.com/CBxqzjv.png)
Quizás podía haber usado un gridview.
Ah, no pude mostrar su tilde correspondiente en párrafo.
Saludos
Es sustituir prácticamente esto:
Por:
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.
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 & ">"
EndQuizás podía haber usado un gridview.
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>"Código:
TextLabel1.Text &= "<span style=" & "background-color:" & suncolor & ">" & spalabra[j] & "</span>"
Bienvenido, Invitado
Últimos temas
GauchoCAD vuelve a las pi...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: vuott, Ayer, 12:22
Respuestas: 13 - Vistas: 12,682
Archivos .ods
Foro: GeneralÚltimo mensaje por: tincho, 01-07-2025, 18:54
Respuestas: 8 - Vistas: 281
Publicidad
Foro: Sobre gambas-es.orgÚltimo mensaje por: tincho, 01-07-2025, 18:48
Respuestas: 6 - Vistas: 347
Web con gambas, a ver si ...
Foro: WebApp/WebFormsÚltimo mensaje por: tincho, 01-07-2025, 17:47
Respuestas: 41 - Vistas: 32,612
Un sistema de ayudas cont...
Foro: VideotutorialesÚltimo mensaje por: guizans, 22-06-2025, 19:55
Respuestas: 3 - Vistas: 313