Texte pas dans une textbox Résolu

Question

Salut,
Alors je vous explique mon problème, J'ai une image comme background et je souhaiterais que mon texte apparaissent sur l'image sans la zone blanche et que l'on puisse voire entre les lettre l'image !

Merci d'avance !

mdevaux62 · Accepted Answer

Oops !
J'avais pris pour tester une image dans "MesDocuments".
Le bon code est donc celui-là :

Public Class Form2

    Private imageDeFond As New Bitmap("image01.jpg")    
    'L'image doit se trouver pour l'exemple dans le dossier de l'exécutable 
    'mais on pourrait aussi la mettre en ressources

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '
    End Sub

    Private Sub Form2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim maFonte As New Font("Microsoft Sans Serif", 12, FontStyle.Bold)
        'Dessiner l'image
        e.Graphics.DrawImage(imageDeFond, 0, 0, imageDeFond.Width, imageDeFond.Height)
        'Dessiner le texte "Coucou", avec maFonte, en noir, à la position (10,100)
        e.Graphics.DrawString("Coucou", maFonte, Brushes.Black, 10, 100)
    End Sub

End Class

raffika · Answer

Salut, apparemment il n'y a pas de
propriété BackgroundImage sur les TextBox
& RichTextBox (je me demandais si c'était
disponible dans les versions Pro de Visual Basic .net ...)
Alors ce qui est possible c'est d'utiliser
un évenement KeyPress pour dessiner sur l'image
donc avec un code comme ceci :
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

Dim g As Graphics = PictureBox1.CreateGraphics
g.DrawString(e.KeyChar, Me.Font, Brushes.Black, 1, 1)
g.DrawString(e.KeyChar, Me.Font, Brushes.White, 2, 2)

End Sub
Après, à toi de programmer pour obtenir ce que tu
souhaite faire Bonne prog

raffika · Answer

PS : J'ai oublié de commenter les lignes :
g.DrawString(e.KeyChar, Me.Font, Brushes.Black, 1, 1)
'' 1er argument : la touche du clavier pressée
'' 2ème : la police de caractère à utiliser
'' 3ème : la couleur
'' 4ème et 5ème :  les coordonnées en pixels
''  du coin supérieur gauche de la lettre à dessiner

angelblood · Answer

Merci de ta réponse mais j'ai oublié de préciser que le texte est fixe il ne changeras pas !
(Je vais essayer et merci beaucoup)

raffika · Answer

Bah dans ce cas là tu peux faire :
g.DrawString("Le texte", Me.Font, Brushes.Black, 1, 1) 
Salut

angelblood · Answer

Merci mais je le place ou ? ^^
Car il ne fait référence a aucune label !

Merci de tes réponse rapide.

raffika · Answer

Sur une PictureBox, sinon si tu veux le placer
la Form remplace la ligne
Dim g As Graphics = PictureBox1.CreateGraphics
par
Dim g As Graphics = Me.CreateGraphics
Donc pour dessiner sur la Form au lieu d'une PictureBox1
Ensuite pour placer le texte à la bonne position
tu devra spécifier la position en pixels :
g.DrawString("Le texte à dessiner", Me.Font, Brushes.Black, 10, 20)
Donc dans cette ligne le texte est dessiné à la
position 10;20 ce qui signifie que le coin supérieur gauche
de Le texte à dessiner sera positionné à 10 pixels de 
la bordure gauche de la form ou de la picturebox 
et à 20 pixels de la bordure en haut de la form ou de la picturebox
Voilà, si tu as d'autres questions ...
Bonne soirée

angelblood · Answer

Merci je te dit si sa marche demain !

angelblood · Answer

Salut, J'ai essayer je ne crois pas que sa marche regarde mon code :

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim g As Graphics = PictureBox8.CreateGraphics
        g.DrawString("sssssssssssssss", Me.Font, Brushes.Black, 2, 2)
        End sub

Merci

raffika · Answer

Ca devrai marcher...
Normalement sssssssssssssss de couleur noir devrais
être dessinée sur le PictureBox8 dans le coin 
supérieur gauche, à 2;2 pixels...
Le problème vient soit du fond de la PictureBox8
qui, si il est noir on ne verrais rien,
ou soit la lettre dessinée est trop petite
et ne se vois pas, donc regarder le 2ème argument, Me.font
qui renvoie la propriété Font de la Form (Me),
agrandir un peu la taille de la police de caractères
de cette Form, je ne connais pas trop l'utilisation des
Font c'est pour ça que dans mon exemple, j'ai choisis
une Font déjà existante, celle de la Form (Me).
Sinon si malgré tout ça ça ne fonctionne pas,
l'image dans le PictureBox8 est dans la propriété
BackGroundImage ou Image ?
Salut

angelblood · Answer

J'ai essayer avec BackGroundImage et Image sa ne fonctionne pas avec les 2

mdevaux62 · Answer

Vire le Background et utilise l'évènement Paint.
Comme ça :

Public Class Form2

    'Private imageDeFond As New Bitmap("image01.jpg")
    Private imageDeFond As New Bitmap(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\image01.jpg")
    'L'image doit se trouver pour l'exemple dans le dossier de l'exécutable 
    'mais on pourrait aussi la mettre en ressources

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '
    End Sub

    Private Sub Form2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim maFonte As New Font("Microsoft Sans Serif", 12, FontStyle.Bold)
        'Dessiner l'image
        e.Graphics.DrawImage(imageDeFond, 0, 0, imageDeFond.Width, imageDeFond.Height)
        'Dessiner le texte "Coucou", avec maFonte, en noir, à la position (10,100)
        e.Graphics.DrawString("Coucou", maFonte, Brushes.Black, 10, 100)
    End Sub

End Class

angelblood · Answer

Merci sa marche  et juste comment je change la police et la taille !

Merci beaucoup a vous deux !

angelblood · Answer

Et dernière parenthèse que j'ai oublié : Si je change le .exe d'endroit l'image sera toujours trouver ?

angelblood · Answer

Oups encore oublié de demander (Tkt c'est la derniere ) : On peut mettre des lien dedans ?

raffika · Answer

Non, quand tu déclare :
Private imageDeFond As New Bitmap("image01.jpg")
ça sous-entends que c'est le fichier image01.jpg
qui se trouve dans le dossier de l'exe.
Si tu veux mettre une image incluse au projet,
je t'ai déjà expliqué, propriétés du projet puis
onglet Ressources là tu ajoute une image puis tu l'utilise comme ceci :
Private imageDeFond As Bitmap = My.Resources.nom_du_fichier
par exemple, salutations.

angelblood · Answer

Merci beaucoup

mdevaux62 · Answer

Pour la police, tu la changes comme ceci :

 Dim maFonte As New Font("Microsoft Sans Serif", 12, FontStyle.Bold)


Nom de la police : Microsoft sans Serif
Taille : 12 points
Style : ici en gras FontStyle.Bold, normal FontStyle.Regular

Pour l'image le mieux est de la stocker en ressources :
1) Tu cliques le menu "Projet" et sélectionnes "Propriétés de l'application"
2) Tu cliques l'onglet "Ressources" puis "Ajouter une ressource" et sélectionnes "Ajouter un ficher existant".
3) Tu sélectionnes ton image et elle s'ajoute au projet (elle sera intégrée à l'application).
4) Il ne te reste plus qu'à modifier la ligne affichant l'image de cette façon :

e.Graphics.DrawImage(My.Resources.Image01, 0, 0, imageDeFond.Width, imageDeFond.Height)

raffika · Answer

Ha et pour ajouter un lien c'est possible,
alors dans ce cas il faudrait gérer ça dans l'évenement
MouseDown ou tu peux récupérerla position de la souris
avec 'e' , comme ceci si tu veux voir ce que ça donnes,
met cette ligne dans l'évenement MouseDown de ta PictureBox :
MsgBox("Position = " & e.X & ";" & e.Y)
donc toujours en pixels, salut.

mdevaux62 · Answer

Post scriptum :
Tu peux aussi afficher le texte dans un rectangle sur plusieurs lignes :
e.Graphics.DrawString("Coucou" & vbCrLf & "les amis !", maFonte, Brushes.Black, New Rectangle(10, 100, 200, 50))


Post scriptum number 2 :
Plus on ajoute de choses dans les ressources et plus la compilation du programme est longue. C'est bon à savoir...

angelblood · Answer

Merci a tous pour vos solutions et vos conseils

angelblood · Answer

Je suis désolé mais j'arrive pas a mettre le lien enfaite 
Comment faire ?

Merci beaucoup

raffika · Answer

Alors , dans ce que je t'ai expliqué, il
s'agit d'une méthode qui détermine l'emplacement
de la souris (donc censée être sur une image
avec un texte écrit dessus supposé être un lien)
et donc il faut connaitre l'emplacement en pixels
de ce lien sur l'image. Donc avec e.X et e.Y
qui renvoie la position de la souris sur le
Picturebox. Après, l'instruction pour faire 
un lien, je l'ai, mais quel genre de lien
veux tu faire (lien vers un site internet..?) ?
Voilà, il existe peut être d'autres méthodes
mais je ne vois que celle là.
@+

angelblood · Answer

Ouai un lien vers un site internet !

Merci

raffika · Answer

System.Diagnostics.Process.Start("www.google.com")
par exemple, bonne prog Salut

angelblood · Answer

Merci mais comment faire pour savoir si il click sur mon texte ?

raffika · Answer

Quand tu cliques sur la PictureBox,
l'évenement Click et MouseDown est déclanché.
Dans le click, on ne peux pas récupérer la
position de la souris, donc on peux gérer ça
dans l'évenement MouseDown (et donc récupérer
la position de la souris avec 'e' donc
positition X =e.X et Y=e.Y comme je te l'ai 
déjà expliqué). Donc c'est dans l'évenement
MouseDown que tu dois créer un code.
Sinon, si tu n'as qu'un seul lien dans la
même image,c'est beaucoup plus simple : tu peux tout simplement mettre
le System.Diagnostic.Process.Start dans l'évenement Click
donc sans besoin de connaitre la position de la souris.

angelblood · Answer

C'est bon j'ai compris mais comment crée un carré ou toute les position dedans ouvre le lien car un seul pixel comme position c'est dur a trouver xD

raffika · Answer

Alors, par exemple : if e.X >= 0 AND e.Y <= 30 then ''lien n°1 end if if e.X >= 0 AND e.Y <= 60 AND e.Y > 30 then ''lien n°2 end if if e.X >= 0 AND e.Y <= 90 AND e.Y > 60 then ''lien n°3 end if if e.X >= 0 AND e.Y <= 120 AND e.Y > 90 then ''lien n°4 System.Diagnostics.Process.Start("www.ramon.evoserv.net") end if if e.X >= 0 AND e.Y <= 150 AND e.Y > 120 then ''lien n°5 System.Diagnostics.Process.Start("www.google.com") end if '' etc. Donc, dans cet exemple, les liens sont des blocs de 30 pixels de hauteur (axe Y) , donc par exemple pour le dernier If dans mon exemple, traduire par : Si la position Y (verticale) de la souris est comprise entre 150 et 120 pixels, alors lancer 'www.google.com' Voilà

angelblood · Answer

Merci je teste sa et jte dit

angelblood · Answer

Merci a vous sa marche nickel

seb4stien13 · Answer

Mais en faite ton problème c'était juste le backcolor qu'il fallait mettre sur transparent et c'est tous .

Texte pas dans une textbox

32 réponses

Votre réponse

Discussions similaires