Sujet Précédent Sujet Suivant

De L'AIDE SVP de l'AIDE, URGENT

Ricpperso Messages postés 236 Date d'inscription jeudi 24 janvier 2002 Statut Membre Dernière intervention 26 octobre 2004 - 9 févr. 2002 à 10:33
PatriceVB Messages postés 562 Date d'inscription dimanche 16 décembre 2001 Statut Modérateur Dernière intervention 26 décembre 2007 - 9 févr. 2002 à 12:34
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

2 réponses

Réponse 1 / 2
ZTPdiffusion Messages postés 46 Date d'inscription lundi 16 avril 2001 Statut Membre Dernière intervention 7 mars 2002
9 févr. 2002 à 12:31
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+
0
Réponse 2 / 2
PatriceVB Messages postés 562 Date d'inscription dimanche 16 décembre 2001 Statut Modérateur Dernière intervention 26 décembre 2007
9 févr. 2002 à 12:34
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!!!

@+
0
Rejoignez-nous