Chargement d\'un *.mnu sous VB6

[dr.loveless]

Bonjour, je cherche le moyen de charger un menu à partir d'un programme fais sous visual basic 6, et non sous VBA.

 

Si qq à une idée, je suis preneur.

 

Merci.

 

Le code à l'heure actuelle :

 

Public Sub Command1_Click()

 

On Error Resume Next

 

' Connect to the AutoCAD application

Dim acadApp As Object

Dim groupe As Object

Set acadApp = GetObject _

(, "AutoCAD.Application.16")

If Err Then

Err.Clear

Set acadApp = CreateObject _

("AutoCAD.Application.16")

If Err Then

MsgBox Err.Description

Exit Sub

End If

End If

 

' Connect to the AutoCAD drawing

Dim acadDoc As Object

Set acadDoc = acadApp.Thisdrawing

acadApp.Visible = true

 

Set groupe = acadDoc.AcadMenuGroups.Load ("A:\monfinchier.mnu")

 

 

Me.Hide

 

End Sub

[dr.loveless]

OK, voilà la solution

 

 

acadDoc.sendcommand "filedia" & vbCr & "0" & vbCr ' désactive les boites de dialogues

acadDoc.sendcommand "_menuload" & vbCr & "a:\mecanobloc.mnu" & vbCr 'charge le menu

acadDoc.sendcommand "filedia" & vbCr & "1" & vbCr ' active les boites de dialogues

 

 

Par contre le messages liés au chargement des mnu s'affichent toujours et je voudrais bien qu'on ne le voit plus et que la réponse soit systématiquement "oui", mais ce n'est pas indispensable.

 

 

A ce propos je pense réalisé un tutorial de A à Z concernant la création de menu, le chargement des lisp s'y attachat et des icones, et l'installation du groupe de menus crée.

 

J'essayerai de faire çà dans le week end.

 

 

A plus