🚀 go-pugleaf

С�����������˵���ʱ��

����ʱ������ʱ˵�������˵�����Ҫ��һ���Ӳ˵���

���ڲ˵�����tool�� �������кü����Ӳ˵�������visible��Ϊʲô���Ҽ�ʱ�Ͳ��ܿ�
��

����ְ�æ��

�������ҵ�mousedown���룺

' ��MouseDown���¼���������У���¼��ͼƬ����ʼλ��

'����������� map �������꣩

Private Sub map_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)



    On Error GoTo Cancel

    startX = X   '��굱ǰλ��X������)

    startY = Y   '��굱ǰλ��Y�����ף�

    Select Case Button

        Case vbLeftButton '���

            If yesMove = False Then '�ƶ�

                map.MousePointer = 5 '���ʮ��

                yesMove = True '���ƶ�����

            End If

        Case vbRightButton '�Ҽ�

            'PopupMenu mnuItemRight_map, 0, X, Y

            PopupMenu Tool

        Case Else '�м�

            MsgBox "zhong"

    End Select



Cancel:

End Sub

--
���Լ������������磡


�� ��Դ:��ˮľ���� newsmth.net��[FROM: 211.162.235.*]