Discussion :

[djmcg]

Bonjour ou Bonsoir,
je souhaite garder un label transparent.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  Private Sub formAcceuil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    '** Met en transparence lblComptaGM
    lblComptaGM.BackColor = System.Drawing.Color.Transparent
 
    '** Met les controles de la form a Visible
    For Each Ctrl In Controls
      Ctrl.Visible = True
    Next
 
 End Sub

J'ai aussi un timer qui fait en sorte que la couleur de mes carrés s'alternent.
Au premier tours le label est effectivement transparent, mais les tours suivant pas. Donc comment garder la transparence du label.
Merci pour votre aide et conseils.

[djmcg]

Bonjour,

Voilà une solution.

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
  Private Sub mntCarre_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnt_Carre.Tick
 
    Dim NomObjet As String
 
    For Each Ctrl In Controls
 
      NomObjet = Mid(Ctrl.Name, 1, 10)
 
      If NomObjet = "PictureBox" Then
        If Ctrl.BackColor.Equals(MonOrange) Then
          Ctrl.BackColor = MonBleu
        Else
          Ctrl.BackColor = MonOrange
        End If
      End If
 
      NomObjet = ""
 
    Next
 
  End Sub

Si vous avez d'autres question ou avis passer moi un mot.
Merci.

[troxsa]

Bonjour,

Voilà une solution.

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
  Private Sub mntCarre_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnt_Carre.Tick
 
    Dim NomObjet As String
 
    For Each Ctrl In Controls
 
      NomObjet = Mid(Ctrl.Name, 1, 10)
 
      If NomObjet = "PictureBox" Then
        If Ctrl.BackColor.Equals(MonOrange) Then
          Ctrl.BackColor = MonBleu
        Else
          Ctrl.BackColor = MonOrange
        End If
      End If
 
      NomObjet = ""
 
    Next
 
  End Sub

Si vous avez d'autres question ou avis passer moi un mot.
Merci.

Moi je trouve que ça n'a rien a voir avec le sujet !
tu parle de label transparent or ton code que tu presente n'as rien a voir

un label peut etre visible ou invisible mais il ne peu pas etre transparent car la propriete n'existe pas ! a mon de dev ta class !

ton code n'a rien a voir avec une transparence !
ton Mid c'est pour rechercher une chaine et la remplacer !
exemple :

Code :

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

1
2
Dim Ma_String As String = "The dog jumps"   ' Initializes string.
Mid(Ma_String, 5, 3) = "fox"   ' Ma_String = "The fox jumps".

et le reste tu fais des traitements de couleurs je vois pas du tout ou est la transparence, moi je souhaiterais bien d'autre explications car je suis loin d'etre une perle dans le vb

merci d'avance

[djmcg]

effectivement, j'ai été un peux vite en besogne. je donnerais plus de détail jeudi, voir samedi soir. Désolé, mais mon travail au bureau est très exigent pour l'instant alors je suis pas longtemp a la maison. Mais promis, je donnerais toutes l'explication et en plus je confirme qu'un label transparent est possible.
A bientot avec explication et détail de code.
Merci de patienter.

[troxsa]

pas de probleme je suis patient

[djmcg]

Bonjour,
Voici la solution du label transparent et le reste.
En fait, le problème à la base :
1) faire inverser la couleur des picture box
2) garder deux labels transparents.

avant d'avoir trouver la solution, tous les objet de la fenêtre changaient de couleur et bien sûr les labels ne restait pas transparent.

DONC :
1) rendre les labels transparent. (ces deux lignes sont placé dans le form_load.

Code :

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

1
2
lblComptaGM.BackColor = System.Drawing.Color.Transparent
lblCodeAcces.BackColor = System.Drawing.Color.Transparent

2) changer les picturebox de couleurs (donc inversé entre deux couleurs)
ce code est placer dans minuterie_tick

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim NomObjet As String
 
    For Each Ctrl In Controls
      NomObjet = Mid(Ctrl.Name, 1, 10)
      If NomObjet = "PictureBox" Then
        If Ctrl.BackColor.Equals(MonOrange) Then
          Ctrl.BackColor = MonBleu
        Else
          Ctrl.BackColor = MonOrange
        End If
      End If
 
      NomObjet = ""
    Next

3) faut'il précidé que les couleurs sont initialisées avant la form load. (mais dans le code de la form.) comme suit :

Code :

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

1
2
3
Dim MonOrange As Color = Color.FromArgb(253, 109, 109)
Dim MonBleu As Color = Color.FromArgb(1, 254, 254)
Dim Ctrl As Control

4) la dernière ligne de dim va servir à rendre tous les objets visible.

Code :

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

1
2
3
For Each Ctrl In Controls
      Ctrl.Visible = True
Next

J'utilise se system de visible=true ou false, parce que j'ai d'autres objet à affiché suivant le choix de l'utilisateur. Je n'ai pas encore très bien compris l'utilité et/ou quand il est utile d'ouvrir une nouvelles fenêtre. Question que je pose d'ailleur. Quelle sont les critères pour utiliser une nouvelles fenêtre dans un programme.

Comme il est poli de rendre à césar ce qui est a césar et il voudras bien m'excuser parce que je n'ai pas pris le temps de relever les noms de ceux qui donne les réponses.
Remerciement à dévelloppez.com pour la possibilité de trouver la documentation. l'Initialisation des couleurs m'a été appris par un participant de developpez.com et aussi d'autres détail qui m'on permit de faire ceci. J'utilise aussi le livre que j'ai acheter mais dont 3 ou 4 chapitres sont livré avec vb.net.
Voila j'espère que cela aideras les débutant comme moi et encore merci. Je m'en vais continuer mon programme. Il est loin d'être terminé.

[troxsa]

merci beaucoup pour les explications

c'est simpa de ta part d'avoir penser a ça @+

[DotNET74]

Heu...

Il me semble que dans la propriété BackgroundColor et dans l'onglet Web tout en haut de la liste il y a transparent.....

Cela ne vous convient pas ?

[djmcg]

Bonjour ou bonsoir,

je suppose que vous voulez dire BackColor ?
je ne l'avais pas vu.
merci pour l'info.
probablement plus simple à utiliser.
bon je vais tester.
MERCI

Bon dimanche a tous.

[djmcg]

Heureusement que le ridicule ne tue pas.
Mais je suis là aussi pour apprendre.
la propriété transparent existe bien et fonctionne a merveille.
Merci a DotNet74.