De L'AIDE SVP de l'AIDE, URGENT

Voila, dans Word Pad dans le menu "insération" il y a "objet", une fenêtre s'ouvre, semblable à celle de "OLE", j'aimerais savoir quel est le control qui permet d'ouvrir cette fenêtre

SVP, c'est urgent
MErci d'avance à ceux qui me répondront.

@+
Rich@rd

Salut

Pour cet exemple il faut mettre sur ta feuille (Form1) un controle RichTextBox (RichTextBox1) un controle OLE (OLE1) et créer un menu "Insérer un objet" (mnuInsertObject)

Private Sub mnuInsertObject_Click()
Form1.OLE1.InsertObjDlg
If Form1.OLE1.OLEType = vbOLENone Then Exit Sub
If Form1.OLE1.OLEType = vbOLEEmbedded Then
Form1.RichTextBox1.OLEObjects.Add , , , Form1.OLE1.Class
Screen.MousePointer = vbDefault
ElseIf Form1.OLE1.OLEType = vbOLELinked Then
Form1.RichTextBox1.OLEObjects.Add , , Form1.OLE1.SourceDoc, OLE1.Class
End If
End Sub


Ca devrait normalement fonctionner

a+


-------------------------------
Réponse au message :
-------------------------------

Voila, dans Word Pad dans le menu "insération" il y a "objet", une fenêtre s'ouvre, semblable à celle de "OLE", j'aimerais savoir quel est le control qui permet d'ouvrir cette fenêtre

SVP, c'est urgent
MErci d'avance à ceux qui me répondront.

@+
Rich@rd

Le control est le controle OLE qui se situe sur la barre des composants standard. ( y a marqué OLE dessus, et se situe en general coté du controle image). Mets un de ce controle sur ta feuille.
Annule la boite qui s'affiche pour ne pas l'affecter à un type d'objet particulier.
Puis pour afficher la boite d'insertion au moment de l'execution. tu mets ce code dans un bouton par ex:
OLE1.InsertObjDlg
C tout!!!

@+

-------------------------------
Réponse au message :
-------------------------------

Voila, dans Word Pad dans le menu "insération" il y a "objet", une fenêtre s'ouvre, semblable à celle de "OLE", j'aimerais savoir quel est le control qui permet d'ouvrir cette fenêtre

SVP, c'est urgent
MErci d'avance à ceux qui me répondront.

@+
Rich@rd