MSHFlexGrid... supera la lógica

[Frehley]

Bueno, la verdad que me estoy partiendo la cabeza con este tema:

Resulta que hice un PopUp menu que aparece cuando hago click derecho sobre MSHFlexGrid2.

Private Sub MSHFlexGrid2_MouseDown(button As Integer, Shift As Integer, x As Single, y As Single)

If button = vbRightButton Then
MSHFlexGrid2.Col = 0
PopupMenu herramientas
End If

End Sub

Hay un submenu que dice "Terminar Viaje" el cual me abre un form3 que contiene un textbox.

La idea es que ese textbox tenga como text el texto que tiene la columna 0 del MSHFlexGrid2 (y el row sería la misma donde se hizo el click).

El problema es el siguiente:
Cuando yo hago click en el submenu y me carga el form, el textbox tiene siempre el texto del row y col donde se encuetnra el foco. Esto sería OBVIO, pero yo en el initialize del form le pongo

form1.MSHFlexGrid2.Col = 0

Ahí ya tendría que moverse a esa columna, pero no lo hace.

Tambíen probé esto:

Private Sub MSHFlexGrid2_MouseDown(button As Integer, Shift As Integer, x As Single, y As Single)

If button = vbRightButton Then
form1.MSHFlexGrid2.Col = 0
MSHFlexGrid2.Col = 0
PopupMenu herramientas
End If

End Sub

Y esto:

Private Sub MSHFlexGrid2_MouseDown(button As Integer, Shift As Integer, x As Single, y As Single)

form1.MSHFlexGrid2.Col = 0
If button = vbRightButton Then
MSHFlexGrid2.Col = 0
PopupMenu herramientas
End If

End Sub

Pero sigue sin moverse.

Solamente se mueve si hago esto antes de hacer el click derecho para el PoPup:

Private Sub MSHFlexGrid2_Click()

MSHFlexGrid2.Col = 0

End Sub

Pero eso no sería práctico.

Espero que me puedan explicar que es lo que estoy haciendo mal, estoy seguro que es algo simple, pero en este momento tengo la cabeza frustrada y canzada por estar programando toda la noche.

Muchas gracias!

[Ultra Putrefactus]

EL problema es que el al hacer click sobre el flexgrid con el botón derecho este no selecciona el item. Lo que tienes que hacer es forzar la selección del item cada vez que se haga un click derecho sobre la grilla.

En un modulo:

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_MOVE = &H1 ' mouse move
Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Public Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right button down
Public Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' middle button down
Public Const MOUSEEVENTF_MIDDLEUP = &H40 ' middle button up
Public Const MOUSEEVENTF_WHEEL = &H800 ' wheel button rolled
Public Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move

Public Type POINTAPI

x As Long

y As Long

End Type

En el form:

private Mdown as boolean' a nivel general en el formulario

Private Sub MSHFlexGrid2_MouseDown(button As Integer, Shift As Integer, x As Single, y As Single)
Dim pt As POINTAPI

GetCursorPos ptcur_x = pt.x * 65535 / ScaleX(Screen.Width, vbTwips, vbPixels)
cur_y = pt.y * 65535 / ScaleY(Screen.Height, vbTwips, vbPixels)

If Button = 2 Then

mouse_event _
MOUSEEVENTF_ABSOLUTE + _
MOUSEEVENTF_MOVE + _
MOUSEEVENTF_LEFTDOWN + _
MOUSEEVENTF_LEFTUP, _
cur_x, cur_y, 0, 0

Mdown = True

End If

End Sub
Private Sub MSHFlexGrid2_Click()

If Mdown Then

PopupMenu herramientas

End If

End Sub

En el evento click de la opción de menu:

Private Sub TerminarViaje_Click

MSHFlexGrid2.col=0
Form2.Text1= MSHFlexGrid2.text
Form2.Show

End Sub

[Ultra Putrefactus]

se me olvido un detale.

EN el evento click del MSHFlexGrid2, después de mostrar el popup, tienes que poner Mdown en False, Osea debiera quedar así:


If Mdown Then

PopupMenu herramientas
Mdown=False

End If

[Frehley]

Muchas gracias por tu respuesta. Ahora el error está en esta linea:

GetCursorPos ptcur_x = pt.x * 65535 / ScaleX(Screen.Width, vbTwips, vbPixels)

Me da este error:

By Ref Argument Type Dismatch

y me marca el "="

Sabés que puede ser?

Muchas gracias!

[zabait]

Hay dos posibilidades:

1.- No he entendido realmente lo que quieres y no puedes hacer.
2.- Os habeis liado la manta a la cabeza.

Si es la segunda opción, creo que se puede solucionar cuando detectas que el botón derecho del ratón, grabar el el colsel y/o el rowsel del hflexgrid que debes mostrar en el form que se carga posteriormente.

Lo digo porque el código inicial que has mostrado me funciona correctamente para algo similar, pero claro yo en vez de fijar el col de hflexgrid, fijo el colsel.

Si es la primera opción, que también puede ser, entonces, este mensaje se autodestruirá en ...

gurgur

[Ultra Putrefactus]

Sorry, Quedo mal tipeado, debiera ser así:

GetCursorPos Pt
Cur_X=pt.x * 65535 / ScaleX(Screen.Width, vbTwips, vbPixels)
cur_y = pt.y * 65535 / ScaleY(Screen.Height, vbTwips, vbPixels)

[Frehley]

Buenisimo. Lo pruebo y te comento que pasó.

Muchas gracias!

[Frehley]

Sos un grande, man! Funciona perfecto!

Muchisimas gracias! d(^_^)b