Programación General > Visual Basic 6.0 e inferiores

 Msflexgrid.removeitem

(1/2) > >>

UserCode:
hola muchachos, que tal le ha ido con quien ha hecho uso del .RemoveItem de un MSFlexgrid

Yo lleno un MSFlexgrid en memoria al seleccionar unos Item de un Combobox asi:


--- Código: Text ---     MSF.Rows = MSF.Rows + 1    MSF.Row = MSF.Rows - 1     MSF.Col = 1    MSF.Text = cmbDescripcion.Text        MSF.Col = 2    MSF.Text = cmbDesc1.Text         MSF.Col = 3    MSF.Text = txtMonto1.Text  
Pero no he podido ver bien como armar el codigo sin que de errores del Remover en caso de desear quitar un agregado al MSFlexgrid

Estaba probando algo como esto pero no me ha servido:

--- Código: Text ---     For i = 1 To MSF.Rows - 1        MSF.Row = i        MSF.Col = i    Next    MSF.RemoveItem (MSF.Row)  
Alguien ha logrado o sabe como hacer un correcto uso del RemoveItem del MSFlexgrid sin morir en el intento  :unsure:

rfuentevilla:

--- Cita de: "UserCode" --- hola muchachos, que tal le ha ido con quien ha hecho uso del .RemoveItem de un MSFlexgrid

Yo lleno un MSFlexgrid en memoria al seleccionar unos Item de un Combobox asi:


--- Código: Text ---     MSF.Rows = MSF.Rows + 1    MSF.Row = MSF.Rows - 1     MSF.Col = 1    MSF.Text = cmbDescripcion.Text        MSF.Col = 2    MSF.Text = cmbDesc1.Text         MSF.Col = 3    MSF.Text = txtMonto1.Text  
Pero no he podido ver bien como armar el codigo sin que de errores del Remover en caso de desear quitar un agregado al MSFlexgrid

Estaba probando algo como esto pero no me ha servido:

--- Código: Text ---     For i = 1 To MSF.Rows - 1        MSF.Row = i        MSF.Col = i    Next    MSF.RemoveItem (MSF.Row)  
Alguien ha logrado o sabe como hacer un correcto uso del RemoveItem del MSFlexgrid sin morir en el intento  :unsure:
--- Fin de la cita ---
 :blink: No te entiendo lo q quieres hacer. de lo que entendi quieres eliminar las filas de un flexgri, si es asi lo que yo he realizadoes lo sigt. :
if msf.rows=2 then
    for pp=0 to msf.cols-1
           msf.textmatrix(1,pp)=""
    next
else
     msf.removeitem(msf.row)
endif

UserCode:
Viendo un codigo que no tenia mucho que ver con lo mio, extraje de internet y arme lo mio, bueno asi quedo, ya no me da error esto asi  :P

--- Código: Text --- Private Sub MSHF_KeyPress(KeyAscii As Integer)    If KeyAscii = 100 Then 'd        If MSHF.Row > 1 Then             MSHF.RemoveItem (MSHF.Row)            MSHF.Refresh        ElseIf MSHF.Row = 1 Then            MSHF.Clear: MSHF.Rows = 1            MSHF.Col = 1: MSHF.Row = 0: MSHF.Text = "Descripción"            MSHF.Col = 2: MSHF.Row = 0: MSHF.Text = "Monto"        End If    End IfEnd Sub  Activo o ejecuto esto con la tecla "d" porque no logre capturar y hacerse activar el Ascii de la tecla Delete, el If Keyascii tenia el numero Ascii de la tecla Del o Supr, y por más que le daba, solo servia la validacion con las teclas de siempre del teclado para escribir, pero las que se encuentran del lado derecho del teclado como Insert, Supr, etc para la validación Keyascii era como si no hubiese pulsado nada  :blink:

F_Tanori:

--- Cita de: "UserCode" ---Activo o ejecuto esto con la tecla "d" porque no logre capturar y hacerse activar el Ascii de la tecla Delete, el If Keyascii tenia el numero Ascii de la tecla Del o Supr, y por más que le daba, solo servia la validacion con las teclas de siempre del teclado para escribir, pero las que se encuentran del lado derecho del teclado como Insert, Supr, etc para la validación Keyascii era como si no hubiese pulsado nada  :blink:
--- Fin de la cita ---
Para utilizar las teclas 'especiales' de funciones y demas

debes usarlo en los eventos

* KeyDown</li>
* KeyUp</li>en lugar de KeyPress

utilizando el parametro KeyCode en lugar de KeyAscii para obtener la tecla presionada,  tambien pasa otro parametro Shift que es por si se utilizó alguna combinacion al presionar la tecla y puede contener los siguientes valores

Parametro Shift:

Valor - Tecla

--- Código: Text ---1- Shift2- Ctrl3- Ctrl + Shift4- Alt5- Shift + Alt6- Ctrl + Alt7- Shift+ Ctrl + Alt 
Saludos

UserCode:
:good:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente