---

Ich bekomme die MouseEvents einfach nicht zum Laufen. Habe es wie im SDK2008 - UserInteraction versucht, aber es funzt einfach nicht. (Inventor2008 / VBasic 2005)

Was mache ich falsch?

Code:

---

Imports inventor
Imports System.Runtime.InteropServices

Public Class Form1
  Public IvApp As Inventor.Application
  Public IvAsmDoc As Inventor.AssemblyDocument

  Private WithEvents oInteractEvents As Inventor.InteractionEvents
  Private WithEvents oMouseEvents As Inventor.MouseEvents
'= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    IvApp = GetObject(, "Inventor.Application")
    IvApp.Visible = True
    oInteractEvents = IvApp.CommandManager.CreateInteractionEvents
    oMouseEvents = oInteractEvents.MouseEvents
    TextBox1.AppendText(vbCrLf & "Starting InterAction!!" & vbCrLf & vbCrLf)
    oMouseEvents.PointInferenceEnabled = True
    oMouseEvents.MouseMoveEnabled = True
    oInteractEvents.Start()
  End Sub
  '= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  Private Sub oMouseEvents_OnMouseClick(ByVal Button As Inventor.MouseButtonEnum, _
          ByVal  ShiftKeys As Inventor.ShiftStateEnum,  _
          ByVal ModelPosition As Inventor.Point,  _
          ByVal ViewPosition As Inventor.Point2d, ByVal View As Inventor.View)
    TextBox1.AppendText("MouseEvents_OnMouseClick" & vbCrLf)
  End Sub

  Private Sub oMouseEvents_OnMouseMove(ByVal Button As Inventor.MouseButtonEnum,  _
          ByVal ShiftKeys As Inventor.ShiftStateEnum, _
          ByVal ModelPosition As Inventor.Point, _
          ByVal ViewPosition As Inventor.Point2d, ByVal View As Inventor.View)
    TextBox1.AppendText("oMouseEvents_OnMouseMove" & vbCrLf)
  End Sub

---

Gruß

Rainer

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

---

Hallo Forum,

bin selbst schon auf der Spur.
Anscheinend vertragen sich die Events mit Textbox1.AppendText nicht.
Muß wohl doch so umfangreich wie im SDK gelöst werden.

Gruß

Rainer

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