checkbox et fond transparent [Trucs & Astuces]

**startout** · 09/08/2006, 11h00

Bonjour,

Je souhaite que mes checkbox s'intègre parfaitement sur le fond de ma form mais je n'ai pas trouvé d'équivalent de la méthode backstyle (transparent) du label pour le transposer au checkbox.
J'ai fait une recherche sur le forum et je n'ai rien trouvé non plus.
Peut-être que cela n'existe pas.
Pouvez-vous me le confirmer ou me l'infirmer ?
Merci.

**Asdorve** · 09/08/2006, 11h02

salut

il me semble que pour les checkbox il faut mettre la propriété BackColor de la même couleur que le backcolor de la form pour les avoir toutes les deux de la même couleur.

A vérifier.

**startout** · 09/08/2006, 11h13

Il existe effectivement la propriété BackColor sur le checkbox.
Le hic c'est que sur ma form, j'ai intégré une image et je n'utilise pas la propriété backcolor de la form.

**Asdorve** · 09/08/2006, 11h15

d'accord, donc en fait tu veux que le backColor de ton checkbox ce soit la zone de l'image qui est en dessous, c'est bien ça?

**startout** · 09/08/2006, 11h17

Oui c'est bien ça.
Mais je ne suis pas sûr que cela soit possible....

**Asdorve** · 09/08/2006, 11h18

ça serait compliqué je pense. Qu'on m'arrête si je dis des bêtises

**Asdorve** · 09/08/2006, 11h50

j'étais en train de regarder un truc:
mettre sur une form
-une pictureBox "Picture1" (Visible = False)
-Affecter une image à Picture de Form
-Mettre plusieurs CheckBox répartis sur l'image de la form avec leur propriété Style à "Graphical".

+ le code suivant :

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
 
Dim controles As Control
 
Private Sub Form_Load()
 
For Each controles In Me
    Transparence
 Next
 
End Sub
Private Sub Transparence()
  Picture1.AutoSize = True
    Picture1.Cls
    Picture1.AutoRedraw = True
 
    Picture1.PaintPicture Form1.Picture, 0, 0, Picture1.Width, Picture1.Height, controles.Left, controles.Top, _
    controles.Width , controles.Height 
 
    Picture1.AutoRedraw = False
 
    Picture1.Picture = Picture1.Image
 
   controles.Picture = Picture1.Picture
 
End Sub

c'est pas super nickel, mais c'est dans l'idée.
Qu'en pensez-vous?

**jmfmarques** · 09/08/2006, 12h03

Ce n'est en effet pas super nickel ...

Alors : si notre ami tient vraiment à alourdir son application avec ce gadget, voilà ce qu'il suffit de faire :

1) réduire les checkbox à leur taille minimum (juste la petite case à cocher, bien que le texte soit dans la propriété caption)
2) cas des checkboxes sur la Form
- utiliser la méthode print pour imprimer directement sur la form, au bon endoit, le texte qui figure à la propriété caption de la checkbox (juste un petit calcul élémentaire à faire pour déterminer la position de l'impression ... et utiliser l'objet font .... tout celà dans l'aide en ligne)
3) si les checkboxes se trouvent dans une picturebox :
- voir à la rubrique "vos contributions" comment assurer la transparence de la picturebox
-faire les mêmes opérations que celle décrites en 2), mais en imprimant dans la picturebox

Tout celà étant parfaitement et facilement réalisable en se cassant un tout petit peu la tête.... (mais quand on veut, on veut ... et on peut... et notre ami ne devrait normalement pas rencontrer de difficultés...)

**Asdorve** · 09/08/2006, 13h00

Oui, mais supposons qu'il ai 50 checkbox, il faut donc qu'il fasse 50 fois "Print", non?

alors que là il allége le code, il faut simplement perfectionner mon code.

Qu'est-ce que ça te fait comme affichage?

**startout** · 09/08/2006, 13h09

Merci pour vos réponses.
Je regarde cela de suite et vous tiens au courant.

A tout de suite.

**startout** · 09/08/2006, 13h39

Code :

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

1
2
    Picture1.PaintPicture Form1.Picture, 0, 0, Picture1.Width, Picture1.Height, controles.Left, controles.Top, _
    controles.Width , controles.Height

Je viens de tester et cela ne fonctionne pas (ou plutôt je n'y arrive pas, chut

)

Je vais faire ce qu'as dit notre ami jmfmarques. Réduire au max mes checkbox...

Je mets le post en résolu.
Merci à vous deux.

**jmfmarques** · 09/08/2006, 14h44

Oui, mais supposons qu'il ai 50 checkbox, il faut donc qu'il fasse 50 fois "Print", non?

pas réveillé, hein, asdorve ... (il est pourtant tard...)

utilisation d'une procédure à laquelle tu envoies comme paramètre (uniquement) le contrôle checkbox.

Si tu accompagnes de plus le tout d'un groupe de contrôles indéxés : BINGO !

**Asdorve** · 09/08/2006, 14h49

+1

Comme tu dis: "Si tu accompagnes de plus le tout d'un groupe de contrôles indéxés : BINGO !".

Mais notre ami y-a-t-il pensé?
Allez, admettons, il vient de finir tout un gros projet dans lequel il utilise... hum!, allez, soyons fou, 46checkbox non indexés, avec des noms différents.
Que fait-il: il réindexe tout (ce qui implique de changer beaucoup de choses dans le code) , avec les risques d'erreurs que ça implique.

Mais évidemment, je vais me plier à ta sagesse, sachant qu'à un moment ou l'autre, c'est moi qui vais me faire avoir.

**jmfmarques** · 09/08/2006, 14h56

Tu vas de faire avoir de suite, ami asdorve.... de suite ...

On reprend ce que tu as écrit toi-même (boucle sur les contrôles) et.... devine quoi .... chaque fois qu'on trouve un contrôle de type checkbox, on envoie ce contrôle comme argument de la procédure (celle-ci devra alors simplement : réduire le contrôle à sa largeur minimum, relever sa propriété caption, relever ses coordonnées, calculer les coordonnées d'affichage... et imprimer là où il faut dans le container Form ou Picture).

Tu t' "es fait eu...." non ?

**Asdorve** · 09/08/2006, 14h59

+2, +3 , +4

Envoyé par Asdorve

Mais évidemment, je vais me plier à ta sagesse, sachant qu'à un moment ou l'autre, c'est moi qui vais me faire avoir.

...

**jmfmarques** · 09/08/2006, 15h56

allez...
Pour startout (s'il se perd encore...)

Voilà un exemple fait pour des checkboxes directement placées sur une Form et non en groupe indexé

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
Private Sub Form_Activate()
  Me.ScaleMode = 3
  Me.AutoRedraw = True
  For Each ctl In Me
    If LCase(TypeName(ctl)) = "checkbox" Then
      transp ctl
    End If
  Next
End Sub
 
 
Sub transp(ctl)
  ctl.Width = 10
  ctl.Height = 10
  With Me.Font
    .Name = ctl.FontName
    .Size = ctl.FontSize
    .Bold = ctl.FontBold
  End With
  CurrentX = ctl.Left + (ctl.Width * 2)
  CurrentY = ctl.Top
  Me.Print ctl.Caption
End Sub

A lui de faire (encore plus simple) si les checkboxes sont en groupe indexé.
A lui d'adapter (en fonction de ce que je lui ai dit plus haut) si les checkboxes sont dans une picturebox...