mettre form en key/fill

Version imprimable

25/05/2015, 19h01
vins86

mettre form en key/fill

Bonjour tout le monde,

Je souhaiterais savoir si déjà ma demande est possible et si cela est le cas. Comment faire en gros?

Je souhaiterais mettre mon formulaire en key et fill afin de pouvoir faire une incrustation, comme cette image: https://compixtv.wordpress.com/2011/...hics-in-gencg/ et tout ceci en VB.

Merci d'avance pour vos réponses.

Cordialement,

Vincent.
26/05/2015, 09h08
Pol63

tu veux mettre un form dans un form avec transparence ou juste fusionner 2 images avec transparence ?
26/05/2015, 16h17
Invité

Dans ton écran, tu mets ton image avec un container, dans ton container, tu mets ton formulaire
26/05/2015, 19h44
vins86

Bonjour tout le monde,

Je tiens déjà à vous remercier pour vos réponses. Je souhaiterais faire le même rendu. J'essayerais de faire avec un container. A savoir que derrière se sera de la vidéo et non une image. Donc il faut que cela soit de qualité. Mais sinon, si possible il faudrait faire en temps réels la découpe de mon bandeau en blanc et le autour en noir comme sur le lien. Je pense que cela va être dure.
26/05/2015, 20h34
Pol63

vidéo + transparence n'est pas possible en windows forms selon ce que j'ai pu lire sur ce forum
je t'invite à passer sur wpf (framework graphique différent de windows forms) qui reste une technologie de .net, utilisable en vb.net
wpf est une technologie beaucoup plus récente qui apporte un transparence beaucoup mieux gérée, des controles de la forme qu'on veut (selon un polygone et/ou des arcs de cercle si nécessaire) ...

Bonsoir Pol63,

Merci pour ta réponse, mais je ne connais pas du tout wpf. Encore un nouveau apprentissage.

Peux-tu me donner quelques billes à ce sujet?

J'ai commencer à faire quelques choses, mais pas évident.

voici mon code que j'avais avec mon vb et à adapter:

Code:

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
Public Class Form1
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Form2.Location = Screen.AllScreens(1).Bounds.Location + New Point(100, 100)
        Form2.BackColor = Color.FromArgb(123, 123, 123)
        Form2.TextBox1.BackColor = Color.Transparent
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Close()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form2.TextBox1.Text = Me.TextBox1.Text
 
        Form2.TextBox1.Top = 300
        Timer1.Start()
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = TextBox2.Text
        Form2.TextBox1.Top = Form2.TextBox1.Top - 1
        If Form2.TextBox1.Top = 5 Then
            Timer1.Stop()
            Form2.TextBox1.Top = 5
            Timer2.Start()
        End If
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Timer2.Interval = TextBox3.Text
        Form2.TextBox1.Top = 110
        Timer2.Stop()
        Timer1.Start()
    End Sub
End Class

Cordialement,

Vincent.