textbox transparent

Question

Salut TLM

Dans mon application j'ai ajouter la dll FM20.DLL pour benificier du textbox transparent, mais quand je veut ajouter un textbox j'ai une erreur (erreur system &h8007007e le modul... ) j'ai deja essayer cette soluce regsvr32.exe c:\Windows\System32\mscomctl.ocx mais ca na rien donner, j'ai aussi telecharger vbrun60sp5.exe puis executer encore une fois c:\Windows\System32\mscomctl.ocx mais toujours rien

mon but est d'imprimer le text contenu dans un textbox sur une image, car avec le textbox normal de vb le textbox s'imprime entier comme ont le voi sur l'application.

si vous avez une idee pour cette erreur ( erreur system &h8007007e le modul... ) ou me donner une solution pour imprimer mon text a n'importe qu'elle couleur sans le fond du textbox.

je vous remerci d'avance

Sandrine

Renfield · Answer

il ne faut pas utiliser une TextBox pour cela....
la methode print de l'objet PictureBox le permet assez facilement :

FreeGamer a depose une source qui montre comment faire....

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

cs_sandrine77 · Answer

Merci Pour Ta reponce

Le probleme et que moi jutilise un commandbutton et un controle image et un textbox - un picturebox
ya t'il une possibliter d'imprimer un text contenue dans un 'textbox mais ssan le fond

Private Sub Command1_Click()
 Picture2.Picture = Image1.Picture
 'montre ce qu'il ya dans l'image1 dans le picture1
 'comme ca si le controle image est vide  en imprime l'image
'du picture1, car
 'le picture lui meme contient une image avec
 'un texte ecrie dessu ex: aucune image n'a ete selectionner

  Picture1.ScaleMode = vbCentimeters
   Picture1.AutoSize = True
     Picture1.Refresh
         Picture1.AutoSize = False
             ImageLeft = 4.1
           ImageTop = 2.1
         imageheight = 12.1
        imagewidth = 12.1
    Printer.ScaleMode = vbCentimeters
Printer.PaintPicture Picture1.Picture, ImageLeft, ImageTop, imageheight, imagewidth
    ''''impression du texte''''''
    Printer.ForeColor = &HFFFF&
    Printer.FontSize = 10
        Printer.CurrentX = 5
            Printer.CurrentY = 5
        Printer.Print Text1.Text
    Printer.EndDoc
End Sub

Merci

Renfield · Answer

il te suffit d'enlever :

Printer.PaintPicture Picture1.Picture, ImageLeft, ImageTop, imageheight, imagewidth

et tu n'aura pas d'image de fond....

au pire, 

If Picture1.Image Is Nothing Then
   Il n'y a pas d'image dans le controle...
Endif

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

cs_sandrine77 · Answer

Cool

Merci BC

Textbox transparent

4 réponses

Discussions similaires