directcast d'une structure

Version imprimable

Bonjour,

Suite à un post récent, j'ai déclaré une structure:

Code:

1
2
3
4
5
6
7
8
9
  <StructLayout(LayoutKind.Sequential)>
    Friend Structure WindowPlacement
        Friend Property Length As Integer
        Friend Property Flags As Integer
        Friend Property ShowCommand As Integer
        Friend Property MinPosition As Point
        Friend Property MaxPosition As Point
        Friend Property NormalPosition As Rectangle
    End Structure

Quand je déclare un objet utilisant cette structure, j'ai ce code:

Code:

1
2
3
4
5
6
7
8
9
10
Dim MonWP As New WindowPlacement()
                            ' Affectation des valeurs par défaut de MonWP
                            With MonWP
                                .Length = Marshal.SizeOf(MonWP)
                                .ShowCommand = 0
                                .Flags = 1
                                .MinPosition = New Point(-1, -1)
                                .MaxPosition = New Point(-1, -1)
                                .NormalPosition = New Rectangle(10, 10, 100, 100)
                            End With

est-il possible de faire une seule ligne du genre: Dim MonWP as WindowPlacement = directcast(quelquechose, quelquechose)?

Merci d'avance de vos réponses

je vois pas pourquoi tu parle de DirectCast alors y'a juste rien à caster ..

mais si je me trompe pas je pense que ce que toi tu veux, c'est un [Constructor] pour ta structure, comme ça :

code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Friend Structure WindowPlacement
        Friend Property Length As Integer
        Friend Property Flags As Integer
        Friend Property ShowCommand As Integer
        Friend Property MinPosition As Point
        Friend Property MaxPosition As Point
        Friend Property NormalPosition As Rectangle
 
	Public Sub New(ByVal _Length As Integer, ByVal _Flags As Integer, ByVal _ShowCommand As Integer, ByVal _MinPosition As Point, ByVal _MinPosition As Point, ByVal _NormalPosition As Rectangle)
		Length = _Length
		Flags = _Flags
		ShowCommand = _ShowCommand
		MinPosition = _MinPosition
		MaxPosition = _MaxPosition
		NormalPosition = _NormalPosition
        End Sub		
End Structure

maintenant au lieu d'utiliser un With tu fait juste : Dim MonWP as new WindowPlacement(Marshal.SizeOf(MonWP), 0, 1, New Point(-1, -1), New Point(-1, -1), Rectangle(10, 10, 100, 100))

--> Et si maintenant tu veux avoir des valeurs par défaut à la création de ta structure, et bah de base en vb.net tu peux pas, tu peux avec les [Objects](classes) mais pas avec les structures
Solution --> Tu rajoute une fonction shared (static) à ta structure qui te crée une structure avec ses valeurs par défaut, comme ça :

code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Friend Structure WindowPlacement
        Friend Property Length As Integer
        Friend Property Flags As Integer
        Friend Property ShowCommand As Integer
        Friend Property MinPosition As Point
        Friend Property MaxPosition As Point
        Friend Property NormalPosition As Rectangle
 
	Public Sub New(ByVal _Length As Integer, ByVal _Flags As Integer, ByVal _ShowCommand As Integer, ByVal _MinPosition As Point, ByVal _MinPosition As Point, ByVal _NormalPosition As Rectangle)
		Length = _Length
		Flags = _Flags
		ShowCommand = _ShowCommand
		MinPosition = _MinPosition
		MaxPosition = _MaxPosition
		NormalPosition = _NormalPosition
        End Sub
 
	Public Shared Function Default() as WindowPlacement
		return new WindowPlacement(Marshal.SizeOf(MonWP), 0, 1, New Point(-1, -1), New Point(-1, -1), Rectangle(10, 10, 100, 100))
	End Function
End Structure

et maintenant tu fait juste : Dim MonWP = WindowPlacement.Default()

et voilà :D

31/10/2020, 21h35
sibama

Bonjour themine702, merci pour ta réponse.

Ben dit comme ça c'est super simple, je ne savais pas qu'on pouvait coller un Sub New à l'intérieur d'une Structure, moi je ne fais ça que quand je crée une Classe.

Je vais me coucher moins couillon ce soir.

Sympa d'avoir pris du temps pour répondre, merci encore.