Besoin d\'aide pour VBA

[TiTi94]

Bonjour tout le monde,

 

Je suis actuellement en stage dans une societe de developpement de logiciel de CAO et mon tuteur m'a donné comme projet de découvrir MicroStation en développant quelques application sur VBA. Jusqu'ici je m'en suis a peu près sorti mais la je bloque... :/

 

Je n'arrive pas a identifier l'évement du click de souris sur une des fenetres de vues ouvertes... (en gros l'évènement correspondant a PictureBox_MouseUp dans un projet VB)

 

Si quelqu'un pouvait m'aider, ce serai trés gentil.... :)

 

Merci d'avance...

 

Une apprenti dans le besoin ;)

[Nationale_7]

Bonjour,

 

la gestion des entrées dans MicroStation (clic droit gauche, keyboard...etc) se fait par l'implementation d'une classe :

 

Option Explicit

 

Implements IPrimitiveCommandEvents

Private npoint As Integer

 

Private Sub IPrimitiveCommandEvents_Cleanup()

 

End Sub

 

Private Sub IPrimitiveCommandEvents_DataPoint(Point As Point3d, ByVal view As view)

 

CommandState.StopDynamics

 

....

Programme sur DataPoint...

....

 

CommandState.StartDefaultCommand

 

 

End Sub

 

Private Sub IPrimitiveCommandEvents_Dynamics(Point As Point3d, ByVal view As view, ByVal DrawMode As MsdDrawingMode)

'method called to show dynamics

 

 

....

 

Programme sur mode Dynamique suit le mouvement du curseur...

 

...

End Sub

 

Private Sub IPrimitiveCommandEvents_Keyin(ByVal Keyin As String)

End Sub

 

Private Sub IPrimitiveCommandEvents_Reset()

' method called when the reset event occurs

 

' On reset, undisplay menu frame

CommandState.StopDynamics

 

End Sub

 

Private Sub IPrimitiveCommandEvents_Start()

Dim DrawMode As MsdDrawingMode

'method called at the start of the command

 

...Initialise la commande et eventuielement démarre le mode Dynamique

 

....

CommandState.StartDynamics

 

End Sub

 

Si tu m'en dis plus sur ce que tu veux faire je peux t'envoyer un exemple plus complet

D'autre part je te conseille de consulter le forum news.viecon.com/bentley.microstation.v8.vba,

c'est en anglais certes mais plein de renseignements.

 

N7

[TiTi94]

Merci beaucoup N7 :)

 

Je vais essayer l'exemple que tu m'a donné, je devrai pouvoir m'en sortir... :)

 

Sinon je te recontacterais !!! : ;)