Controles/Librerías/Componentes :: TextEdit Al Final Detectar Final De ScrollY?

Portal

Foro

Buscar

FAQ

Registrarse

Conectarse

Fecha y hora actual: Jueves, 02 May 2024, 05:59 • Todas las horas son UTC + 1 Hora

TextEdit Al Final Detectar Final De ScrollY?

Página 1 de 1

TextEdit Al Final Detectar Final De ScrollY?

Autor	Mensaje
v3ctor Analista Programador Registrado: May 2013 Mensajes: 1786 Edad: 44 Ubicación: Uruguay	TextEdit Al Final Detectar Final De ScrollY? buenas, en el programa VisorRV1960 tengo un textedit que muestra el capitulo de un libro x (génesis, mateo etc) y se me ocurrió la idea de que seria bueno que se moviera solo, esto seria un modo lectura en el cual el usuario presiona un botón y el texto va subiendo de a poco de esta manera el usuario puede leer cómodamente sin tocar nada. ya lo tengo hecho a eso, el problema surge que no se detectar cuando el scrollY llega a su final para detener el timer encargado de efectuar el movimiento sumando de a uno la propiedad scrollY alguna sugerencia? Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] Public Sub btnMover_Click() Dim largo As Integer MoverCapitulo = Not MoverCapitulo If MoverCapitulo Then btnMover.Picture = Picture["icon:/22/pause"] TmMover.Start Else TmMover.Stop btnMover.Picture = Picture["icon:/22/play"] Endif End Public Sub TmMover_Timer() Print "txtEcapitulo1.Height=" & txtEcapitulo1.Height Print " txtEcapitulo1.ScrollY=" & txtEcapitulo1.ScrollY txtEcapitulo1.ScrollY += 1 End Public Sub btnMover0_Click() TmMover.Stop txtEcapitulo1.ScrollY = 0 MoverCapitulo = False btnMover.Picture = Picture["icon:/22/play"] End Public Sub btnMoverOpcion_Click() ConfMover.ShowModal() End Link =================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible Proyectos: VisorRV1960,Taller2015,Tanteador https://sourceforge.net/u/v3ctor-full/profile/ Blog: http://novatocodegambas.blogspot.com.uy/
#1 Martes, 16 Febrero 2016, 11:08

v3ctor Analista Programador Registrado: May 2013 Mensajes: 1786 Edad: 44 Ubicación: Uruguay	Re: TextEdit Al Final Detectar Final De ScrollY? bueno hasta ahora lo unico que he logrado es esto: Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] Public Sub TmMover_Timer() Dim Yactual, YmasUno As Integer Yactual = txtEcapitulo1.ScrollY Print "yactual=" & Yactual txtEcapitulo1.ScrollY += 1 YmasUno = txtEcapitulo1.ScrollY Print "ymasuno=" & YmasUno If Yactual = YmasUno Then btnMover_Click() Print "detenido en:" & YmasUno Endif End ymasuno=9071 yactual=9071 ymasuno=9072 yactual=9072 ymasuno=9073 yactual=9073 ymasuno=9074 yactual=9074 ymasuno=9075 yactual=9075 ymasuno=9076 yactual=9076 ymasuno=9077 yactual=9077 ymasuno=9078 yactual=9078 ymasuno=9078 detenido en:9078 =================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible Proyectos: VisorRV1960,Taller2015,Tanteador https://sourceforge.net/u/v3ctor-full/profile/ Blog: http://novatocodegambas.blogspot.com.uy/
#2 Miercoles, 17 Febrero 2016, 18:44

Grandamakulo Analista Programador Registrado: Enero 2016 Mensajes: 311 Edad: 55 Ubicación: En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...	Re: TextEdit Al Final Detectar Final De ScrollY? He probado con try y catch, pero no maneja el error, porque no hay error, sigue bajando y bajando y bajando... No va por ahí la solución. Lo siento.
#3 Miercoles, 17 Febrero 2016, 22:51

v3ctor Analista Programador Registrado: May 2013 Mensajes: 1786 Edad: 44 Ubicación: Uruguay	Re: TextEdit Al Final Detectar Final De ScrollY? Grandamakulo escribió: [Ver mensaje] He probado con try y catch, pero no maneja el error, porque no hay error, sigue bajando y bajando y bajando... No va por ahí la solución. Lo siento. en el programa me funciona sin error, si queres subí tu código y lo miro. igual estoy abierto a otras soluciones. =================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible Proyectos: VisorRV1960,Taller2015,Tanteador https://sourceforge.net/u/v3ctor-full/profile/ Blog: http://novatocodegambas.blogspot.com.uy/
#4 Miercoles, 17 Febrero 2016, 23:07

Grandamakulo Analista Programador Registrado: Enero 2016 Mensajes: 311 Edad: 55 Ubicación: En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...	Re: TextEdit Al Final Detectar Final De ScrollY? V3ctor, perdona la tardanza. El código es: Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] Public Sub Timer1_Timer() 'Dim booSoparao As Boolean Dim intHataquihasllegao As Integer 'booSoparao = False Try TextEdit1.ScrollY = TextEdit1.ScrollY + 1 If Error Then 'booSoparao = True intHataquihasllegao = TextEdit1.ScrollY ' Endif TextLabel1.Text = TextEdit1.ScrollY End En Fmain inserto un textedit, un timer y un textlabel. Espero a que se produzca el error, pero no ocurre. Al principio no había colocado el textlabel, pero luego lo puse para controlar qué pasaba y es que el ScrollY llega a su máximo sin lanzar ningún evento aparentemente, pero no deja aumentar. No sé si esto te vale de algo. Un saludo
#5 Lunes, 22 Febrero 2016, 21:06

Grandamakulo Analista Programador Registrado: Enero 2016 Mensajes: 311 Edad: 55 Ubicación: En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...	Re: TextEdit Al Final Detectar Final De ScrollY? Te iba a sugerir que comprobases tras la suma de 1 que .ScrollY no había cambiado de valor, lo que daría la condición de fin, pero es que además de esa solución, me acabo de dar cuenta de una cosa. Y es que en el ScrollY máximo se cumple que: Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] .TextHeight = .H + .ScrollY(máx) + 2 Por tanto, tienes dos soluciones: * Comprobar que tras la orden de incremento, éste no se produce. * Comprobar la condición de antes. Espero que te sirva. Un saludo última edición por Grandamakulo el Lunes, 22 Febrero 2016, 21:28; editado 1 vez
#6 Lunes, 22 Febrero 2016, 21:25

Mostrar mensajes anteriores:

Temas parecidos

	Autor	Foro	Respuestas	último mensaje
Imprimir Un TextEdit	kotonfree	General	4	Domingo, 20 Febrero 2011, 16:10 kotonfree
Instalar Gambas3 Final En Un Entorno Donde...	santijav	Instalación	4	Martes, 03 Enero 2012, 20:44 jguardon
Imprimiendo Un TextEdit	shordi	General	1	Jueves, 03 Abril 2014, 09:10 shordi
Al Final, Creo Que No Es Posible (¡Sí Er...	shordi	General	15	Sabado, 31 Octobre 2015, 20:30 shordi

Página 1 de 1

Fecha y hora actual: Jueves, 02 May 2024, 05:59 • Todas las horas son UTC + 1 Hora

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

Lista de permisos

No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

Versión reducida del foro - (Lo-Fi)
Página generada en:: 0.4574s (PHP: -71% SQL: 171%)
Consultas SQL: 46 - Debug off - GZIP Activado

Design by Mighty Gorgon