---

Hallo,

ich will sowas ähnliches wie das HexPro Makro in VBA(Excel) schreiben.
Allerdings stehe ich vor dem Problem, dass ich folgendes nicht hinbekomme:
Nach dem ich in einem Formular auf OK Drücke möchte ich an der stelle an der ich die Maustaste drücke ein Rechteck zeichnen.

Wie macht man das am besten.
Ein Beispiel wie das geht wäre echt net.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
soweit ich das verstanden habe, liegt das Problem bei den Events, oder?
Hier die Zusammenfassung um einen Mouseclick mit zu bekommen:
(in einer Form oder Klasse einbauen)
Private WithEvents seCmd As SolidEdgeFramework.Command
Private WithEvents seMouse As SolidEdgeFramework.Mouse

sub Ini
...

  Set seCmd = oSE.CreateCommand(seNoDeactivate)
    seCmd.OnEditOwnerChange = 0
    seCmd.OnEnvironmentChange = 0
    Set seMouse = seCmd.Mouse
   
    seCmd.Start
end sub

Private Sub seCmd_Activate()
    With seMouse
        .EnabledMove = True
        .LocateMode = seLocateModes.seLocateSimple
        .DynamicsMode = seDynamicsModes.seDynamicsOff
        .ScaleMode = 1  ' design space coordinates
        SetLocateFilter LocateMode
    End With
End Sub
Private Sub seMouse_MouseClick( _
    ByVal Button As Integer, _
    ByVal Shift As Integer, _
    ByVal x As Double, ByVal y As Double, ByVal z As Double, _
    ByVal Window As Object, _
    ByVal KeyPointType As Long, _
    ByVal Graphic As Object _
    )

'Hier dann das Rechteck zeichnen. Wahrscheinlich im Profil?

end sub

Gruß Andreas

------------------
Besten Dank
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP