Programación General > Visual Basic 6.0 e inferiores

 Re: Flexgrid

<< < (2/5) > >>

Kev:
No entiendo cual es el problema, si te puedes explicar un poco mas....

Llenas el TextBox y luego segun el boton Opcion1, 2, o 3 lo colocas en la columna que corresponda segun el boton????

 :blink:

Sagutxo:
Te comento una opción desde mi ignorancia. Yo simularía un flesgrid editable con ese campo text que tienes y prescindiria de los botones opción 1, 2,3.
Como se hace:

Oculta el campo .text y cuando el usario pinche 2 veces en el flesgrid compruebas en campo a pinchado y pones encima de la celda el campo de texo que tienes a la izquierda de los botones, como se hace.

los controles del mouse son:
flesgrid.mouserow
flesgrid.mousecol.

Como se encaja en el flesgrig en control .text:
dim CampoText

CampoText.Text = ""
 
CampoText.Move Flesgrid.CellLeft + 0, Flesgrid.CellTop + 0, Flesgrid.CellWidth, 0
'Tabla1.CellHeight, este es el ultimo 0

' los + 0 te los dejo para que sepas que es posible sumar o restar al campo.

CampoText.Visible = True

de esta forma se te pondrá encima de la celda pinchada.

Final:

Utiliza la tecla intro como secuencia de grabacion y ESC. como salida sin grabar por ejemplo. puedes controlar la tecla pulsada en función KeyAscii del ControlText, Incluso si quieres llegar mas lejos puedes exigir que tipo de caracteres de entrada permitir, pero eso ya es otro cuento, espero que te sirva.

P.D. No olvides ocultar el campo nuevamente cuando el usuario pulse Intro o ESC.

Salu2.

The Black Boy:
tampoco esntiendo muy bien tu pregunta... yo utilizo mucho ese componente ;)  asi que si deseas algo sé un poco mas especifico y si puedo te ayudaré

Un saludo :comp:

RadicalEd:
EXACTO Kev ASI LO ESTOY HACIENDO AUNQUE YA ENCONTRE UNA SOLUCION ASI:

--- Código: Text --- Private Sub MSFG_Click()X = InputBox(&#34;Ingresar valor&#34;, &#34;Valores&#34;)If X &#60;&#62; &#34;&#34; Then    MSFG.Text = XEnd IfEnd Sub 

RadicalEd:
BUENO PERDON MI IGNORANCIA PERO AL TRATAR DE HACERLO COMO DICE Sagutxo LO DE FlexGrid.MouseCol Y MouseRow, NO SE COMO COLOCARLO LO PENSE DE LA FORMA
Text1.Top=FlexGrid.MouseCol & FlexGrid.MouseRow
NO HACE NADA, Y COLOCANDOLOS SOLOS Y ME SACA UN ERROR, OSEA
FlexGrid.MouseCol
FlexGrid.MouseRow
PERDON PERO ME PODRIAS DAR UN EJM UN POCO MAS CLARO DE ACOMODAR EL Text DENTRO DEL FlexGrid, REALMENTE TE LO AGRADECERIA AQUI ENVIO LO QUE HE HECHO, PARA QUE LO PUEDAN ANALIZAR Y ME AYUDEN A MEJORARLO
GRACIAS CHAO

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior