Discussion :

[Revelc]

Bonjour ,

Je voudrai créer une picture box avec une couleur de transparence , ou bien une picture box sans le BackColor ( Ca reviens au meme ) . Apres plusieur recherche , j'ai trouvé quelque réponce mais je ne comprennez pas ( sur CodeSSources VB par exemple ) . Donc si une personne aurez la gentillesse de bien m'expliqué en détail comment rendre une picture box transparente .

J'ai créer une PictureBox , j'ai inserer un gif ( le gif est transparent mais il reste toujours le background ) .

Merci de me repondre

Cordialement Revelc .


PS : Je viens tout juste de commencer dans le VB ,donc je vous en supplie , dites moi ou je dois mettre chaque ligne de code et détaillé moi chaque manipulation a faire , merci

[ucfoutu]

Bonjour,

- Insérer une image contenant une transparence sur une picturebox ne rend bien évidemment pas transparente la partie de cette dernière recouverte par la partie transparente de l'image.
- donner à une picturebox une translucidité est réalisable, mais il ne s'agira que de celà et non de transparence réelle
- faire une picturebox dont le fond serait réellement transparent et, du coup, la limiter au seul dessin (région) qu'elle contient est réalisable (mais complexe) et la picturebox résultante ne pourra alors plus valablement servir de conteneur (seule la région résultante le pourrait) ni subir certaines modifications (seuls son backcolor et son forecolor pourraient alors être modifiés... et - une autre fois - seule la région résultante subirait ces modifications)

J'ignore totalement ce que tu cherches à faire exactement et ne peux donc te conseiller de subterfuges, qui existent dans certains cas de figure (selon le cas)....
Si, par exemple, ta picturebox ne doit pas être déplacée et que tu souhaites que des objets soient déplacés en son intérieur (y compris des images transparentes), tout en "voyant" un dessin 'fond de ta form) qui se trouverait derrière la picturebox, une solution existe bien (elle consiste à donner à ta picturebox une image de fond correspondant à la partie qu'elle recouvre de l'image de fond de la Form)... Un exemple de cette possibilité est présent sur ce forum.

[Revelc]

Regardez ce screen :

http://revelcworld.free.fr/screen/Capture03.jpg

Tout ce que je veux faire , c'est retiré la couleur de fond du picturebox car comme vous le voyez , ça gâche toute l'interface de jeu que j'ai codé .


PS : Je suis le dirigeant d'un MMORPG Amateur et Francophone sur les mangas et j'ai besoin de votre aide pour résoudre ce problème de transparence

Cordialement , Revelc

[ucfoutu]

Ton image seule ne sous apprend rien ...

Je suppose que tu te plains de ce que tu as là où il avait un arbre (au premier plan) ?
Mais nous ne savons pas si les arbres doivent également être déplacés ... ni s'il y en avait un qui doit être invisible à un moment,

bref ... tout le mécanisme ...

Les choses ont toujours des mots pour être exprimées... et les expressions techniques détaillées valent mieux que tous les dessins du monde ... (à condition qu'elles soient claires et précises... ce qu'est de son côté tout développement ...).

[Revelc]

Pour faire claire , je voudrai juste mettre le BackColor transparent . C'est tout ce qu'il me faut car ca ressoudra tout mes problemes

[ucfoutu]

ceci n'étant pas possible (du moins comme tu l'entends et si ta picturebox te doit pas se résumer à une région, donc cesser d'être un conteneur valable) - voir ce que j'ai écrit plus haut - il va te falloir rechercher une autre solution.
Je t'y aiderai, mais pas à l'aveuglette ...(en fonction de TES précisions)
A toi de réfléchir, donc ...

[Revelc]

Serai-t-il possible de definir une couleur de transparence à l'image ( en tenant compte que mon image est un gif ) .

[ProgElecT]

Regardes dans mes contributions (signature en pas de ce post), ligne MovAfiTransp.zip : Image, couleur transparente, DragDrop affichage durant déplacement, tu y trouveras un OCX qui permet la transparence d'UNE couleur de ton choix.
Par contre a moins de charger les sources de l'OCX, cela ne t'apprendra pas la façon de faire pour rendre une couleur transparente dans un Form ou un PïctureBox.

[ucfoutu]

Serai-t-il possible de definir une couleur de transparence à l'image ( en tenant compte que mon image est un gif ) .

