Discussion :

[sergio_bzh]

Bonjour,
je voudrais afficher directement à l'écran une image sans que l'on voit autre chose donc pas de Form. C'est un rond (une horloge) en GIF avec transparence.

J'ai donc créé une WindowsApplication avec une Form invisible et dans le Form_Load je crée une classe héritée de PictureBox que j'essaie d'afficher. Voilà le code que j'ai commencé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Class Horloge
    Inherits System.Windows.Forms.PictureBox
    Sub New()
        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Image = Global.Reminder3.My.Resources.Resources.montre
        Me.Location = New System.Drawing.Point(27, 32)
        Me.Name = "Horloge"
        Me.Size = New System.Drawing.Size(Me.Image.Width, Me.Image.Height)  '(151, 149)  
        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
    End Sub
 End Class

Je sais que ce n'est pas suffisant.
Première question : est-ce qu'il est possible en VB.Net d'afficher un contrôle sans le raccrocher à une Form ? faut-il passer par des API ?
Si je dois raccrocher ça à une Form peut-on n'afficher que la pictureBox ?
Je suppose que dans le code que j'ai démarré il faudrait raccrocher mon contrôle "horloge" à quelque chose pour qu'il puisse s'afficher.

Bref, si quelqu'un peut m'orienter ...
Merci.
Sergio

[tomlev]

Il suffit que tu mettes ton image comme background de la Form, et que tu définisses la propriété TransparencyKey de la Form à la couleur de fond. Avec un bout de code ce sera plus clair :

Code :

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

1
2
Form1.BackgroundImage = tonImage
Form1.TransparencyKey = Form1.BackColor

Pas besoin de PictureBox

EDIT: autre méthode, plus propre à mon avis, en utilisant une région pour définir la forme de la fenêtre. Par exemple pour faire une fenêtre ronde (ou ellipsoïdale) :

Code :

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

1
2
3
            Dim path As GraphicsPath = New GraphicsPath()
            path.AddEllipse(Me.Bounds)
            Me.Region = New Region(path)

[sergio_bzh]

c'est nickel !

la seconde méthode est adaptée aux figures géométriques (carré, ellipse, etc) et la première à n'importe quelle figure.
Voilà donc le code pour les 2 méthodes et un petit snapshot de ce que je voulais faire ( il faut que je revoie les ombrages de mon gif ) :

Merci.

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
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.BackgroundImage = My.Resources.montre
        Me.Width = My.Resources.montre.Width        ' form = same size as background image
        Me.Height = My.Resources.montre.Height
        Me.BackgroundImageLayout = ImageLayout.Center   ' "no-repeat" image, centered
 
        ' method 1 : OK for any shape 
        Me.TransparencyKey = Me.BackColor      ' make transparent the background color 
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None  ' hide border and title bar
 
        ' methode 2 : better for geometrical picture (round, square, ellipse, etc)
        Dim path As GraphicsPath = New GraphicsPath()
        path.AddEllipse(0, 0, Me.Width, Me.Height)  ' ellipse "around" the bkg picture
        Me.Region = New Region(path)                ' display only the ellipse region
 
    End Sub