FAQ's de VB6

[Jad-Neo]

Funciones para poder mostrar el PopUpMenu de los menus de SmartMenuXP, (ojo, los PopUpMenus de SmartMenuXP sólo se muestran si el control esta en Visible = False):

Código:

Function PosX(frm As Form, ByVal X As Single) As Integer
Dim nX As Integer, posX As Integer

nX = X / Screen.TwipsPerPixelX
posX = frm.Left / Screen.TwipsPerPixelX

PosX = (posX + nX) + 3
End Function

Function PosY(frm As Form, ByVal Y As Single) As Integer
Dim nY As Integer, posY As Integer

nY = Y / Screen.TwipsPerPixelY
posY = frm.Top / Screen.TwipsPerPixelY

PosY = (posY + nY) + 22
End Function

Ejemplo:

Código:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then SmartMenuXP1.PopupMenu "mnuFile", PosX(Me, X), PosY(Me, Y)
End Sub