A un contrôle image ?
Sans aucun doute.... et de la façon la plus simple ... et ainsi sera parfaitement visible le fond recouvert (ce sera toutefois bien évidemment celui du conteneur qui la contient).
Mais tu nous parlais non pas de contrôle image, mais de PictureBox !!!
Et là : c'est également possible (de manière plus complexe) en travaillant sur la région... mais en perdant la qualité de conteneur valable (relis moi donc).

Je ne reviendrai que lorsque tu seras prêt à participer à la recherche de la solution adaptée à ton cas de figure en donnant les précisions demandées (il y a presque toujours une solution, encore faut-t-il savoir à quoi et ne pas se contenter de dire : "voilà le résultat que je souhaite"... sans savoir ce qu'il y a derrière...)...

A + donc, peut-être ...

[Revelc]

J'ai trouver une code source , apparement il devrait marcher ( des codeurs l'on deja tester ) ; voila le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'Exemple d'utilisation :
 
'on charge limage
PictureXX.Picture = LoadPicture("nomDeLimage.bmp")
'Le magenta devient transparent
beTransparent PictureXX
 
'Qd la couleur n'est pas spécifiée en deuxieme argument, cest le magenta qui est rendu transparent codecouleur:FF00FF

Mais des que je compile pour tester , on me met une erreur de compilation.

Voici mon Form_Load ou j'ai mis ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Private Sub Form_Load()
 
'Exemple d'utilisation :
 
'on charge limage
Picture22.Picture = LoadPicture("\Themes\Brise matinale\Jeu\menu.gif")
'Le magenta devient transparent
beTransparent Picture22
 
'Qd la couleur n'est pas spécifiée en deuxieme argument, cest le magenta qui est rendu transparent codecouleur:FF00FF
 
Dim i As Long
Dim Ending As String
 
    For i = 1 To 4
        If i = 1 Then Ending = ".gif"
        If i = 2 Then Ending = ".jpg"
        If i = 3 Then Ending = ".png"
        If i = 4 Then Ending = ".bmp"
 
        If FileExiste(Rep_Theme & "\Jeu\Text" & Ending) Then txtQ.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\text" & Ending)
        If FileExiste(Rep_Theme & "\info" & Ending) Then frmMirage.Picture = LoadPNG(App.Path & Rep_Theme & "\info" & Ending)
        If FileExiste(Rep_Theme & "\Jeu\Info" & Ending) Then Image1.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\Info" & Ending)
        If FileExiste(Rep_Theme & "\Jeu\inventaire" & Ending) Then Image3.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\inventaire" & Ending)
        If FileExiste(Rep_Theme & "\Jeu\menu" & Ending) Then Image2.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\menu" & Ending)
        If FileExiste(Rep_Theme & "\Jeu\Carte" & Ending) Then imgcarte.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\Carte" & Ending)
    Next i
 
    twippy = Screen.TwipsPerPixelY
    twippx = Screen.TwipsPerPixelX
    svie.FillColor = RGB(208, 11, 0)
    smana.FillColor = RGB(208, 11, 0)
 
    'If frmMainMenu.chk_fullscreen.value = Checked Then
        'If (Screen.Height / Screen.TwipsPerPixelY) >= 758 Then txtMyTextBox.Top = 567
        'frmMirage.Height = Screen.Height / Screen.TwipsPerPixelY
        'frmMirage.Width = Screen.Width / Screen.TwipsPerPixelX
        'picScreen.Height = Screen.Height / Screen.TwipsPerPixelY
        'picScreen.Width = Screen.Width / Screen.TwipsPerPixelX
    'End If
 
    monnom(0).Font = ReadINI("POLICE", "Police", (App.Path & "\Config\Ecriture.ini"))
    monnom(0).FontSize = ReadINI("POLICE", "PoliceSize", (App.Path & "\Config\Ecriture.ini"))
    maclasse(0).Font = ReadINI("POLICE", "Police", (App.Path & "\Config\Ecriture.ini"))
    maclasse(0).FontSize = ReadINI("POLICE", "PoliceSize", (App.Path & "\Config\Ecriture.ini"))
    txtMyTextBox.Font = ReadINI("POLICE", "PoliceChat", (App.Path & "\Config\Ecriture.ini"))
 
    fra_info.Visible = False
    fra_menu.Visible = False
    fra_fenetre.Visible = False
End Sub

Croyais moi , j'ai fais beaucoup de recherche ( depuis 2 jour que cela dure ) , voici les resultats que j'ai trouver :



Mais a chaque fois , on me balance un code source et je ne sais pas ou le mettre .

Up

[SfJ5Rpw8]

Qu'elle est l'erreur ..?
elle est où ta fonction beTransparent ?