Cobol Foro
Registrarse
Temas de Hoy
Enlaces
Registrarse
Preguntas Frecuentes
Lista de Usuarios
Calendario
Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL PowerCOBOL (ActiveX, v4 - v11)
Actualizar esta página [Sintaxis] Posición del cursor en un textbox...
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] SQL embebido - cursor con COUNT() en PowerCOBOL 7 drvedia1981 PowerCOBOL (ActiveX, v4 - v11) 13 7 de junio de 2023 11:28
[Sintaxis] Cursor SQL sobre tablas de nombres variables Nino PowerCOBOL (ActiveX, v4 - v11) 4 14 de abril de 2021 23:20
[Sintaxis] Texto inicial en un Textbox dmosca PowerCOBOL (ActiveX, v4 - v11) 4 25 de julio de 2017 17:45
[Sintaxis] Posición de DisplayMessage en pantalla Hrmcobol PowerCOBOL (ActiveX, v4 - v11) 3 5 de julio de 2015 23:20
[Sintaxis] Ocultar Cursor Recato53 PowerCOBOL (ActiveX, v4 - v11) 3 21 de febrero de 2015 17:08

Respuesta

  #1
Antiguo 22 de enero de 2016, 22:46
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243
Divertido Posición del cursor en un textbox...
0
Likes

None...

Inactivo Inactivo
Hola Amigos:

Estoy editando un cuadro de texto, de alguna manera puedo saber dónde está posicionado el cursor, supongamos que el cuadro de texto sea de 80 caracteres, necesito saber cuál de todos ellos estoy escribiendo.

Espero haber sido claro.

Saludos. Fito...
Fito is offline   Responder Con Cita
  #2
Antiguo 23 de enero de 2016, 20:50
Rapinto
Gran amigo del Foro
Guru de COBOL
Activista del Foro: Activista del Foro - Issue reason: ¡Gracias! Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por ayudar mucho a los foreros Guru de los Gurus: Por solidos y amplios conocimientos - Issue reason: Por saber demasiado! 
Última Actividad 29.01.2018 20:23
Posts Posts: 240
Likes enviados Enviados: 19
Likes recibidos Recibidos: 224
Predeterminado
4
Likes

Fito
Josber
Kuk
Roger

 Inactivo Inactivo
Fito,

A CMText do Powercobol, não tem a propriedade "SelStart".
Não é possível diretamente saber onde está o cursor.
Usando as API's do Windows, claro que se pode saber.
Utiliza este código:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  EM_GETSEL            PIC S9(009) COMP-5 VALUE 176.
  5.  01  EM_SETSEL            PIC S9(009) COMP-5 VALUE 177.
  6. *
  7.  01  LCURPOS              PIC S9(009)    COMP-5.
  8.  01  TXTHWND              PIC S9(009)    COMP-5    VALUE ZERO.
  9.  01  WZERO                PIC S9(009)    COMP-5    VALUE ZERO.
  10. *
  11.  PROCEDURE       DIVISION.
  12.  MAIN SECTION.
  13.  MAIN-00.
  14.     INVOKE CMTEXT1 "SETFOCUS".
  15.     CALL "GetFocus"   WITH STDCALL RETURNING  TXTHWND.
  16. *
  17.     CALL "SendMessageA" WITH STDCALL USING
  18.                        BY VALUE TXTHWND
  19.                        BY VALUE EM_GETSEL
  20.                        BY VALUE WZERO   
  21.                        BY VALUE WZERO 
  22.                   RETURNING LCURPOS.
  23.     COMPUTE LCURPOS = LCURPOS / 65536
  24.     MOVE LCURPOS TO "CAPTION" OF CMSTATIC1.

No evento "MouseMove" e no evento "KeyUp" faz um "Call" a esta rotina.
Anexo um exemplo em PowerCobol 9.0

Un Saludo
Rui
Imágenes Adjuntas
Tipo de Archivo: bmp Image2.bmp (238,2 KB)Descargas: 172
Archivos Adjuntos
Tipo de Archivo: zip TextMan.zip (41,3 KB)Descargas: 156
Rapinto is offline   Responder Con Cita
  #3
Antiguo 3 de febrero de 2016, 16:14
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243
Predeterminado
0
Likes

None...

Inactivo Inactivo
Hola Rapinto:

Ahi estuve probando lo tuyo y funciona bien. El tema es que en las opciones de compilación tiene la cláusula NOALPHA, si inserto todo eso dentro de mi form esta cláusula me muchos errores.

Saludos. Fito...
Fito is offline   Responder Con Cita
  #4
Antiguo 3 de febrero de 2016, 16:52
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207
Predeterminado
1
Likes

Fito

 Inactivo Inactivo
Fito, pon ALPHAL(WORD)


NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
Respuesta

« Tema Anterior | Próximo Tema »

Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts
BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 16:59.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.

Top
 Archivo - Cobol Foro
Webdesign by: vbdesigns.de
Contactar con Nosotros - Cobol Foro
Top