Remplacer TextBox par dropdownlist

Bonjour à tous.
J'ai deux model

UtilisateurModel

Code:

1
2
3
4
5
Public Class Utilisateur
    Public Property Id As Integer
    Public Property DirectionId As Integer
    Public Property Departement As String
End Class

DirectionModel

Code:

1
2
3
4
5
Public Class Direction
    Public Property Id As Integer
    Public Property Valeur As String
    Public Property Supprime As Boolean
End Class

et ma vue

CreateOrEditUtilisateurView

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
@ModelType ANNUAIRE.Utilisateur
@Code
    ViewData("Title") = "Create or Edit"
    Layout = "~/Views/Shared/_Layout.vbhtml"
End Code
 
<h2>Create Or Edit</h2>
 
@Using (Html.BeginForm()) 
    @Html.AntiForgeryToken()
 
    @<div Class="form-horizontal">
        <h4>Utilisateur</h4>
        <hr />
        @Html.ValidationSummary(True, "", New With {.class = "text-danger"})
        @Html.HiddenFor(Function(model) model.Id)
 
        <div class="form-group">
            @Html.LabelFor(Function(model) model.DirectionId, htmlAttributes:= New With { .class = "control-label col-md-2" })
            <div class="col-md-10">
                @Html.EditorFor(Function(model) model.DirectionId, New With {.htmlAttributes = New With {.class = "form-control"}})
                @Html.ValidationMessageFor(Function(model) model.DirectionId, "", New With {.class = "text-danger"})
            </div>
        </div>
 
        <div class="form-group">
            @Html.LabelFor(Function(model) model.Departement, htmlAttributes:=New With {.class = "control-label col-md-2"})
            <div class="col-md-10">
                @Html.EditorFor(Function(model) model.Departement, New With {.htmlAttributes = New With {.class = "form-control"}})
                @Html.ValidationMessageFor(Function(model) model.Departement, "", New With { .class = "text-danger" })
            </div>
        </div>
   </div>
End Using

Je voudrais remplacer le textbox de "DirectionId" par un dropdownlist rempli à partir du modèle "Direction"
Toutes mes recherches sont infructueuses.
Si quelqu'un a une solution ou un lien, je lui serai reconnaissant

Public Class Utilisateur Public Property Id As Integer Public Property DirectionId As Integer Public Property Departement As String Public Property Direction As IEnumerable(Of SelectListItem) End Class

<div class="form-group"> @Html.LabelFor(Function(model) model.Direction, htmlAttributes:=New With {.class = "control-label col-md-2"}) <div class="col-md-10"> @Html.DropDownListFor(Function(model) model.DirectionId, Model.Direction, New With {.htmlAttributes = New With {.class = "form-control"}}) @Html.ValidationMessageFor(Function(model) model.DirectionId, "", New With {.class = "text-danger"}) </div> </div>

Function CreateEdit(ByVal id As Integer?) As ActionResult Dim modele = New Utilisateur With {.Direction = db.Directions.ToList().[Select](Function(x) New SelectListItem With {.Text = x.Valeur, .Value = x.Id})} If IsNothing(id) Then Return View(modele) Else If IsNothing(id) Then Return New HttpStatusCodeResult(HttpStatusCode.BadRequest) End If Dim Utilisateur As Utilisateur = db.Utilisateurs.Find(id) If IsNothing(Utilisateur) Then Return HttpNotFound() End If Return View(Utilisateur, modele) End If End Function