Discussion :

[MJSenior]

Hey, j'suis nouvelle dans le forum ! J'ai un petit problème (ça commence bien ^^), avec Visual Studio 2015.


J'aimerais savoir comment on peut mettre un shadow tout autour du WinForm ? J'ai réussi à faire que 2 côtés (en Bas et à droite), mais je veux de l'ombre dans tout les côtés.

Ce que j'ai actuellement :




Ce que je veux :



Et le 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
53
54
55
56
57
58
59
60
61
62
 Imports System.Data.OleDb
Imports System.Drawing.Drawing2D
Imports System.Net
Public Class Form1
 
    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Public CS_DROPSHADOW As Int32 = &H20000
 
    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
        Get
            Dim parameters As CreateParams = MyBase.CreateParams
            parameters.ClassStyle += CS_DROPSHADOW
            Return parameters
        End Get
    End Property
 
    Public Enum ShadowPosition As Integer
        TopLeft = 0
        TopRight = 1
        BottomLeft = 2
        BottomRight = 3
    End Enum
 
 
 
    Private MoveMouseDown As Boolean
    Private MoveX As Single
 
    Private MoveY As Single
 
    Private Sub formNote1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
 
        MoveMouseDown = True
 
        MoveX = e.X
 
        MoveY = e.Y
 
    End Sub
 
    Private Sub formNote1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
 
        If MoveMouseDown Then
 
            Me.Left = Me.Left + (e.X - MoveX)
 
            Me.Top = Me.Top + (e.Y - MoveY)
 
        End If
 
    End Sub
 
    Private Sub FormNote1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
 
        MoveMouseDown = False
 
    End Sub
 
End Class

Merci d'avance à ceux qui m'aideront j'suis une débutante lol !