Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor .NET
  Probleme mit MouseEvents

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   Probleme mit MouseEvents (1016 mal gelesen)
Speedy.X
Mitglied
Dipl.Ing.


Sehen Sie sich das Profil von Speedy.X an!   Senden Sie eine Private Message an Speedy.X  Schreiben Sie einen Gästebucheintrag für Speedy.X

Beiträge: 45
Registriert: 17.05.2005

erstellt am: 15. Feb. 2008 09:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Speedy.X
Mitglied
Dipl.Ing.


Sehen Sie sich das Profil von Speedy.X an!   Senden Sie eine Private Message an Speedy.X  Schreiben Sie einen Gästebucheintrag für Speedy.X

Beiträge: 45
Registriert: 17.05.2005

erstellt am: 19. Feb. 2008 08:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz